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

2004-10-27 10:55:29 215 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

littlepotato78 墨衍会员 · AI 创作全网分发关注 + 加入社区

SQL 插入数据详解 INSERT语句是 SQL 中用来向表中插入数据的基础工具，理解和掌握不同的插入方式对于有效地管理数据库至关重要。明确指定列名和插入顺序，以确保插入数据的安全性。小心处理NULL和默认值。使用语法插入来自其他表的数据。在批量插入数据时，要确保数据的一致性和完整性。通过事务控制确保插入操作的原子性。了解这些插入数据的基本操作和注意事项，能够帮助你更高效地进行数据库的管理与维护。阅读详情

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

...全文

littlepotato78

消息协作 536 成员 39,094 内容

+ 关注 + 加入社区

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

相关推荐