Question

VB账号密码和数据库绑定

我要用VB账号密码和数据库进行绑定，也就是说输入的账号密码和数据库中的对应实现验证，我用了DATA控件，感觉无法实现，有高手指教吗？有人提示用代码可以实现。
你好，请问是您自己的吗？ 我要的是ACCESS 忘说了 对不起。

Answer 1

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
我做的仓库管理系统的登录窗其中的username是在模块中定义的意思是记录当前登陆用户

Answer 2

上面的代码可以实现的，
但是，看起来有点烦
不如加一个控件
这个容易，
更好懂
QQ
95868240

Answer 3

仅供参考
Dim SQLStr As String, SQLStr2 As String, SQLStr3 As String
Dim code As String
Dim table As DataTable = Nothing
Dim DataChanged As Boolean, saveString As String
Public fromwhere As String
Public gHeight As String, fontStyle As String, ebaStyle As String
Dim RecControl As Control, vrCode As String
Dim maxNo As Integer, dr2 As SqlDataReader = Nothing, viUsercode As String
Dim gDate As String
Dim copConnStr As String
Dim cnn As SqlConnection, da As SqlDataAdapter, ds As DataSet
Dim cmd As SqlCommand
Dim dr As SqlClient.SqlDataReader
Dim datar As SqlDataReader
Dim puconn As New SQLDatabase
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dr As SqlDataReader = Nothing
If Session("uid") = "" Then '防止非法登录
Response.Write("<script>")
Response.Write("alert('请先登录!')")
Response.Write("</script>")
Response.Write("<script language=javascript>history.go(-1);</script>")
' Response.Write("<Script Language='javascript'>window.open('../default.aspx','','Status=yes,scrollbars=yes,resizable=yes,width='+(screen.availWidth-10)+',height='+(screen.availHeight-50)+',top=0,left=0');window.opener=null;this.self.close();</script>")
Exit Sub
End If

copConnStr = "Data Source=(local);Initial Catalog=luo;Persist Security Info=True;User ID=sa;Password=dyxjzxmtjtn" '$$$$$
puconn.ConnectionString = Session("copconnstr").ToString
puconn.OpenDBConnection()
cnn = New SqlConnection(copConnStr)

If Not Page.IsPostBack Then '防止页面刷新时重复执行，丢失页面修改的结果
code = Request.QueryString("code")
gDate = Request.QueryString("gstdate")
gstWhereCondition = ""
ClearControl()
InitiateCombos()
SQLStr = "Select * from HrRecruit where re_recode='" + code + "'"
table = puconn.GetDataTable(SQLStr)
If table.Rows.Count > 0 Then
Me.modeMainTable.Value = "EDIT"
Me.newRecord.Value = False
gDisplayResultset(Me.Controls, table)
Else
Me.modeMainTable.Value = "ADD"
Me.newRecord.Value = True
End If
DataChanged = False
End If
If Session("Height") < 601 Then
fontStyle = "font-small.css"
ElseIf Session("height") < 800 Then
fontStyle = "font-small.css"
ElseIf Session("height") < 1025 Then
fontStyle = "font-large.css"
Else
fontStyle = "font-large.css"
End If
gHeight = "310px"
Me.GridView1.DataSource = CreateDataSource(GridView1)
Me.GridView1.DataBind()
End Sub

Answer 4

Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sq1 As String

Public Sub OK_cmd_Click() '用Public 公共过程,让Userform12中能够调用
If 操作员 = "" Or 密码 = "" Then
MsgBox "操作员和密码不能为空,请填写完整...", vbCritical, "系统登录"
操作员.SetFocus
Exit Sub
End If
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Data.mdb" & ";User ID=; Jet OLEDB:database Password = 6318"
sq1 = "select * from 用户表 where 操作员='" & 操作员 & "'"
rs1.Open sq1, cn, adOpenKeyset, adLockOptimistic

If rs1.Fields("密码") = 密码.Text And rs1.Fields("用户名") = 用户名.text Then
'进入........

rs1.Close
cn.Close
Set rs1 = Nothing
Set cn = Nothing
endif
end sub