vb关闭mysql连接_怎样用vb联接sql数据库,进行添加删除

adoodc控件没用过

我一般是这样写的：

'菜单栏-工程-引用-勾选microsolf activex data objects x.xx library (x.xx为版本号)-确定

'声明窗体变量,也可声明全局变量

dim conn As New ADODB.connection

dim rs As New ADODB.Recordset

dim strsql As String

dim cnstr As String

dim TJ As String

Private Sub Form_Load()

‘连接数据库

conn.CursorLocation = adUseClient

cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.mdb;Jet OLEDB:Database Password=" ’这里的数据库地址，可用绝对地址或相对地址，无密则留空

conn.ConnectionString = cnstr

conn.Open cnstr

End Sub

Private Sub Command1_Click()’查询按钮 ps:text6下面的类别是什么？多条件查询可改一下查询语句即可

if rs.state=adstateopen then rs.close '每次查询前检测表是否打开，打开时则关闭表

TJ=text6.text

strsql = "select * from 表名 where 字段名 ='" & TJ & "'" ‘适当修改表名，查询的了段名

rs.Open strsql, conn, 3, 3

if rs.eof then

msgbox"要查询的名称不存在！"

else

'这里假设你的字段从左到右分别 名称，座机，手机，邮箱，职务

text1.text= rs(0)

text2.text=rs(1)

text3.text=rs(2)

text4.text=rs(3)

text5.text=rs(4)

end if

rs.close '关闭表

End Sub

Private Sub Command2_Click() '删除

'这里是查询后，再删除查询用的记录，用text1作查询条件

If Text1.Text <> "" Then

Dim maval As Integer

myval = MsgBox("确定要删除记录？要删除记录请选择“是”继续操作?", vbYesNo + vbQuestion, "提示")

If myval = vbYes Then

If rs.State = adStateOpen Then rs.Close'同样的，先检查表的打开状态

strsql = "select * from 表名 where 字段名 =" & Text1.Text & ""

rs.Open strsql, conn, 3, 3

If rs.EOF Then

MsgBox "该名称不存在！", , "提示"

Else

rs.Delete

rs.Update '删除后要先更新再关闭表

text1.text=""'清空文本框，省略text2-5的

msgbox"记录已成功删除！"

End If

rs.close

end if

End Sub

Private Sub Command3_Click() '添加

If rs.State = adStateOpen Then rs.Close'同上

'这里加一段代码检查要添加的数据是否完整，(略)

strsql = "select * from 表名 where 字段名 =" & Text1.Text & ""

rs.Open strsql, conn, 3, 3

if rs.eof then'判断数据是否存在!确保记录的唯一性

rs.addnew

rs(0)=text1.text

rs(1)=text2.text

rs(2)=text3.text

rs(3)=text4.text

rs(4)=text5.text

rs.update

else

msgbox"记录不存在！"

end if

rs.close

End Sub

'好吧，基本上就是这样的，来来去去也是那几句

取消

评论