往SQL里插入数据的问题~急~~
OA_user表设计如下
username nvarchar 50
tel nvarchar 50
mail nvarchar 50
pwd nvarchar 50
现想通过代理往该数据库里插入程序,没成功~
按照如下程序的结果是取数据时出错:(
打印出来的结果是:False False False False 无法在数据表增加数据!
求大家帮帮忙,看问题出现在哪~~
我是第一次做往SQL里插入数据~
拜托各位GGJJDDMM了~~
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
If con.ConnectTo("OA","sa","790907" )= False Then
Msgbox "无法连接SQL SERVER数据库,请与系统管理员联系!"
Exit Sub
End If
qry.SQL = "SELECT * FROM OA_user"
'result.Execute
If result.Execute = False Then
Print "无法从数据表提取数据!"
Exit Sub
End If
Dim msg As String
Do
result.NextRow
msg = msg & Chr(10)
For i = 1 To result.NumColumns
msg = msg & " " & result.GetValue(i)
Next
Loop Until result.IsEndOfData
Print msg
'增加一行
result.AddRow
If result.AddRow = False Then
Print "无法在数据表增加数据!"
Exit Sub
End If
Call result.SetValue("username",doc.LastName(0))
Call result.SetValue("tel",doc.Phone(0))
Call result.SetValue("mail",doc.email(0))
Call result.SetValue("pwd",doc.NewPassword(0))
'更新
result.UpdateRow
'关闭连接
result.Close(DB_CLOSE)
'断开连接
con.Disconnect