VB连接数据库问题
我想请问一下这个模块为什么会出错?
错误提示为
此句Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
用户定义类型未定义
完整代码如下:
Public gUserName As String '保存用户名称
Public flag As Integer '添加和修改的标志
Public gSQL As String '保存SQL语句
Public kqsql As String '保存查询考勤结果SQL语句
Public kqsql2 As String '保存查询其他考勤结果SQL语句
Public ArecordID As Integer '保存上下班记录编号
Public LrecordID As Integer '保存请假记录编号
Public OrecordID As Integer '保存加班记录编号
Public ErecordID As Integer '保存出差记录编号
Public iflag As Integer '数据库是否打开标志
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection '创建连接
Set rs = New ADODB.Recordset '创建记录集
On Error GoTo TransactSQL_Error
strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\Person.mdb"
strArray = Split(sql)
con.Open strConnection '打开连接
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
Set TransactSQL = rs '返回记录集
iflag = 1
Else
con.Execute sql '执行命令
iflag = 1
End If
TransactSQL_Exit:
Set rs = Nothing
Set con = Nothing
Exit Function
TransactSQL_Error:
MsgBox "查询错误：" & Err.Description
iflag = 2
Resume TransactSQL_Exit
End Function
Public Sub TabToEnter(Key As Integer)
If Key = 13 Then '判断是否为回车键
SendKeys "{TAB}" '转换为Tab键
End If
End Sub
Sub main()
Dim fLogin As New frmLogin
fLogin.Show vbModual '显示窗体
End Sub
在线等答案 希望回答的朋友能一直关注本贴
问题点数：100、回复次数：6Top
1 楼yy80680169（403170387的QQ空间里有很多关于JAVA初学者的帖子）回复于 2006-05-03 10:35:02 得分 0
用这段代码是不是还需要设置一些什么东西?Top
2 楼ly010101（西門吹雪）回复于 2006-05-03 10:52:53 得分 0
未引用ADO类库，引用下ADO库就可以了。Top
3 楼yy80680169（403170387的QQ空间里有很多关于JAVA初学者的帖子）回复于 2006-05-03 10:58:36 得分 0
谢谢,我是新手,具体应该怎么做呢?Top
4 楼yy80680169（403170387的QQ空间里有很多关于JAVA初学者的帖子）回复于 2006-05-03 11:59:39 得分 0
我引用过了,但是最后一段程序又出错了
------------------------------------------------
Sub main()
Dim fLogin As New frmLogin
fLogin.Show vbModual '显示窗体
End Sub
------------------------------------------------
Dim fLogin As New frmLogin 用户定义类型未定义Top
5 楼wwh999（印钞机V2.0...开发中....）回复于 2006-05-03 17:15:45 得分 0
改为：
Sub main()
Dim frm As Form
set frm=New frmLogin
frm.show 1
End Sub
Top
6 楼o2jam（）回复于 2006-05-04 10:50:00 得分 100
引用下ADO库就OK了
方法为:工程--引用--Microsoft ActiveX Data Objects XX
如果还不明白就问,我会关注此贴的:)Top
