往SQL里插入数据的问题~急~~

[littlepotato78]

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

[chenzb]

调用看看发生什么错误
GetErrorMessage
GetExtendedErrorMessage
看看你对表单的权限

[littlepotato78]

30 LS:DO- Cannot convert data from native to expected or requested datatype.
错误出现了~
可是俺还是不知道怎么改~

[littlepotato78]

我把表里的数据类型改成char后的错误是38 LS:DO- The previous added row has not been updated.
Print msg 可以打印出表里面的数据
但是好象还不让插入~
大家帮忙看看是什么原因

[littlepotato78]

这个问题解决了~
可以插入SQL了~
原因是多了一个 result.addrow~

现在的问题是密码怎么能给转换成可以识别的呀??

[gdman]

result.AddRow

If result.AddRow = False Then
着市什么东东！？

[wjw1224]

你这样插入不麻烦吗？这么一大段码，看得头都大。真接用SQL语插入不好吗？

[littlepotato78]

大家帮帮忙啊~
真的很着急！！

[xuxuwaley]

在取或者写的时候用cstr()转换试试看

[littlepotato78]

msg = msg & " " & result.GetValue(i)
改成了
msg = msg & " " & cstr(result.GetValue(i))
还是一样的结果:(
打印出来的还是false

[baby_wood]

贊同樓上的說法﹐直接運行SQL語句﹐insert into 數據就好了啊。