高考问答勇士的荣耀优酷直播:vb数据输入数据库问题
来源：百度文库 编辑：高考问答 时间：2024/05/07 19:48:29
请问我在vb中首先编了一个程序，查找了本地上一个文件中的若干信息，并把这些信息存入了界面中的多个text框中，之后建立ado连接需要存入sql server中，但当存入库时，所有text框中刚才查找出来的信息都变成了0，这是为什么呢？应该怎么解决呢？我很着急，谢谢啦！qq:173635235
附：存入数据库的部分代码：
Dim aaa As Integer
Dim rs1 As New ADODB.Recordset
Set rs1 = New ADODB.Recordset
rs1.Open "select * from DetailTable", "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Password=sa;Data Source=rq", adOpenKeyset, adLockOptimistic
rs1.MoveLast
rs1.AddNew
rs1.Fields("Coming_Number") = Val(Trim(Text2.Text))
rs1.Fields("User_Name") = Val(Trim(Text3.Text))
rs1.Update
Adodc1.Refresh
aaa = MsgBox("数据添加成功", 0 + vbExclamation, "确定")
附：存入数据库的部分代码：
Dim aaa As Integer
Dim rs1 As New ADODB.Recordset
Set rs1 = New ADODB.Recordset
rs1.Open "select * from DetailTable", "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Password=sa;Data Source=rq", adOpenKeyset, adLockOptimistic
rs1.MoveLast
rs1.AddNew
rs1.Fields("Coming_Number") = Val(Trim(Text2.Text))
rs1.Fields("User_Name") = Val(Trim(Text3.Text))
rs1.Update
Adodc1.Refresh
aaa = MsgBox("数据添加成功", 0 + vbExclamation, "确定")
rs1.MoveLast
这句不需要.删除