upjd-优快云博客

原创自定义DataAdapter批量更新

WebMethod()> Public Function AddMemCard(ByVal ds As DataSet ) As String Dim con As New SqlConnection con.ConnectionString = ConfigurationManager.ConnectionStrings("wingsbook" ).ToStr

2012-10-06 13:05:39 418

原创手动初始化dataset并添加表到其中

Public Class MemberTransmit Dim ds As New DataSet("Members" ) Dim MemCard As DataTable = ds.Tables.Add( "MemCard") Dim Wings As Wingsservices.Wingservices = New Wingsservices.Wingserv

2012-10-06 13:05:11 1174

原创手动建立主从表关系数据库显示

Dim dsOrdersAndDetails As New DataSet() '两个SqlDataAdapter，一个用来读取Orders表， '一个用来读取Order Details表 Dim daOrders As New SqlClient. SqlDataAdapter() Dim daDetails A

2012-10-06 13:04:13 699

原创遍历所有窗体控件

遍历所有窗体控件 For Each Control In GroupBox2.Controls If TypeOf Control Is TextBox Then If Control.ForeColor = Color .Red Then MessageBox.Show("还有错误，不允

2012-10-06 13:03:00 418

原创自定义分页存储过程及VB.NET 调用

ALTER PROCEDURE [dbo].[GetRecordFromPage] @tblName nvarchar(255), -- 表名 @fldName nvarchar(255), -- 字段名 @PageSize int = 10, -- 页尺寸 @PageIndex

2012-10-06 13:02:26 519

转载用友U8分页存储过程

ALTER procedure [dbo].[wa_sp_PRGetRecordsPaginationByPsn]--参数 @TableName nvarchar(2000), --数据源表 @Order nvarchar(2000) = '', --排序 @Fields nvarchar(4000) = '*', --显示字段 @Condition nvarc

2012-10-06 13:00:36 849

原创 VB.NET使用正则表达式：只取中文并替换多余空格

VB.NET使用正则表达式：只取中文并替换多余空格Regex.Replace(Regex .Replace(str, "[^\u4E00-\u9FA5]", " ").Trim(), "[\s]{2,} " , " ")

2012-10-06 12:59:59 2726

转载只允许按下数字键和逗点

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If (e.KeyChar >= "0"c And e.KeyChar "9"c) Or (e.KeyChar = "

2012-10-06 12:59:04 419

原创 VB.NET获取内容IP

Dim Address() As IPAddress Dim str As String = Dns.GetHostName() Address = Dns.GetHostEntry(str).AddressList

2012-10-06 12:58:29 554

原创使用OLEDB将数据插入对应的EXCEL表格中

Public Sub ExportDataGridview(ByVal gridView As Object, ByVal isShowExcele As Boolean) On Error GoTo showerr Dim Mytable As New DataTable Mytable = CType(gridView.DataSource

2012-10-06 12:57:12 1078

转载分页存储过程

create PROCEDURE [dbo].[GetRecordFromPage] @tblName varchar(255), -- 表名 @fldName varchar(255), -- 字段名 @PageSize int = 10, -- 页尺寸 @PageIndex i

2012-10-06 12:56:13 282

原创 TryParse判断是不是对应类型的值

If Not Double.TryParse(DataGridView1.CurrentCell.Value.ToString(), fmoney) Then Me.DataGridView1.Rows(e.RowIndex).ErrorText = "输入必须为数值型！ " DataGridView1.CurrentCe

2012-10-06 12:55:09 368

原创求datatable（datagridview）整列和

Dim dt As DataTable = Me.DataGridView1.DataSource tleft.Text = Format(dt.Compute( "sum(调整金额)", "true"), "0.00" ).ToString() sumaverage.ForeColor = Color.Red UltraStatusBar

2012-10-06 12:53:50 490

转载不规范EXCEL表格导入内存表中

加载Excel数据 Private Function LoadExcelData(ByVal Path As String) txtMsg.Text = "Excel数据导入中..." Dim msgError As String = "" Dim miss As Object = System.Reflection.Miss

2012-10-06 12:53:14 419

转载清楚系统中某个进程

Private Sub ProcessKill() Dim p As System.Diagnostics.Process p = New System.Diagnostics.Process For Each p In System.Diagnostics.Process.GetProcesses() If p.Pr

2012-10-06 12:52:34 451

原创 VB.NET 三种读SQL数据库命令实例二OLEDB

Dim myCon As New OleDbConnection Dim ds As New DataSet Dim mycmd As New OleDbCommand Dim myada As New OleDbDataAdapter myCon.ConnectionString = ConfigurationManager

2012-10-06 12:50:05 960

原创 VB.NET三种读SQL数据库命令实例一ADODB

Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rst As New ADODB.Recordset cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sour

2012-10-06 12:49:27 1902

转载 VBS脚本打开ie，执行asp页面代码

Dim IESet IE = CreateObject("InternetExplorer.Application")ie.navigate("http://192.168.1.14/ms/resend.asp")ie.visible=0Set IE = Nothing

2012-10-06 12:46:34 737

转载使用JavaScript 在input 之 value 输入框文字提示代码

代码一：value="请输入你要搜索的关键词" onfocus="if (this.value=='请输入你要搜索的关键词') this.value='';"代码二：value="请输入你要搜索的关键词" onblur="if(this.value==''){this.value='请输入你要搜索的关键词'}" onfocus="this.value=''"value="请

2012-10-06 12:45:13 1277

转载 VB.NET使用SMTP发送邮件

’需要邮箱支持SMTP功能Public Function SendMail(ByVal fstr As String , ByVal tstr As String ) As String Dim smtp As New System.Net.Mail. SmtpClient("smtp.qq.com" , 25) '发件t邮箱?身份Y验证,参?数y分?别

2012-10-06 12:42:39 10525

UPJD's 追求自己的思想