要不给介绍个VB开发COM的网站吧!
解决方案 »
- MFC 编辑框焦点问题
- 如何读取一个被加密过的文件,不需要解密,只是将数据读取并存放在缓存区内
- 关于原始套接字及ICMP协议报头的问题??
- 请问如何显示Adobe Illustrator所保存的图像格式的文件(如.eps,.ai)
- 请问QQ在聊天的同时又能在窗口中发送文件是如何实现的?
- 问一下用户可以自定义事件是从202到多少了?
- 请问Create和new有什么本质的区别~(内有具体问题)
- 请帮小弟
- 我的win2k的COM组件有问题,如何不用重装机修复,替换旧的DLL行不行啊?(很容易)
- MFC.......WIN32 API
- 请教CSocket 的问题
- 谁知道VC下如何调用VB中调用的activex dll
Dim myRst As ADODB.Recordset
Dim usrData As New Collection
Dim usrInfo As UserInfo
On Error GoTo ErrHandler
Set myRst = DBUtil.getRst()
myRst.Open "select * from user_info"
Do While Not myRst.EOF
Set usrInfo = New UserInfo
usrInfo.usrId = myRst.Fields("ID").Value
usrInfo.usrName = myRst.Fields("NAME").Value
usrInfo.usrAge = myRst.Fields("AGE").Value
usrInfo.usrAddr = myRst.Fields("ADDRESS").Value
usrInfo.usrPhone = myRst.Fields("PHONE").Value
usrData.Add usrInfo
myRst.MoveNext
Loop
Set getUsrInfo = usrData
Exit Function
ErrHandler:
Set myRst = Nothing
End Function
Dll中这样:
Public Function getValue() As Recordset
cnn.Open ("testDLL")
Set rst1 = cnn.Execute("select * from testTable")
rst1.MoveFirst
Set getValue = rst1
End Function表单中这样:
Private Sub Form_Load()
Set addValue = New dbdll
Set tempRST = addValue.getValue()
dataSetup
End Sub
Private Sub dataSetup()
txtID.Text = tempRST("id") & ""
txtName.Text = tempRST("name") & ""
txtPWD.Text = tempRST("passWord") & ""
End Sub做了上一、首条、下一、末条记录的按纽。
但按完上一再按下一会出现“行集不支持反响取”的错误?