一个生成的问题————————————急，在线等待，谢谢了

Question

你可以试一下这样子：
dim cn as new adodb.connection
dim rst as new adodb.recordset
cn.open "..."
rst.open "select * from 表名"private sub ButDel_click
rst.delete
end subprivate sub ButAdd_clickcn.execute"end sub新建存储过程：
代码如下：
declare @IntRecordCount bigint,@IntNum bigint
set @intnum=1
while @intrecordcount=0 or @intnum<3
begin
select @intrecordcount=count(*)from 表名 where 字段名=@intnum  
set @intnum=@intnum+1
end
insert 表名 (字段）values(值名)
在值名中要输入@intnum,以便输入该表的主键

Answer 1

接上，代BUT的事件中要输入 exec 存储过程名

Answer 2

可我的数据库不是SQL的啊，是ACCESS的用上面的代码可以吗？

Answer 3

在执行删除操作前，先读出那条记录的数据。存到一个文件中。
再执行添加操作时，先监测记录数，如果小于3个就去读你原来存的文件。
读出内容，自己加就可以。具体你可以发源代码给我：[email protected]

Answer 4

你在建立库结构时ACCESS好像有一个是“自动编号”的数据类型，你可用它来对记录进行编号，然后你可比较让你的卡号与“自动编号”进行比较如果发现不一一对应的话，那么当有人向数据库添加记录时，你就将不对应的数作为新添加记录的卡号。这是本人愚见，可能有误。希望对你有用哈。祝你成功~!!!