VB.NET连接access 数据库问题 vb.net与数据库access连接的问题
vb.net\u8fde\u63a5access\u6570\u636e\u5e93\u95ee\u98981\uff0c\u4f7f\u7528ADO connection\u5bf9\u8c61
\u9996\u5148\uff0c\u8981\u5efa\u7acbADO\u5f15\u7528\uff0c\u5b9a\u4e49connection\u8fd9\u4e2a\u7c7b\uff0c\u7136\u540e\u5b9e\u4f8b\u5316\u5bf9\u8c61\u3002
\u4ee3\u7801\u5b8c\u6210\u5982\u4e0b\uff1a
Dim objCn As New Connection, objRs As New Recordset objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\\u5b9e\u4f8b01.mdb" objCn.Open
2\uff0c\u4f7f\u7528ODBC\u6570\u636e\u6e90
\u9996\u5148\uff0c\u6253\u5f00\u7535\u8111\u4e0a\u7684ODBC\u6570\u636e\u6e90\uff0c\u5efa\u7acb\u5173\u7cfb\u3002
\u6b65\u9aa4\u5982\u4e0b\uff1a
1\uff09\uff0c\u6253\u5f00\u7535\u8111\u4e0a\u7684ODBC\u6570\u636e\u6e90
\u5982\u4e0b\u56fe\u6240\u793a\uff1a
2\uff09\u70b9\u51fb\u6dfb\u52a0
3\uff09\u547d\u540d
4\uff09\u548c\u6570\u636e\u5e93\u6e90\u5efa\u7acb\u5173\u7cfb
5\uff09\u7528\u4ee3\u7801\u5b9e\u73b0\u8fde\u63a5
dim objCn As Connection Set objCn = New Connection objCn.Open "DSN=\u5b9e\u4f8b2DSN"
3\u3001ADO Data \u63a7\u4ef6\u521b\u5efa\u8fde\u63a5
1\uff09\u53f3\u51fbdata\u63a7\u4ef6\uff0c\u9009\u62e9ADODC\u5c5e\u6027
2\uff09\u4ece\u4e09\u79cd\u8fde\u63a5\u8d44\u6e90\u4e2d\u9009\u62e9\u4e00\u79cd\u3002
\u4f7f\u7528data Link \u6587\u4ef6\uff1a\u76f4\u63a5\u70b9\u51fb\u6d4f\u89c8\uff0c\u627e\u5230\u5305\u542b\u8fde\u63a5\u5b57\u7b26\u4e32\u7684.udl\u6587\u4ef6\u5373\u53ef
\u4f7f\u7528ODBC\u6570\u636e\u6e90\u8fde\u63a5\uff0c\u5355\u51fb\u65b0\u5efa
\u9009\u62e9\u7528\u6237\u6570\u636e\u5e93\uff0c\u4e4b\u540e\u7684\u64cd\u4f5c\u8ddf2\u4e2d\u6b65\u9aa4\u4e00\u6837\u3002
\u4f7f\u7528\u8fde\u63a5\u5b57\u7b26\u4e32\uff1a\u5355\u51fb\u751f\u6210
\u6d4b\u8bd5\u8fde\u63a5
4\u3001\u4f7f\u7528\u6570\u636e\u73af\u5883\u8bbe\u8ba1\u5668\u521b\u5efa\u6570\u636e\u5e93\u8fde\u63a5
\u6dfb\u52a0\u5f15\u7528
\u53f3\u51fb\u521b\u5efa\u8fde\u63a5\uff0c\u5728\u53f3\u51fb\u60f3\u8981\u8fde\u63a5\u7684\u5c5e\u6027\uff0c\u4e4b\u540e\u7684\u64cd\u4f5c\u8ddfdata\u63a7\u4ef6\u4e2d\u4f7f\u7528\u5b57\u7b26\u4e32\u4e2d\u7684\u64cd\u4f5c\u4e00\u81f4
\u597d\u590d\u6742\u7684\u6837\u5b50 \u8fd9\u4e2a \u4e0d\u77e5\u9053\u4e0e\u6ca1\u6709\u7528
\u770b\u4e00\u4e0b
Module Module1
Public ADOConn As New ADODB.Connection
Public Adors As New ADODB.Recordset
End Module
'2、 引用
'引用adodb 7.0.3300.0
'3、 模块函数
连接函数：
Public Function LinkDatabase(ByVal AppPath As String) As String
LinkDatabase = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & "\Database.mdb;Persist Security Info=False;Jet OLEDB:Database Password=111111"
End Function
'4、 OK_Click确定登录事件
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'测试用户名及密码是否有效
ADOConn.ConnectionString = LinkDatabase(System.Environment.CurrentDirectory) '参数为当前目录位置
ADOConn.CommandTimeout = 10
ADOConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
ADOConn.Open()
Adors.Open("select * from Tables where 姓名='" & Trim(UsernameTextBox.Text) & "' and 密码='" & PasswordTextBox.Text & "'", ADOConn)
If Adors.RecordCount > 0 Then
ADOConn.Close()
MDIParent1.Show()
Me.Hide()
Else
ADOConn.Close()
MsgBox("错误:" & vbCrlf & vbCrlf & "无效用户名或密码,禁止用户登录.", MsgBoxStyle.Critical, "Error")
PasswordTextBox.Text = ""
PasswordTextBox.Focus()
End If
End Sub
'当然Adors.Open("……",ADOConn)表示查询，结果是不允许修改的，要修改必需加参数：Adors.Open("……", ADOConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
1.如何连接Access数据库。
2.连接后如何读取数据库中的字段。
函数:
Public
Function
LinkDatabase(ByVal
AppPath
As
String)
As
String
LinkDatabase
=
可以。VB.NET2005能连接ACCESS,SQL等大部分数据库。
不会用代码你就用向导连接。
扩展阅读：www.sony.com.cn ... java入门网站 ... mac蜜桃奶茶314 ... 威尼斯59859 ... 1688平台官网 ... 1688官网登录入口v ... 58官网登录 ... amazon日本 ... 免费vmess ...
