标题: 一个自定义函数，系统提示错误，请问何原因？ [打印本页] 作者: yanwei82123300 时间: 2010-2-1 07:37 标题: 一个自定义函数，系统提示错误，请问何原因？ 在各位老师的帮助下写一个自定义函数：Public Function EWstr(ByVal XMstr As String, ByVal CFstr As String) As String
Dim YWstr As String
Dim i As Integer
Dim RSsql As New ADODB.Recordset
Set RSsql = New ADODB.Recordset
RSsql.Open "select ITEM from tblATPfromPlanningg where CO_NUMBER='" & XMstr & "' and LN='" & CFstr & "'", CurrentProject.Connection, 1, 1
If Not (RSsql.EOF) Then
For i = 1 To RSsql.RecordCount
YWstr = YWstr & ";" & RSsql!ITEM
RSsql.MoveNext
Next i
EWstr = YWstr
Else
EWstr = ""
End If
RSsql.Close
Set RSsql = Nothing
End Function
但是现在系统提示有错误请帮助看看怎么回事？在别人的电脑上就没问题，奇怪谢谢作者: leijiqiang 时间: 2010-2-1 08:06
Dim RSsql As New ADODB.Recordset 这个用到的组件应该没有注册造成的作者: xuwenning 时间: 2010-2-1 08:59
类库名：ADODB
类库文件绝对路径：\\\\\ado\msado21.tlb
是否内建：False作者: yanwei82123300 时间: 2010-2-1 10:27
请问如何注册，如何设置作者: yanwei82123300 时间: 2010-2-1 11:57
求各位老师帮助，非常急，系统都停止了作者: yanwei82123300 时间: 2010-2-2 17:53
没办法，将系统格了作者: leijiqiang 时间: 2010-2-5 12:26
Microsoft ActiveX Data Objects 2.8引用 试试作者: LeeTien 时间: 2010-2-21 09:04
楼上说的对
没用引用 ADO API
在VB界面工具-》引用 里添加
