VB 将数据写入SQL SERVER 2012

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