前几天发了个求助数据库操作的帖子,还是有些问题没有解决。我要在两个表中修改,添加和删除记录,两表中有相同的字段,相同的字段用一个文本框输入,插入: 
conn.execute("insert into 表a(客户,地址)values('" & text1.text & "','" & text2.text "')") 
conn.execute("insert into 表b(客户,产品)values('" & text1.text & "','" & text3.text "')") 
更新: 
在修改之前先用一变量把当前选定的客户记录下来,如  
dim kh as string 
set rs = conn.execute("select 客户 from 表a where 你的修改条件) 
kh=rs.Fields(0).Value 
conn.execute("update 表a set 地址='" & text2.text & "' 客户 = '" & text1.text & "' where 客户='" & kh & "'") 
conn.execute("update 表b set 产品='" & text3.text & "' 客户 = '" & text1.text & "' where 客户='" & kh & "'") 
删除: 
conn.execute("delete 表a where 客户=你要删除的客户") 
conn.execute("delete 表b where 客户=你要删除的客户") 
这是网友的回帖。
现在我就是在修改数据库时没有成功,请问大家修改指定的数据记录该怎么写代码(不用绑定的方式)。比如我想修改客户A的地址,其中客户A有文本框控制
此外我还遇到一个问题,就是我删除数据记录后,比如我删除了客户A的记录,客户A的编号是6,但我再添加新客户时,客户编号却从7开始,依此类推,被删除的信息编号不能再有,结果就出现了编号是1,2,5,6,9,,12……等等,怎样使删除后的数据表的编号重新按序排列!

解决方案 »

  1.   

    你问问题的方式很让人头大,因为别人会不知道你再将什么.你至少要说table的结构是什么,而且代码也看得让人头大.所以我木看明白关于最后一点,如果设置为自动编号,或者有了关联table编号是不能使用原来的.如果无关联,access可以使用修复数据库来恢复编号.
      

  2.   

    1.修改没有成功程序也没报错,那就用debug.print你的SQL语句,看看有没有问题,在复制到SQL查询分析器中去调试
    2.自增编号就是这样,删除后就不是连续的。自已定义编号吧......