UC知道求教VB调用access的问题 急
来源：百度知道 编辑：UC知道 时间：2024/06/25 18:58:56
本人用VB制作一个登陆界面需要调用ACCESS 输入帐号和密码就可以登陆 ACCESS中内容包括帐号和密码,请问相应的代码是什么
比如Imports System.Data.OleDb
Public Class frm_AddUserData
Inherits System.Windows.Forms.Form
Dim MyConnection As NewOledbConnection(“Provider=Microsoft.Jet.OLEDB._4.0;Data Source=” & Applicaton.StartupPath & “\User.mdb”)
Dim MyCommand As OleDbCommand
Dim MyUser As OleDbUserData
但程序运行起后显示错误, 麻烦哪位高手说下 感激不尽
有可能的话在说下该程序中确定按钮的代码
比如Imports System.Data.OleDb
Public Class frm_AddUserData
Inherits System.Windows.Forms.Form
Dim MyConnection As NewOledbConnection(“Provider=Microsoft.Jet.OLEDB._4.0;Data Source=” & Applicaton.StartupPath & “\User.mdb”)
Dim MyCommand As OleDbCommand
Dim MyUser As OleDbUserData
但程序运行起后显示错误, 麻烦哪位高手说下 感激不尽
有可能的话在说下该程序中确定按钮的代码
Set adoCon = New ADODB.Connection '数据库联接
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
Dim denglu As String
If Combo1.ListIndex = 0 Then '管理员登陆
denglu = "select count(*) from 管理员 where user='" & Trim(txtUserName.Text) & "'"
denglu = denglu & "and pwd='" & Trim(txtPassword.Text) & "'"
Set adoRS = adoCon.Execute(denglu)
If adoRS(0) = 0 Then
MsgBox "您输入的帐号或密码有误，请重新输入！", vbOKOnly + vbExclamation, "多功能教学管理辅助系统"
End If
Exit Sub
End If
ID = Trim(txtUserName.Text)
LoginSucceeded = True
Form2.Show
frmLogin.Visible = False
Me.Hide