SQL数据库连接

Question

Dim Y_Bnumado As ADODB.Recordset
Set Y_Bnumado = New ADODB.Recordset
Dim Y_Bnum As String
Dim Bnum As Integer
Y_Bnum = "select B_ID from Baojia order by B_ID desc"
Y_Bnumado.Open Y_Bnum, data, 3, 2
Y_Bnumado.Move 0
Bnum = Y_Bnumado("B_ID")
Y_Bnumado.Close
Bnum = Bnum + 1  怎么将Bnum值赋给另外一个ADODB.Recordset打开的数据库连接,并写入某一个表中?!如下:
Dim YIDado As ADODB.Recordset
Set YIDado = New ADODB.Recordset
Dim Ystr As String
Ystr = "select C_ID from Changpingxingxi where Chengbendanghao='" & List1.Text & "'"
YIDado.Open Ystr, data, 3, 2
YIDado!C_ID = Bnum  (SQL说我这样子是错误的)
YIDado.Update
YIDado.Close

Answer 1

Dim YIDado As ADODB.Recordset 
Set YIDado = New ADODB.Recordset 
Dim Ystr As String 
Ystr = "UpDate Changpingxingxi Set C_ID = Bnum Where Chengbendanghao='" & List1.Text & "'" 
YIDado.Open Ystr, data, 3, 2 
YIDado.Close

Answer 2

xrongzhen :这个方法不行啊!

Answer 3

说列名"Bnum"无效
是一个实时错误

Answer 4

说列名"Bnum"无效
是一个实时错误

Answer 5

数据库里是INT型
VB里是Integer型
这应该没问题吧！