VB 将数据写入SQL SERVER 2012

最新推荐文章于 2025-09-12 15:34:26 发布

原创最新推荐文章于 2025-09-12 15:34:26 发布 · 1.5k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

SQL 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了如何使用VB与SQL SERVER 2012进行交互，包括建立数据库连接、每日创建新表以及上传数据的操作步骤，假定数据记录集rs已准备就绪。

1.声明数据库连接对象

Option Explicit
Public cn As New ADODB.Connection           
Public rs As New ADODB.Recordset

2.打开/关闭数据库

Public Sub OpenSQL()             										'打开数据库SQL
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        cn.CursorLocation = adUseClient									'自定义游标
        cn.Open "Provider=SQLOLEDB.1;Password=57355096;User ID=sa;Initial Catalog=Jrf;Data Source=192.168.0.200;Persist Security Info=false;"	
       //'Provider=数据库格式；Password=数据库密码；User ID=数据库账号（默认sa）；Initial Catalog=数据库名称；Data Source=本计算机名称或者远程计算机的IP；Persis Security Info=是否保存打开状态；
        Call NewSQLTable												'新建每日的数据表
        rs.Open "select * from db" & Format(Now, "YYYYMMDD"), cn, 1, 3	'打开当日的数据表
End Sub
Public Sub CloseSQL()               									 '关闭数据库SQL
        If rs.State = True Then
            rs.Close
            Set rs = Nothing
        End If
        If cn.State = True Then
            cn.Close
            Set cn = Nothing
        End If
End Sub

3.每日创建新的数据表

Public sub NewSQLTable()
    Dim strsql As String
    strsql = "create table db" & Format(Now, "YYYYMMDD") & _
             "(No varchar(50),BatchID varchar(50),ReelNo varchar(50),Dia varchar(50),Alarm varchar(50),Standard varchar(50),UpTol varchar(50),LowTol varchar(50),Date varchar(50),Time varchar(50),UserID varchar(50),RecordID varchar(50))"	‘创建数据表，表格式
    On Error Resume Next													'如果已经创建则跳出错误
    rs.Open strsql, cn, adOpenStatic, adLockReadOnly						'创建数据表指令
end sub

4.上传数据
前提是已经正常打开了数据记录集rs

Public Sub SaveToSQL()	
    rs.AddNew
    rs.Fields("No") = Total_Rxt_DaoTi
    rs.Fields("BatchID") = Real_Scph
    rs.Fields("ReelNo") = Form1.PanHao_label.Caption
    rs.Fields("Dia") = Format(Real_DaoTi_Dia, "0.000")
    rs.Fields("Alarm") = Tol_Status
    rs.Fields("Standard") = Format(Real_DtWj, "0.000")
    rs.Fields("UpTol") = Format(Real_DtUp, "0.000")
    rs.Fields("LowTol") = Format(Real_DtDown, "0.000")
    rs.Fields("Date") = Format(Now, "YYYY-MM-dd")
    rs.Fields("Time") = Format(Now, "HH:mm:ss")
    rs.Fields("UserID") = Real_Czyh
    rs.Fields("RecordID") = Form1.RecordNum_Label.Caption
    rs.Update
End Sub