VB 6.0中向SQL数据库表中添加记录的代码

VB 6.0中向SQL数据库表中添加记录的代码

VB 6.0连接SQL数据库，然后想在其中一个表里面添加记录，用VB代码添加……

有ID号，如何能让添加的记录的ID号自动加到最后，添加数据的代码？

摘引一段搜索结果，希望有帮助：

建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径"<建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀">)
第一启动窗体<比如：form1>.show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来
如果要对数据库进行修这时用以下代码：
db.Execute （<SQL语句--如"insert into student(sno,sname) value("","")">)
方法2，
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字（如DATA1）
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME 选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息

添加记录

insert into 表名（字段1，字段2，字段3） values(值1，值2，值3)

添加到最后

取出MAX(ID)作为新纪录得ID号就可以增加到最后了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息