请帮我连接vb6进行访问。 [英] Please help me to connect vb6 to access.

问题描述

请帮帮我。我在下面的代码中尝试了所有上述想法，但我无法通过访问连接到vb6。请帮助我，并提供正确的代码，连接到vb6与访问权限。请帮帮我。



检查用户名和密码

 公开 功能 validuser（用户名作为  String ，密码作为 字符串）
 
  Dim  db 作为 字符串 
  Dim  Cmd 作为 字符串 
  Dim  sql 作为 字符串 
  Dim  Cn  As  ADODB.Connection 
  Dim  rs  As  ADODB.Recordset 
 
 db = App.Path&   \ nfl.accdb 
 '  数据源=C：\ Users \Sanat \Desktop\Class project \\\
fl.accdb 
   Cmd =Provider = Microsoft.Jet.OLEDB.4.0; &安培; _  
  数据源=& db&   
 Provider =   Microsoft.ACE.OLEDB.12.0; Data Souurce = C：\ Users \Sanat\Desktop\Class project\\\
fl.accdb; 
 '  OLEDB：数据库密码= myDbpassword  
持久安全信息=假; 
 设置 Cn = 新 ADODB.Connection 
 
 使用 Cn 
 .ConnectionString = Cmd 
。打开
 结束 使用 
 
 
 
 设置 rs = 新 ADODB.Recordset 
 
 
 sql =  从[安全]中选择*用户名LIKE'&用户名和 'and Password LIKE'&密码&  ' 
 rs.Open sql，Cn，adOpenForwardOnly，adLockReadOnly 
 
 
 如果 不 rs.EOF 然后 
 validuser =  True  
 否则 
 validuser = 错误 
 结束 如果 
 
 rs.Close 
  Set  rs =  Nothing  
 
 Cn.Close 
 设置 Cn =  Nothing  
 结束 功能 

解决方案

< blockquote>查看此



数据库访问，VB6 -data-control-tutorial [ ^ ]



希望它会有所帮助。

please help me . i have tried all above idea in this below code but i am not able to connect to vb6 with access. please help me out and provide me correct code which connect to the vb6 with access. please help me.

CHECKING Username and password

Public Function validuser(Username As String, password As String)
 
Dim db As String
Dim Cmd As String
Dim sql As String
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
db = App.Path & "\nfl.accdb"
'Data Source = "C:\Users\Sanat\Desktop\Class project\nfl.accdb"
'Cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db & ""
Provider = "Microsoft.ACE.OLEDB.12.0; Data Souurce= C:\Users\Sanat\Desktop\Class project\nfl.accdb;"
'OLEDB: Database password = myDbpassword
Persist security Info= False;
Set Cn = New ADODB.Connection
 
With Cn
.ConnectionString = Cmd
.Open
End With
 

 
Set rs = New ADODB.Recordset
 

sql = "Select * From [Security] where Username LIKE '" & Username & "' and Password LIKE '" & password & "'"
rs.Open sql, Cn, adOpenForwardOnly, adLockReadOnly
 

If Not rs.EOF Then
validuser = True
Else
validuser = False
End If

rs.Close
Set rs = Nothing
 
Cn.Close
Set Cn = Nothing
End Function

解决方案

Check this

database-access-vb6-data-control-tutorial[^]

Hope it will help.

这篇关于请帮我连接vb6进行访问。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！