求大牛帮助！

这个好像不大可能的吧，Adodc是通用的，Windows系统都有的啊！看是不是其他的问题(用可能有问题)！

好的~~谢谢啦，我再找找问题！

是什么情况？具体一点！是数据库联不上还是其它什么原因？

对，是数据库关联不上，跟adodc控件有关的操作都会出错。在有vb的电脑上完全是正常的

出错?????

用VB自带的打包向导打包试试

adodc控件！我从不用，也不会用。
都是直接写的，
Public Sub OpenConn() '连接数据库过程
  If Dir(App.Path & "\data\data.mdb") = "" Then
  MsgBox "数据库丢失！"
  Exit Sub
  End If
    Set Db = CreateObject("ADODB.Connection")
    Db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\Data.mdb;Jet OLEDB:Database Password=vbPassword;Persist Security Info=False;"
End Sub

Public Sub CloseConn() '关闭数据库连接
    'Rs.Close
    'Set Rs = Nothing
    Db.Close
    Set Db = Nothing
End Sub

sub Jlj()'创建记录集过程
call connopen'调用数据库连接
set rs=createobject("adodb.recordset")'创建对象
rs.open"select * from 表名",db,1'打开记录集
rs.pagesize=100'如果要分页，此为设置每页显示的记录数量
if not rs.eof or not rs.bof then'如果记录集不为空
rs.absolutopage=1'设置要显示记录集中的页码
rs.recordcount'返回记录集的总记录数
rs.pagecount'返回记录集的总页数
do while not rs.eof'循环显示记录集中的所有记录
txt1.seltext=rs!字段名 & vbcrlf
rs.movenext
loop
else'如果记录集为空
msgbox "没有记录"
end if
rs.close
call closeconn'调用关闭数据库
end sub

^_^ …………











[ 本帖最后由 zhuiis 于 2011-9-3 22:58 编辑 ]

如果配合 Listview控件使用，我觉得很好。