我正在尝试将Access数据库连接到Vb6。我得到的错误显示“编译未定义用户定义类型的错误“。 [英] I Am Trying To Connect Access Database To Vb6. I Got Error That Shows That " Compile Error Where User Defined Type Not Defined".

问题描述

错误 - 第4行表示编译错误用户定义的类型未定义。

 ' 检查用户名和密码 
 公共 函数 validuser（用户名作为 字符串，密码 As   String ）
 
  Dim  db 作为 字符串 
  Dim  Cmd 作为 字符串 
  Dim  sql 作为 字符串 
  Dim  Cn  As  ADODB.Connection 
  Dim  rs  As  ADODB.Recordset 
 
 db = App.Path&   \ NFL.MDB 
 Cmd =   Provider = Microsoft.Jet.OLEDB.4.0;& _ 
  数据源=& db&   
 
  Set  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>你需要添加对的引用Microsoft ActiveX Data Objects Library xx

检查：使用Microsoft Visual Basic进行ADO [ ^ ]

Error on - 4th line says that compile error " user defined type not defined.

'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.MDB"
Cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db & ""

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

解决方案

You need to add reference to Microsoft ActiveX Data Objects Library x.x
Check this: Using ADO with Microsoft Visual Basic[^]

这篇关于我正在尝试将Access数据库连接到Vb6。我得到的错误显示“编译未定义用户定义类型的错误“。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！