![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB.NET编程笔记
文章平均质量分 67
upjd
Workflow Pfmd Cimplicity WebSpace BMS WebService Html JavaScript BarCode MES WMS MSSQL Oracle SQLite SAP JDE;Experience in Web Service, Experience in Front-End JavaScript, HTML5, CSS, Experience with databases (MSSQL, Oracle ,MySQL ), Git, SVN, TFS
展开
-
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 · 2712 阅读 · 0 评论 -
自定义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 · 393 阅读 · 0 评论 -
手动初始化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 · 1131 阅读 · 0 评论 -
手动建立主从表关系数据库显示
Dim dsOrdersAndDetails As New DataSet() '两个SqlDataAdapter,一个用来读取Orders表, '一个用来读取Order Details表 Dim daOrders As New SqlClient. SqlDataAdapter() Dim daDetails A原创 2012-10-06 13:04:13 · 640 阅读 · 0 评论 -
遍历所有窗体控件
遍历所有窗体控件 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 · 384 阅读 · 0 评论 -
自定义分页存储过程 及VB.NET 调用
ALTER PROCEDURE [dbo].[GetRecordFromPage] @tblName nvarchar(255), -- 表名 @fldName nvarchar(255), -- 字段名 @PageSize int = 10, -- 页尺寸 @PageIndex原创 2012-10-06 13:02:26 · 484 阅读 · 0 评论 -
用友U8分页存储过程
ALTER procedure [dbo].[wa_sp_PRGetRecordsPaginationByPsn]--参数 @TableName nvarchar(2000), --数据源表 @Order nvarchar(2000) = '', --排序 @Fields nvarchar(4000) = '*', --显示字段 @Condition nvarc转载 2012-10-06 13:00:36 · 784 阅读 · 0 评论 -
VB.NET使用正则表达式:只取中文并替换多余空格
VB.NET使用正则表达式:只取中文并替换多余空格Regex.Replace(Regex .Replace(str, "[^\u4E00-\u9FA5]", " ").Trim(), "[\s]{2,} " , " ")原创 2012-10-06 12:59:59 · 2642 阅读 · 0 评论 -
只允许按下数字键和逗点
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 · 387 阅读 · 0 评论 -
VB.NET获取内容IP
Dim Address() As IPAddress Dim str As String = Dns.GetHostName() Address = Dns.GetHostEntry(str).AddressList原创 2012-10-06 12:58:29 · 520 阅读 · 0 评论 -
使用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 · 1044 阅读 · 0 评论 -
分页存储过程
create PROCEDURE [dbo].[GetRecordFromPage] @tblName varchar(255), -- 表名 @fldName varchar(255), -- 字段名 @PageSize int = 10, -- 页尺寸 @PageIndex i转载 2012-10-06 12:56:13 · 261 阅读 · 0 评论 -
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 · 340 阅读 · 0 评论 -
求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 · 448 阅读 · 0 评论 -
不规范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 · 396 阅读 · 0 评论 -
清楚系统中某个进程
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 · 419 阅读 · 0 评论 -
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 · 920 阅读 · 0 评论 -
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 · 1850 阅读 · 0 评论