Question

VB.NET连接access 数据库问题

我刚学VB.NET 连接数据库老是不成功
最好做个登陆验证举例说明 知道的说下基本步骤
每一行简单注析下就更好了
验证成功的加多50分
拷贝别人的回答不给分
用OLEDB连接可以吗

Answer 1

'1、 新建模块
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)

Answer 2

1.如何连接Access数据库。
2.连接后如何读取数据库中的字段。
函数:
Public
Function
LinkDatabase(ByVal
AppPath
As
String)
As
String
LinkDatabase
=

Answer 3

可以。VB.NET2005能连接ACCESS,SQL等大部分数据库。

不会用代码你就用向导连接。