当前位置:首页 » 编程语言 » vbsql登录程序
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

vbsql登录程序

发布时间: 2022-09-24 12:57:31

⑴ vb sql登陆代码

你用了Adodc组件绑定的话很慢的.像你上面的代码在正式客户开发时,上面的代码是通不过的,原因有以下几点,1.代码结构流程设计不符合规范,2.代码的执行效率很低,3.代码可用性很低等等.

用下面的方法,在工程菜单中选择引用,在列表中选中 Microsoft ActiveX Data Object 2.1

Dim cnn As New Connection

Private Sub Command1_Click()
Dim rs As New Recordset
Dim mstrsql As String
Dim user, pass As String
user = Text1.Text
pass = Text2.Text

Set rs = New Recordset
mstrsql = "select * from 用户表 where 用户名='" & user & "'"
rs.Open mstrsql, cnn, adOpenStatic, 1

If rs.RecordCount > 0 Then
If pass <> rs("密码") Then
MsgBox "密码错误!"
Else
If Combo1.Text = "普通用户" Then
If rs("类别") <> 0 Then
MsgBox "类别错误!"
End If
Else
If rs("类别") <> 1 Then
MsgBox "类别错误!"
End If
End If
End If
Else
MsgBox "无此用户!"
End If
rs.Close
Set rs = Nothing

End Sub

Private Sub Form_Load()
'连接数据源
Set cnn = New Connection
cnn.Open "dsn=yjzw" '使用DSN连接数据库
End Sub

Private Sub Form_Unload(Cancel As Integer)
'关闭数据连接
cnn.Close
Set cnn = Nothing
End Sub

⑵ 如何用VB连接SQL数据库做登录

VB连接SQL数据库,可通过ADO数据对象和SQL结构化查询语言实现。

  1. ADO (ActiveX 数据对象), 这项新的数据访问技术的特性包括:更简单的对象模型;与其它 Microsoft 和非 Microsoft
    的技术更好的集成;为本地和远程数据数据提供的通用接口;可远程访问的和断开的记录集;用户可访问的数据绑定接口;以及层次结构的记录集。

  2. 结构化查询语言(Structured Query Language)简称SQL,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。

  3. 代码示例:

    Private Sub XPButton1_Click()

    On Error GoTo finish '防错代码,防止意外而导致的退出

    sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"

    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=**;Pwd=***;Data Source=**;Initial Catalog=***"

    cn.Open

    rs.CursorLocation = adUseClient

    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    '以上使用最通用的方法来查询数据库中是否有匹配的记录

    If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的

    If pnum < 2 Then 'pnum就是密码验证次数,当次数超过3次,系统会自动保护退出

    pnum = pnum + 1

    MsgBox "用户名或密码错误!", vbInformation, "错误次数:" & pnum

    rs.Close

    cn.Close

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    Exit Sub

    Else

    MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"

    End

    End If

    Else

    loginname = rs.Fields(0)

    Form1.Show

    rs.Close

    cn.Close

    End If

    Exit Sub

    finish:

    MsgBox Err.Description

    rs.Close

    cn.Close

    End Sub

  4. 注意cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。

⑶ 如何用VB连接SQL数据库做登录

VB连接数据库方式主要有两种,一是通过ODBC接口,ODBC是windows系统里提供的接口,专门连接数据库的,可以连接多种数据库,在应用电脑的设置ODBC,也就DSN数据源(下面说到的),连接到服务器。
第二种就是ADO方式,
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。

VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。

⑷ 如何用VB连接SQL数据库做登录

使用ADODC控件,设置adodc控件的ConnectionString 属性为"Provider=SQLOLEDB.1;Password=数据库登录密码;Persist Security Info=True;User ID=数据库登录名;Initial Catalog=数据库名称;Data Source=服务器名称或IP地址"
然后设置Adodc1.CommandType=表名或者SQL数据源
Adodc1.RecordSource=表名或者SQL语句
adodc1.Refresh
以上就已经连接上一个指定的数据源了,接下来就可以进行各种操作啦

⑸ 如何用VB连接SQL数据库做登录

一、配置ODBC数据源
1、在控制面板中,双击管理工具,然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中,单击“添加”按钮,打开“创建新数据源”对话框,在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框,在“名称”文本框输入新数据源的名称,描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证
。选连接SQL默认设置
5、再下一步下一步,完成。测试数据源看连接是否成功就行了。成功后按确定。

二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性,选择使用连接字符串,按生成。
3、选择Mircosoft OLE DB Providar for SQL Server
按下一步
4、
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择你在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功!

⑹ 如何用VB连接SQL数据库做登录

一、界面设计

各控件名称属性分别为:label1 、text1 、label2、text2、commandok、cmdcancel

二、代码设计如下:

1、首先添加一个模块,写上以下通用声明和Sub main():

Public conn As ADODB.Connection '通用(声明)
Sub main()
Set conn = New ADODB.Connection '通用(main)
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码
conn.Open
frmLogin.Show '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub

2、在Frmlogin 代码窗口,为cmdok控件写以下代码:
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用户名文本框内为空,则出现提示框
End If
If text2.Text = "" Then
MsgBox "密码不能为空!", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若输入密码文本框为空,也出现提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "

3、书写SQL代码,查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已连续三次输入错误,系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me '若用户连续输入3次错误密码,则系统关闭
Else
MsgBox "对不起,用户名不存在或密码错误 !", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登录成功,则隐藏当前窗体
Form2.Show '然后显示Form窗体
End If
End With
End Sub

Private Sub cmdCancel_Click()
End '若单击Cmdcel按钮,则结束应用程序
End Sub

4、运行中存在的问题:
代码中有Dim conn As adodb.connection,运行时显示"用户定义类型未定义"
解决方法:点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”

⑺ 如何用VB连接SQL数据库做登录

VB连接SQL数据库,可通过ADO数据对象和SQL结构化查询语言实现。

  1. ADO (ActiveX 数据对象), 这项新的数据访问技术的特性包括:更简单的对象模型;与其它 Microsoft 和非 Microsoft
    的技术更好的集成;为本地和远程数据数据提供的通用接口;可远程访问的和断开的记录集;用户可访问的数据绑定接口;以及层次结构的记录集。

  2. 结构化查询语言(Structured Query Language)简称SQL,是一种特殊目的的编程语言,是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统。

  3. 代码示例:

    Private Sub XPButton1_Click()

    On Error GoTo finish '防错代码,防止意外而导致的退出

    sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"

    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, adOpenDynamic, adLockOptimistic

    '以上使用最通用的方法来查询数据库中是否有匹配的记录

    If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的

    If pnum < 2 Then 'pnum就是密码验证次数,当次数超过3次,系统会自动保护退出

    pnum = pnum + 1

    MsgBox "用户名或密码错误!", vbInformation, "错误次数:" & pnum

    rs.Close

    cn.Close

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    Exit Sub

    Else

    MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"

    End

    End If

    Else

    loginname = rs.Fields(0)

    Form1.Show

    rs.Close

    cn.Close

    End If

    Exit Sub

    finish:

    MsgBox Err.Description

    rs.Close

    cn.Close

    End Sub

  4. 注意cn.ConnectionString此句需依据实际的SQL数据库建立连接获得的字符串。