往数据库里写数据,不知道为什么怎么也写不进去,请大家帮忙!
1、我在数据库建立了一个表格 Report_table 里面就一个字段 ID 类型为 INT
2、代码如下
Sub OnClick(Byval Item)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim sPro,sDsn,sSer
Dim Data1, Data2, Data3
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_REPORT_18_08_06_09_50_49R;Data Source=.\WINCC"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
'写入数据库
sSql="insert into abo.Report_table VALUES (10)"
Msgbox sSql
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub