直接数据库连接
CnString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=f:\mm5\new_face\database\forecast.mdb"
ODBC连接
CnString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=database"Dim Cn As New ADODB.Connection
Dim Cs As New ADODB.Recordset
    tProgress.Enabled = False
    Set Cn = New ADODB.Connection
    Cn.ConnectionString = CnString
    Cn.Open
    Cs.ActiveConnection = Cn
    在我本机上(装有VB)都可以运行,但在没有VB的机上用第一种方法时提示,找不到数据源或没有找到驱动,但用第二种方法是可以运行的,请回答一下,为什么,如果是缺驱动是什么?我该怎么办。

解决方案 »

  1.   

    我不要安装ACCESS和VB,还有什么方法
      

  2.   

    将程序打包安装,包中要包含  Mdac_typ.EXE别的机器可以不安装VB但ACCESS得安装
      

  3.   

    后者可以把VB的动态库拷过去,或在XP上也可以用,但不装Access就不知道行不行了没试过。
      

  4.   

    不会吧,一定要装ACCESS吗?为什么ODBC可以用
      

  5.   

    将程序打包安装,包中要包含  Mdac_typ.EXE别的机器可以不安装VBACCESS也不用安装
      

  6.   

    到微软网上下载一个mdac_typ.exe文件安装一下,最新版本为2.7
      

  7.   

    我在别的机上装了个madc_typ.exe,可还是没能用,为什么呀?
      

  8.   

    你路径有没有对啊??就用APP.PATH &"\数据库名"