VB6+ACCESS对数据库进行添加删除项目

附件2：

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

例1：

首先，在工程里引用microsoft activex data objects2.7library

Dim cn As New ADODB.Connection,rs1As 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 Objects2.7Library

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

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中怎么对数据库进行添加删除修改的操作

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

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

分享到：

Private Sub Command1_Click()

For i=0To5

Text1(i).Text=""

Next i

Adodc1.RecordSource="select*from"&s1&"order by编号"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount>0Then

Adodc1.Recordset.MoveLast

Text1(0).Text="G"+Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")),4))+1), "0000")

Else

Text1(0).Text="G0001"

End If

End Sub

Private Sub Command2_Click()

If Adodc1.Recordset.EOF=False Then

c=MsgBox("您确认要删除该记录吗？",vbOKCancel,"删除提示信息")

If c=vbOK Then

Adodc1.Recordset.Delete

Adodc1.RecordSource="select*from人员表"

Adodc1.Refresh

End If

Else

MsgBox"当前数据库中没有可删除的数据记录",vbOKOnly,"提示信息"

End If

End Sub

Private Sub Command3_Click()

If Text1(0).Text=""Or Text1(1).Text=""Then

MsgBox"请选择需要改动的记录信息！",vbOKOnly,"错误提示"

Else

c=MsgBox("确定要修改该记录吗？",vbOKCancel,"提示信息")

If c=vbOK Then'如果确认修改的话进行修改操作

If Text1(1).Text=""Then

MsgBox"姓名不能为空值!",48,"修改信息提示"

Else

'连接所要修改的数据库

con.Open"Provider=SQLOLEDB.1;Password=2752;Persist Se curity Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

'开始修改数据库

con.Execute("UPDATE"&s1&"SET姓名='"&Text1(1). Text&"',年龄="&Text1(2).Text&",学历='"&Text1(3).Text&"',年级="&Text1(4).Text&",入学时间='"&Text1(5).Text&"'where编号='"&Trim(Text1(0))&"'")

MsgBox"信息修改成功",64,"修改信息提示"

con.Close

Adodc1.RecordSource="select*from人员表"

Adodc1.Refresh

End If

End If

End If

End Sub

Private Sub Command4_Click()

Adodc1.RecordSource="select*from人员表where编号='"+Text1(0).Text+"'"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount>0Then

MsgBox"该信息已存在，信息保存不成功",64,"保存信息提示"

Else

cc=MsgBox("您确定要保存该信息吗？",33,"信息保存提示")

If cc=vbOK Then

If Text1(1).Text=""Or Text1(2).Text=""Or Text1(3).Text=""Or Text1(4).Text= ""Or Text1(5).Text=""Then

MsgBox"请确认，人员的姓名、年龄、学历、年级和入学时间不能为空",48,"保存信息提示"

Else

con.Open"Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User I D=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

con.Execute("insert into人员表values('"&Text1(0).Text&"','"&Text1(1).Text &"','"&Text1(2).Text&"','"&Text1(3).Text&"','"&Text1(4).Text&"','"&Text1(5).Text &"')")

MsgBox"信息修改成功",64,"修改信息提示"

con.Close

Adodc1.RecordSource="select*from人员表"

Adodc1.Refresh

End If

Else

End If

End If

Set DataGrid1.DataSource=Adodc1

End Sub

给你段代码参考下，这个就是添加，删除，修改的代码。不过我用的是SQL2000你要吧代码稍微修改一下的，呵呵，祝你成功！