vb登陆界面连接sql

A. 求vb做登陆界面，实现与sql的连接并管理数据库

Option Explicit
Dim cnt As Integer

Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\db1.mdb"
'app.path是一个相对路径需要把程序和数据库放到同一根目录中 上面的意思是连接数据库microsoft-4.0:需要用到工程引用Microsoft a****x- 2.5这里不写全了你可以看下

If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
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.Text = ""
Text1.SetFocus '将游标放到text1中
Else
username = Text1.Text
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then '如果记录集中字段的第2项=text2那么

Unload Me '关闭我
仓库管理系统.Show '打开仓库管理系统窗体
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
End If
End If
End If
cnt = cnt + 1 '每点一次确定cnt+1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
cnt = 0 'cnt初始次数为0
End Sub
代码如上需要俩个text来个cmd里面的username要在模块中定义意思是记录当前登陆的用户

B. VB连接SQL数据库做用户登录窗口

我的密码登陆窗源码：你自己改改就可以了。源码绝对可用

Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"

If Trim(text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
username = text1.Text
If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then

Unload Me
图书馆理系统.Show
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
text2.SetFocus
text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cnt = 0

End Sub

C. vb6.0登录界面连接和调用数据库

我一般把权限用字符串来代替:
dim admin as string=1111111111111'全部权限
dim guset as string = 010000001011111 '用mid取出来权限。0是对某个功能没权限，1是有权限
初始化界面时，判断0或1,给预显示和隐藏按钮
在执行功能时判断为1还是0给预相应的权限。

D. 用vb制作用户登陆界面还要用SQL数据库连接 ，求大神！！！

已发2.RAR

E. vb做登录界面怎么连接数据库

PrivateSubForm_Load()'此段代码的主要作用是当窗体打开时就连接数据库
DimconnAsNewADODB.Connection
DimconnectionstringAsString
connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"DATE.mdb;PersistSecurityInfo=False"'数据库路径
conn.Openconnectionstring

EndSub

PrivateSubCommand1_Click()

StaticnAsInteger
Ifn>=3Then
MsgBox"输入密码次数大于3次，不允许继续登陆"
End
EndIf
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource=DATE.mdb;JetOLEDB:DatabasePassword="
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then'检测用户名正确与否
MsgBox"用户名不能为空，请重新输入！",vbOKOnly+vbExclamation,"错误"
Text1.SetFocus
Else
sql="select*from验证WHERE用户名='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"用户名不存在，请重新输入！",vbOKOnly+vbExclamation,"错误"
Text1=""
Text1.SetFocus
Else'检测密码正确与否
IfTrim(rs_login.Fields(2))=Trim(Text2)Then
rs_login.Close
UnloadMe
Form2.Show
Else
n=n+1
MsgBox"第"&n&"次密码错误，请重新输入！",vbOKOnly+vbExclamation,"错误"
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub

PrivateSubCommand2_Click()
MsgBox"您已成功退出！",vbOKOnly+vbExclamation,"提示"
UnloadMe
EndSub

F. vb用户登录界面,用户登陆的代码,连接SQL Server数据库的

Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection

'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=001234;Initial Catalog=Mydatabase;Data Source=MERRYCHINA" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from A用户表 ORDER BY ID"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("姓名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入口令!", 64, "提示"
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择帐号!", 64, "提示"
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM A用户表 WHERE 姓名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show
Unload Me
Else
MsgBox "口令不对,请重新输入!", 64, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个
' 3) 在SQL Server2000中创建数据库"MyDatabase",新建表"A用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定

G. 如何用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数据库建立连接获得的字符串。

H. vb中如何设计登录界面怎么连接数据库

（1）新建数据库并命名为denglu，在该数据库中新建表User1,表包含的列为“ID,username,pwd”。
（2）设计登录界面Frmlogin，以及登录成功后要显示的界面Form2,并连接到数据库，使包含在数据库中的合法用户能成功登录该程序，而不合法用户则无法进入程序。

I. vb6.0制作登陆界面连接sql2000问题

你提供的是库文件名，这个没有用，你需要提供库名及表名。
假设库名为“图书管理”，表名为“书籍信息”，表中有五列，列名为：序号、书名、类别、出版社、单价。序号设为标识列且为主键。
请你事先在“工程\引用”里勾选“Microsoft ActiveX Data Objects 2.0 Library”，以包含对ActiveX数据对象的引用。
增加5个文本框Text3~ Text7及两个命令按钮command2和command3。

Option Explicit
Dim myCnn As New ADODB.Connection '声明一个连接对象。
Dim myRs As New ADODB.Recordset '声明一个记录集对象。
Dim myStr As String '声明连接字符串。

Private Sub Form_Load()
command2. Enabled=False
'给连接字符串赋值，连接方式为：本地登录，Windows验证。
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书管理;Data Source=."
myCnn.ConnectionString = myStr
End Sub

Private Sub command1_Click()
If Trim(Text1.Text) = "小李飞刀" and Trim(Text2.Text) = "1234567" Then
command2. Enabled=True
MsgBox "登录成功！你可以进入数据库检索书籍信息了。"
Else
MsgBox "你输入的用户名或密码不对，请核对后重新登录！"
End If
End Sub

Private Sub command1_Click()
Dim StrSQL As String
StrSQL = "select * from 书籍信息 where 序号='" & Trim(Text3.Text) & "'"
myCnn.Open
myRs.Open StrSQL, myCnn, adOpenStatic, adLockReadOnly
If myRs.RecordCount = 1 Then
‘在文本框中回显图书信息
Text4.Text=myRs("书名")
Text5.Text=myRs("类别")
Text6.Text=myRs("出版社")
Text7.Text=myRs("单价")
Else
MsgBox "库中没有你要检索的图书！"
End If
myRs.Close
myCnn.Close
End Sub

Private Sub command3_Click()
Set myRs = Nothing
Set myCnn = Nothing
End
End Sub

功能：
在Text1中输入用户名“小李飞刀”，在密码框Text2中输入密码“1234567”，弹出对话框提示登录成功。程序自动接入到数据库。
然后在Text3中输入你要检索的书的序号，点击命令按钮command2，程序会搜索数据库，然后将库中相应的图书信息（书名、类别、出版社、单价）回显在文本框Text4~ Text7中。
点击命令按钮command3后，程序会关闭数据库，并退出本程序。