vb与access数据库连接,vb与access数据库连接开发登录源代码
vb 6.0 如何连接access accdb 数据库呢？
首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library
然后在事件中就可以定义相关的变量进行连接了
下面的例子可能对您有用：
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" “数据库的路径和名字” ";Persist Security Info=True;Jet OLEDB:Database Password= "数据库密码"
sql = "Select * From “ ”表名" where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型字段的名字")
m_data= rs("数值型字段的名字")
end if
上面的例子实现了查询
如果是要添加,删除,更新等操作,只要编写相应的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
以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了
VB6.0连接access2003数据库的方法
在
工程里
找到部件
在部件里找到Microsoft
ADO
Control
6.0,勾上，点应用，工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上，VISIBLE属性设置成不可见。再拖放一个按钮，一个
文本框
，连接语句这么写：
Private
Sub
Command1_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...."
Adodc1.RecordSource="Select
*
From
ACCESS
表"
Adodc1.Refresh
'----------//这就是连接数据库字符串，要引用数据就该这么写
If
Not
Adodc1.RecordSET.EOF
Then
'---------//必须排除数据连接异常，不然查询数据时每次提示响应连接
Text1=Adodc1.RecordSet.Fields("
字段名
")
'--------让文本框显示查询列第一个记录
End
If
End
Sub
vb连接ACCESS数据库实例
对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能..... 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close