vb6.0数据库操作代码例子

1、vb 6.0 数据库操作代码例子*删除函数*Private Sub Delete_Click()声明数据库连接对象Dim conn As NewADODB.Connectionconn.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;DataSource=DB.mdb;Persist Security Info=False打开数据库连接conn.Open 执行删除 sql 语句conn.Execute Delete from Users whereUserName=insert or UserName=update关闭数据库并释放数据库对象

2、conn.CloseSet conn = NothingEnd Sub*添加函数*Private Sub InsertButton_Click() 声明数据库连接对象Dim conn As NewADODB.Connectionconn.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;DataSource=DB.mdb;Persist Security Info=False打开数据库连接conn.Open执行添加 sql 语句conn.Execute Insert into Users(UserName,UserPassword) valu

3、es (insert,test)关闭数据库并释放数据库对象conn.CloseSet conn = NothingEnd Sub*读取函数*Private Sub SelectButton_Click()声明数据库连接对象和记录集对象Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset指定连接字符串conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False打开数据库连接 conn

4、.Open 执行查询 sql 语句 rs.Open Select * from Users, conn 读取记录集内容While Not rs.EOF显示记录Print rs(UserId), rs(UserName), rs(UserPassword)rs.MoveNextWend 关闭记录集并释放记录集对象rs.CloseSet rs = Nothing 关闭数据库并释放数据库对象 conn.CloseSet conn = NothingEnd Sub*更新函数*Private Sub Update_Click()声明数据库连接对象Dim conn As NewADODB.Connectionconn.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;DataSource=DB.mdb;Persist Security Info=False 打开数据库连接 conn.Open执行更新 sql 语句conn.Execute Update Users set UserName=upd