请高手看以下程序:
On Error GoTo err
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\用户总表.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "update 新卡总表 set 预交金额=0 where 用户名 ='" & Text1.Text & "'"
cn.Close
Set cn = Nothing
Exit Sub
err:
MsgBox err.Description
这段程序的作用是:删除掉表中某一行中的某个字段的数据,我现在想要的是,等删除掉刚才那个数据以后,我还想以那个用户名为主键,意思就是要把另一个文本框中的数据再次添加进原来被删掉的那个字段空中,我只会往表中一行一行地添加数据,我现在想往某个行中(当然这个行中要有个主键),添加某个字段的数据,请高手给我写一下源代码,谢谢,稍后马上送分!
On Error GoTo err
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\用户总表.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "update 新卡总表 set 预交金额=0 where 用户名 ='" & Text1.Text & "'"
cn.Close
Set cn = Nothing
Exit Sub
err:
MsgBox err.Description
这段程序的作用是:删除掉表中某一行中的某个字段的数据,我现在想要的是,等删除掉刚才那个数据以后,我还想以那个用户名为主键,意思就是要把另一个文本框中的数据再次添加进原来被删掉的那个字段空中,我只会往表中一行一行地添加数据,我现在想往某个行中(当然这个行中要有个主键),添加某个字段的数据,请高手给我写一下源代码,谢谢,稍后马上送分!
-----------------------------------------
楼主的意思是删掉再添加,那就是更新数据啊
直接把这句cn.Execute "update 新卡总表 set 预交金额=0 where 用户名 ='" & Text1.Text & "'"
换成:
cn.Execute "update 新卡总表 set 预交金额='" & Text2.Text "' where 用户名 ='" & Text1.Text & "'"
是更新表某个字段内容阿?
那就用Update