自己编写的dll,在程序中使用了该dll文件。现在的问题是,所编写的程序在xp系统上运行没有任何问题,但是在2000下面调用自己编写的那个dll时就会提示activex component can't create object。
dll已经注册,那位大虾能给解决一下?谢谢了
dll已经注册,那位大虾能给解决一下?谢谢了
解决方案 »
- vb透明图像为什么边缘不透明?
- 试试楼主修改功能
- 用datacombo控件绑定了数据源后,一次只能显示八条纪录,能不能实现显示多几条记录?或者全部显示
- datagrid控件表头(第一行)自动换行!!!
- 如何用vb修改注册表
- 新手提问:如何判断向数据库中添加数据成功,用ado方法,不用adodc控件
- 哪位有电子版的<<VB API开发参考大全>>?
- ◆欢迎来到CSDN-VB 数据库 论坛◆为了论坛的发展,友情提醒:你结贴了吗?◆没有可用分提问的网友请给版主发短消息◆请不要随意送分,欢迎
- 急!哪里有最新注册版的crystal report下载?小弟不胜感激
- 如何使图片自适应picture控件的大小?
- 帮忙段代码,谢谢
- 悬20分,求一段处理字符串的代码!
Function GetInfoX(Optional WhereClause As String = "1=1", Optional FiledList As String = "*")
Dim MyItemArr() As New HBIM_Market.Trade
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open ConnStr
Rs.Open "Select " & FiledList & " from Market_Basic_Trade where " & WhereClause & " Order By IOrder", Conn, 3, 2
If Rs.RecordCount = 0 Then
'MsgBox "没有符合条件的信息"
GetInfoX = 0
Exit Function
Else
ReDim MyItemArr(Rs.RecordCount - 1)
For i = 0 To Rs.RecordCount - 1
MyItemArr(i).ID = Rs!ID
MyItemArr(i).Name = Rs!IName
MyItemArr(i).Code = Rs!ICode
MyItemArr(i).Order = Rs!IOrder
Rs.MoveNext
Next
End If
Rs.Close
Conn.Close
GetInfoX = MyItemArr
End Function