VB6+Access对数据库进行添加删除项目(可编辑修改word版)

附件 2：

VB6+Access 编程中的数据库操作方法

例 1：

首先，在工程里引用microsoft activex data objects 2.7 library

Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn 是连接对象，rs1 是记录集，sql 是查询语句

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""

sql = "select * from 表名"

rs1.Open sql, cn

rs1.MoveFirst

Do While Not rs1.EOF

Combo1.AddItem rs1("字段名")

rs1.MoveNext

Loop

rs1.Close

例 2：

一个用户登录系统

'准备工作: 数据库D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录

'点工程->引用选中Microsoft Activex Data Objects 2.7 Library

'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()

Dim s As String

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"

'请将数据库名及路径换成你的实际数据库名及路径

Dim UserName As String

Dim Password As String

s = Text1.Text

If s = "1" Or s = "2" Then

UserName = InputBox("请输入用户名")

Password = InputBox("请输入用户密码")

sql = "Select * From [UserInfo] where User='" & UserName & "'"

'UserInfo 请换成你的实际数据表名

Rs.Open sql, Conn, 1, 3

If Rs.EOF Then

MsgBox "没有找到此用户"

Else

If Rs("Password") = Password Then

If s ="1" Then

MsgBox "123"

ElseIf s = "2" Then

MsgBox "456"

End If

Else

MsgBox "密码错误"

End If

End If

End If

End Sub

上面的例子实现了查询

如果是要添加,删除,更新等操作,只要编写相应的SQL 语句,再用

Conn.Execute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

Conn.Execute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

Conn.Execute SQL '删除用户名为aaaa 的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

Conn.Execute SQL '执行后,修改用户aaaa 的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

例 3：

Private Sub Form_Load()

Dim cnn As ADODB.Connection

Dim my_recordset As ADODB.Recordset

Dim connect_string As String

Dim statestring As String

Set cnn=New ADODB.Connection

Set my_recordset=New ADODB.Recordset

'连接Access 数据库

connect_string="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaa.mdb;Pe rsist Security Info=False"

cnn.Open connect_string

Select Case cnn.State

Case adStateClose

statestring="adStateClosed"

Case adStateOpen

statestring="adStateOpen"

End Select

'显示连接的状态

MsgBox "连接成功！",,statestring

'对wzdz 表进行查询操作

my_recordset.Open "Select * from wzdz",cnn

my_recordset.Close

End Sub

例 4：

Dim strConn As String '连接字符串

Dim strSql As String 'SQL 命令

Dim conn As ADODB.Connection '数据源

Dim Ado As ADODB.Recordset '记录集

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaa.mdb;Persist Se curity Info=False"

strSql = "SELECT * FROM bbb"

Set conn = New ADODB.Connection

conn.ConnectionString = strConn

conn.Open

VB 中怎么对数据库进行添加删除修改的操作

2009-02-28 18:58SK_PhiLChanG | 分类：数据库 DB | 浏览3085 次

我用的是DATA 控件我已经把VB 和ACCESS 2000 连接上了，VB 也能正常访问到数据了

我希望可以加几的按钮，拥有添加，删除，修改，查询的功能（相关的数据改动就在原本浏览数据的TEXT 中录入就行了）

分享到：