Question

vb access数据库数据同行两列数据如果相同,将相同的数字写入同行另一列?请高手赐教代码！

字段1 字段2 字段3
2 2

当字段1和字段2相同时，将2写入字段3中
当字段1和字段2相同时，将相同的数字2写入字段3中

Answer 1

update 表名 set 字段3=字段2 where 字段1=字段2
在查询语句中写即可

Answer 2

update tablename set 字段3=字段1 where 字段1=字段2

追问

代码好像不对？刚试了一下 语法不对

追答

tablename是数据表的名称，把它改成相应的表名，另外，字段1...字段3都是字段名，也改成相应的字段名

追问

代码好像不对？刚试了一下 显示编译错误？缺少语句结束！请赐教！谢谢！

追答

已测试，语法没问题，你是在哪里运行这个语句的？

追问

vb6中，请赐教！谢谢！

能写一下具体代码吗？谢谢！万分感谢！

追答

Private Sub Command1_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接
db.Open '打开数据库

'查询数据
strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查询数据表
Do While Not RS.EOF '循环输出查询到的结果
Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果
RS.MoveNext '记录下移
Loop
RS.Close '关闭记录集
Set RS = Nothing

'更新数据(引用上面的语句)
strSQL = "update tablename set 字段3=字段1 where 字段1=字段2" 'SQL字符串
db.Execute strSQL

End Sub

追问

当不相等时输出为0，怎么办

追答

update tablename set 字段3=0 where 字段1字段2

再调用一次db.Execute strSQL