首页 > 舞圈热闻 > 正文

【VB实例】登录功能连接Access/SQL Server数据库 Visual Basic 编程

2023-02-21 00:54:27 来源：哔哩哔哩

登录1

Private Sub Command登录_Click()

If Text密码 = "" Then

(资料图片仅供参考)

MsgBox "登录密码不能为空"

Exit Sub

End If

If Text密码 = "abc123" Then

MsgBox "登录成功"

Unload Form登录1

Form系统主页1.Show 1

Else

MsgBox "登录密码不正确"

End If

End Sub

登录2

Public login_count As Long

Private Sub Command登录_Click()

Dim 账号text As String '定义变量存储账号

Dim 密码text As String '定义变量存储密码

If Trim(Text账号) <> "" Then '输入账号不能为空

账号text = Me.Text账号 '存储录入账号到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "账号不能为空！"

Exit Sub

End If

If Trim(Me.Text密码) <> "" Then '输入密码不能为空

If Len(Trim(Me.Text密码)) < 6 Then

MsgBox "密码长度不能小于6位！"

Exit Sub

End If

密码text = Me.Text密码 '存储录入密码到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "密码不能为空！"

Exit Sub

End If

'-账号密码验证

Dim login_conn As New ADODB.Connection '连接到ACCESS数据库

With login_conn 'mdb格式连接

.ConnectionString = "Provider = microsoft.jet.oledb.4.0;data source=" & App.Path & "\db_data.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false"

.Open

End With

Dim login_rs As New ADODB.Recordset

Dim login_sql As String

login_sql = "select * from 用户表 where 账号= '" & Me.Text账号 & "' and 密码='" & Me.Text密码 & "'" '查询用户表

login_rs.Open login_sql, login_conn, adOpenDynamic, adLockOptimistic

If login_rs.EOF = False Then '循环表的内容

On Error Resume Next

user_name = login_rs.Fields("账号").Value '账号赋值到公共变量

MsgBox "登录成功"

Unload Me '关闭登录窗体

Form系统主页2.Show 1

Else

MsgBox "账号或密码错误，请重新登录"

login_count = login_count + 1 '登录错误3次，退出

If login_count = 3 Then

MsgBox "账号或密码错误达3次"

Unload Me

End If

login_rs.Close

Set login_rs = Nothing

login_conn.Close

Set login_conn = Nothing

Exit Sub

登录3

Public login_count As Long

Private Sub Command登录_Click()

Dim 账号text As String '定义变量存储账号

Dim 密码text As String '定义变量存储密码

If Trim(Text账号) <> "" Then '输入账号不能为空

账号text = Me.Text账号 '存储录入账号到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "账号不能为空！"

Exit Sub

End If

If Trim(Me.Text密码) <> "" Then '输入密码不能为空

If Len(Trim(Me.Text密码)) < 6 Then

MsgBox "密码长度不能小于6位！"

Exit Sub

End If

密码text = Me.Text密码 '存储录入密码到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "密码不能为空！"

Exit Sub

End If

'-账号密码验证

Dim login_conn As New ADODB.Connection '连接到ACCESS数据库

With login_conn 'mdb格式连接

.ConnectionString = "Provider = microsoft.jet.oledb.4.0;data source=" & App.Path & "\db_data.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false"

.Open

End With

Dim login_rs As New ADODB.Recordset

Dim login_sql As String

login_sql = "select * from 用户表 where 账号= '" & Me.Text账号 & "'" '查询用户表

login_rs.Open login_sql, login_conn, adOpenDynamic, adLockOptimistic

If login_rs.EOF = False Then '循环表的内容

On Error Resume Next

If 密码text = login_rs.Fields("密码").Value Then

user_name = login_rs.Fields("账号").Value '账号赋值到公共变量

MsgBox "登录成功"

Unload Me '关闭登录窗体

Form系统主页3.Show 1

Else

MsgBox "密码错误"

login_count = login_count + 1 '登录错误3次，退出

If login_count = 3 Then

MsgBox "密码错误达3次"

Unload Me

End If

Else

MsgBox "账号不存在"

End If

login_rs.Close

Set login_rs = Nothing

login_conn.Close

Set login_conn = Nothing

Exit Sub

登录失败错误:

MsgBox Err.Description

End Sub

登录4

Private Sub Command登录_Click()

Dim 账号text As String '定义变量存储账号

Dim 密码text As String '定义变量存储密码

If Trim(Text账号) <> "" Then '输入账号不能为空

账号text = Me.Text账号 '存储录入账号到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "账号不能为空！"

Exit Sub

End If

If Trim(Me.Text密码) <> "" Then '输入密码不能为空

If Len(Trim(Me.Text密码)) < 6 Then

MsgBox "密码长度不能小于6位！"

Exit Sub

End If

密码text = Me.Text密码 '存储录入密码到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "密码不能为空！"

Exit Sub

End If

'-账号密码验证

Adodc1.RecordSource = "Select * from 用户表 Where 账号='" & 账号text & "'" '筛选ADO控件记录

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 1 Then '

If 密码text = Adodc1.Recordset.Fields("密码").Value Then

user_name = 账号text '账号赋值到公共变量

MsgBox "登录成功"

Unload Me '关闭登录窗体

Form系统主页3.Show 1

Else

MsgBox "密码错误"

login_count = login_count + 1 '登录错误3次，退出

If login_count = 3 Then

MsgBox "密码错误达3次"

Unload Me

End If

Else

MsgBox "账号不存在"

End If

Exit Sub

登录失败错误:

MsgBox Err.Description

End Sub

登录5

