vb连接ACCESS登录问题

来源：百度知道编辑：UC知道时间：2024/05/12 15:18:22

Private Sub Form_Load()

Dim connectionstring As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"
conn.Open connectionstring

cnt = 0

End Sub

Private Sub Command1_Click()

Dim SQL As String

Dim rs_Login As New ADODB.Recordset

If Trim(Text1.Text) = "" Then ' 判断输入的用户名是否为空

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

Text1.SetFocus

Else

SQL = "select * from 教师帐号表 where 帐号='" & Text1.Text & "'"

rs_Login.Open SQL, conn, adOpenKeyset, adLockPessimistic

If rs_Login.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

Text1.SetFocus

Else ' 检

把这段代码放Private Sub Command1_Click() 里面
Dim connectionstring As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"
conn.Open connectionstring

connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"

Dim rs_Login As New ADODB.Recordset '删除这一行

set rs_Login=new ADODB.Recordset '加上一这行
rs_Login.Open SQL, conn, adOpenKeyset, adLockPessimistic

vb连接ACCESS登录问题 vb连接access的问题 VB连接ACCESS的问题 VB连接ACCESS中的一个问题 VB与ACCESS连接的问题求救啊！VB与Access连接问题！ vb的access连接问题，需急救!!! VB连接ACCESS 登陆设计问题 VB中连接ACCESS数据库出现问题 VB Combo连接Access数据库问题