Private Sub Form_Load() '此段代码的主要作用是当窗体打开时就连接数据库
Dim conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATE.mdb;Persist Security Info=False" '数据库路径
conn.Open connectionstring
End Sub
Private Sub Command1_Click()
Static n As Integer
If n >= 3 Then
MsgBox "输入密码次数大于3次，不允许继续登陆"
End
End If
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=DATE.mdb;Jet OLEDB:Database Password="
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 用户名='" & Trim(Text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "用户名不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else '检测密码正确与否
If Trim(rs_login.Fields(2)) = Trim(Text2) Then
rs_login.Close
Unload Me
Form2.Show
Else
n = n + 1
MsgBox "第" & n & "次密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
MsgBox "您已成功退出！", vbOKOnly + vbExclamation, "提示"
Unload Me
End Sub
用VB写一个登陆界面。
在VB中创建一个登录界面，首先需要定义连接数据库的代码，如：Public conn As New SqlConnection("server=(local);database=student;Integrated Security=True")这里通过`SqlConnection`创建了一个数据库连接实例`conn`，并设置了连接字符串，包括服务器、数据库名和集成安全认证。然后定义SQL命令，如：Publ...
用VB写一个登陆界面。
在VB中创建登录界面，首先需要使用SqlConnection类建立与数据库的连接。代码示例如下：Public conn As New SqlConnection("server=(local);database=student;Integrated Security=True")通过SqlCommand类设置SQL查询语句，判断用户输入的用户名和密码是否存在于登录表中。Public comm As New SqlCommand Public dr...
如何用VB连接SQL数据库做登录
1、输入服务器名称 2、使用指定的服务器信息 3、在服务器上选择数据库 这时就选择你在SQL Server建好的数据库就行了 5、测试连接可以看到连接是否成功！
VB怎么连接 SQL 数据库?
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。2、输入以下代码：“Public conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。3、代码详解：声明关键字Public（因...
VB怎么连数据库啊?
要使用VB连接数据库，首先需要创建一个名为objcn的Connection对象。在初始化此对象时，需要指定提供程序类型、数据库连接字符串以及打开数据库连接。在初始化过程中，通过.Provider = "SQLOLEDB"语句设置提供程序为SQLOLEDB。这是用于访问SQL Server数据库的提供程序。根据所使用的数据库类型，可能需要选择不...
VB如何使用ADODC控件用代码连接数据库
Microsoft ADO Data Control 6.0和Microsoft DataGrid Control 6.0ADODC控件属性设置：1、在ADODC控件上右击，选择ADODC属性2、然后在通用选项卡中选择使用连接字符串，点击生成按钮3、然后选择Microsoft Jet 4.0 OLE DB Provider，点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件)，...
vb数据库连接登录界面设计中的代码问题
在设计VB数据库连接登录界面时，要正确安装myODBC，并确保使用合适的连接字符串以确保与数据库的正常通信。针对MySQL数据库，需要了解其不同版本下ODBC驱动的使用方式。对于MySQL的3.51版本，使用ODBC连接时应采用特定的连接字符串格式。正确的连接字符串应包含驱动程序名、服务器端口、服务器地址、数据库...
如何用VB连接SQL数据库做登录
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句 cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, ...
想用VB做一个登陆界面如何和access相连接?
1、首先在部件-控件里找到MicrosoftADODataControl6.0，打勾，然后在窗体上添加Adodc1。2.添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性...
求VB登陆窗口连接ACCESS数据库的代码
1、DimobjCnAsNewConnection,objRsAsNewRecordset objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open 2、dimobjCnAsConnection SetobjCn=NewConnection objCn.Open“DSN=实例2DSN”3、ADOData控件创建连接 ...
