Sub openconnection3()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
Sub openconnection4()
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc4.RecordSource = "select * from " & Text3.Text + "2" + Text1.Text + Text2.Text & ""
Adodc4.Refresh
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
Do While Adodc4.Recordset.EOF = False
Adodc4.Recordset.Fields("mm").Value = Text2.Text
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Loop
Adodc4.Refresh
End Sub
如:text2.text=04时,第一次表1、表2都可以修改mm 为04,但第二次操作时,表1可以,但表2操作的结果是03,少了01。重新启动后,又可以了。谢谢高人指点。
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
Sub openconnection4()
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc4.RecordSource = "select * from " & Text3.Text + "2" + Text1.Text + Text2.Text & ""
Adodc4.Refresh
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
Do While Adodc4.Recordset.EOF = False
Adodc4.Recordset.Fields("mm").Value = Text2.Text
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Loop
Adodc4.Refresh
End Sub
如:text2.text=04时,第一次表1、表2都可以修改mm 为04,但第二次操作时,表1可以,但表2操作的结果是03,少了01。重新启动后,又可以了。谢谢高人指点。
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
没有操作Sub openconnection4() ,例如:text2=04,但表2也更新了,mm为03只过过小了01(我就奇怪,没有操作表2的内容,但也更新了表2,只不过少了01)
Adodc4.Recordset.MoveFirst
End If
你把两段代码都变成一样的看看。然后就是单步再说了"如:text2.text=04时,第一次表1、表2都可以修改mm 为04,但第二次操作时,表1可以,但表2操作的结果是03,少了01。重新启动后,又可以了。谢谢高人指点。"你要更新04。无论如何表2里面也不能有结果03阿?这点描述的不太清楚,让人看不明白
clear_zero “然后是什么意思?”
我真想不明白,表1操作一点问题都没有,但表2的mm怎么都不能修改为text2
clear_zero “然后就是单步”是什么意思?