主题:关于写入SQL数据库的问题
现在要把一个ADO记录集中的数据打入SQL数据库~
Dim sql As String
Set sqlCommand.ActiveConnection = ntConn
'开始循环向SQL数据表中加数据
While Not sRS.EOF
'if not the last recordset
sql = "Insert Into newtable Values ('" & sRS.Fields(0).Value & "','" & sRS.Fields(1).Value & "','" & sRS.Fields(2).Value & "','" & sRS.Fields(3).Value & "')"
sqlCommand.CommandText = sql
sqlCommand.Execute
sRS.MoveNext
Wend
但是编译的时候说sqlCommand.Execute 部分有错,
提示说将截断字符串或者二进制数据~请问是怎么一回事啊?
Dim sql As String
Set sqlCommand.ActiveConnection = ntConn
'开始循环向SQL数据表中加数据
While Not sRS.EOF
'if not the last recordset
sql = "Insert Into newtable Values ('" & sRS.Fields(0).Value & "','" & sRS.Fields(1).Value & "','" & sRS.Fields(2).Value & "','" & sRS.Fields(3).Value & "')"
sqlCommand.CommandText = sql
sqlCommand.Execute
sRS.MoveNext
Wend
但是编译的时候说sqlCommand.Execute 部分有错,
提示说将截断字符串或者二进制数据~请问是怎么一回事啊?