我的程序如下
Private Sub Command1_Click()
If cleared = True Then
Unload Me
Exit Sub
End IfDim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = cnn.ConnectionString
conn.Open
conn.Execute ("insert into cleared ( serial,title,counts) select serial,title,counts from guding where clear=true ")
i = i + 1
conn.Execute ("delete * from guding where clear=true")
conn.Close
MsgBox "Clearing job is over,click 'OK' close windows", vbInformation, "固定资产"
Command1.Caption = "OK!" & i
cleared = TrueEnd Sub
两个表中两个相同的字段? 没有呀
各位发表一下高见吧
Private Sub Command1_Click()
If cleared = True Then
Unload Me
Exit Sub
End IfDim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = cnn.ConnectionString
conn.Open
conn.Execute ("insert into cleared ( serial,title,counts) select serial,title,counts from guding where clear=true ")
i = i + 1
conn.Execute ("delete * from guding where clear=true")
conn.Close
MsgBox "Clearing job is over,click 'OK' close windows", vbInformation, "固定资产"
Command1.Caption = "OK!" & i
cleared = TrueEnd Sub
两个表中两个相同的字段? 没有呀
各位发表一下高见吧
解决方案 »
- VB自定义数据类型参数传递报错“DLL调用约定错误”
- 求教水晶报表 分页显示问题!
- 请教。ListView在lvReportView的格式下使用为什么SubItems不能选中?
- 请问:如何理解这种函数调用? mid(a,2)="1"
- 怎样关闭拨号上网 啊 我用机器里的拨号连接 上的网 怎样关闭连接啊
- 初级问题:VB与数据库的连接共有哪几种方式?
- 如何将conn传递给VC ConnectAccess函数的参数
- combobox的style为2,如何在获取焦点时让combobox的text值变成我要的
- 哪里有VB FOR EXCEL 的文档?
- 怎么设置Listbox!急!急!
- 也许我的问题说的不明白,是关于树行结构的
- 数据库的远程更新问题
看你的程序应该不会的呀,你的表里是不是有触发器呀??
你查查帮助吧