Public login_count As Long

Private Sub Command登录_Click()

Dim 账号text As String '定义变量存储账号

Dim 密码text As String '定义变量存储密码

If Trim(Text账号) <> "" Then '输入账号不能为空

账号text = Me.Text账号 '存储录入账号到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "账号不能为空！"

Exit Sub

End If

If Trim(Me.Text密码) <> "" Then '输入密码不能为空

If Len(Trim(Me.Text密码)) < 6 Then

MsgBox "密码长度不能小于6位！"

Exit Sub

End If

密码text = Me.Text密码 '存储录入密码到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "密码不能为空！"

Exit Sub

End If

'-账号密码验证

Dim login_conn As New ADODB.Connection '连接到ACCESS数据库

With login_conn '连接

.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123123;Initial Catalog=test1;Data Source=(local)"

.Open

End With

Dim login_rs As New ADODB.Recordset

Dim login_sql As String

login_sql = "select * from 用户表 where 账号= '" & Me.Text账号 & "' and 密码='" & Me.Text密码 & "'" '查询用户表

login_rs.Open login_sql, login_conn, adOpenDynamic, adLockOptimistic

If login_rs.EOF = False Then '循环表的内容

'On Error Resume Next

user_name = login_rs.Fields("账号").Value '账号赋值到公共变量

MsgBox "登录成功"

Unload Me '关闭登录窗体

Form系统主页3.Show 1

Else

MsgBox "账号或密码错误，请重新登录"

login_count = login_count + 1 '登录错误3次，退出

If login_count = 3 Then

MsgBox "账号或密码错误达3次"

Unload Me

End If

login_rs.Close

Set login_rs = Nothing

login_conn.Close

Set login_conn = Nothing

Exit Sub

登录6

Public login_count As Long

Private Sub Command登录_Click()

Dim 账号text As String '定义变量存储账号

Dim 密码text As String '定义变量存储密码

If Trim(Text账号) <> "" Then '输入账号不能为空

账号text = Me.Text账号 '存储录入账号到变量中（可拓展更多判断，如字符长度等）

Else

MsgBox "账号不能为空！"

Exit Sub

End If

If Trim(Me.Text密码) <> "" Then '输入密码不能为空

If Len(Trim(Me.Text密码)) < 6 Then

MsgBox "密码长度不能小于6位！"

Exit Sub

End If

密码text = Me.Text密码 '存储录入密码到变量中

Else

MsgBox "密码不能为空！"

Exit Sub

End If

'-账号密码验证

Adodc1.RecordSource = "Select * from 用户表 Where 账号='" & 账号text & "'" '筛选ADO控件记录

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 1 Then '

' MsgBox 密码text & Adodc1.Recordset.Fields("密码").Value

Dim A1 As String

A1 = CStr(Adodc1.Recordset.Fields("密码").Value)

If 密码text = Trim(A1) Then

user_name = 账号text '账号赋值到公共变量

MsgBox "登录成功"

Unload Me '关闭登录窗体

Form系统主页3.Show 1

Else

MsgBox "密码错误"

login_count = login_count + 1 '登录错误3次，退出

If login_count = 3 Then

MsgBox "密码错误达3次"

Unload Me

End If

Else

MsgBox "账号不存在"

End If

Exit Sub

登录失败错误:

MsgBox Err.Description

End Sub

系统主页

Private Sub Form_Load()

Text账号.Text = user_name

End Sub

公共变量

Public user_name As String '记录登录账号

标签：登录成功账号密码输入账号

X 广告

国际舞讯舞圈热闻

山东威海新增本土无症状感染者6例一地划为中风险地区: 中新网威海6月1日电 (记者王娇妮)据威海市卫生健康委员会网站消息，2022年5月31日0时至24时，威海市...

四川广安：新增本土无症状感染1例新增治愈出院确诊病例17例: (抗击新冠肺炎)四川广安：新增本土无症状感染1例新增治愈出院确诊病例17例中新网成都6月1日电 (王...

北京经开区：到访过德鑫物联园区的人员请速速自查: 北京经开区新冠肺炎疫情应急指挥部31日通报，根据近日北京市新冠病毒检测阳性人员的调查情况，有阳性感...

儿童超重、肥胖现象日趋严峻四机构联合发布儿童青少年健康体重家庭行动倡议: 中新网北京6月1日电 (记者李纯)儿童节到来之际，中国健康促进基金会健康传播与促进专项基金、中华...

（上海战疫录）上海上班族：复工首日有点儿小兴奋

【VB实例】登录功能连接Access/SQL Server数据库 Visual Basic 编程

泸州老窖：有知名机构景林资产，淡水泉参与的多家机构于2月17日调研我司

全球速读：御制西湖名胜图墨墨模

躺枪是什么意思_躺枪世界头条

2001年出生的属蛇人是什么命五行属什么_焦点快报

职业资源基础知识行业公告舞蹈交流

X 广告

舞蹈联盟

青海西宁：“人间烟火”下的市场监管人身影

　　中新网西宁11月23日电题：青海西宁：“人间烟火”下的市场监管人身影　　作者李江宁范生栋 ...

英国音乐人西安“逐梦”：融入中国生活，成就音乐事业

　　中新社西安11月23日电题：英国音乐人西安“逐梦” ：融入中国生活，成就音乐事业　　中新社记者...

【VB实例】登录功能 连接Access/SQL Server数据库 Visual Basic 编程

登录1

登录2

登录3

登录4

登录5

登录6

系统主页

公共变量

舞蹈联盟

【VB实例】登录功能连接Access/SQL Server数据库 Visual Basic 编程