Private Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase(App.Path + "\db.mdb")
Sql = "update aa1 set aa1.职称=aa.职称 from aa1,aa where aa1.姓名=aa.姓名"
db.Execute Sql
End Sub
你好,两个表中都有数据,只是把aa1中的职称数据更新为aa中的职称,运行后,但aa.姓名是空的,而且aa.职称是空的,所以会出现操作符丢失,在查询表达式中,但我不知道怎么解决,请教高手。谢谢!
用DAO
两个表中的表结构如下:
Set td = db.CreateTableDef(mtable)
With td
.Fields.Append .CreateField("编号", dbInteger, 3)
.Fields.Append .CreateField("姓名", dbText, 8)
.Fields.Append .CreateField("职称", dbText, 6)
end with