如何往SQL SERVER 数据库里写数据

往数据库里写数据，不知道为什么怎么也写不进去，请大家帮忙！

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

"insert into abo.Report_table VALUES (10)

这个感觉不对

你可以先在SQL里面测试一下看看语句能不能成功执行

 abo.Report_table，表的名字不用加ado.的，他就是一个格式而已。

先用conn.state看看数据库连接是否成功。然后用msg看看字符串是否正确，最好是在数据库里测试好再写。

要是时间不急，还是先看看数据库基础，这样上来就整，很难一次性成功的。

如何用conn.state 查看数据库的链接状态，能说的详细点吗？多谢了！

数据库名字不对

先确定一下，Report_table表建在哪个数据库下。

然后，在数据库连接语句中，写上对应数据库的名字。