can not find isam

Question

Option Explicit
Private varCONN As New ADODB.Connection
Private varCMD As New ADODB.Command
Private varRS As New ADODB.RecordsetPrivate Sub Comm8_Click()
    Unload Me
End SubPrivate Sub Form_Load()
    varCONN.Provider = "Microsoft.Jet.OLEDB.4.0"
    varCONN.CursorLocation = adUseClient
  varCONN.Mode = adModeReadWrite
  
    varCONN.ConnectionString = "user id=admin;datasource=f:\temp1\pro5\stud.mdb"
    varCONN.Open
    
End Subhere is all code!very easy ,but how to deal? 
just like: http://search.csdn.net/expert/topic/51/5105/2003/6/4/1873378.htm

Answer 1

刚不能输中文，就是同那个找不到可插入isam的问题，以前遇到过，当时解决了，可现在也不知道当时是如何解决的，用的win2000 pro，office2000,mdactype.exe的2.7，2.6,2.5都有，注册标里---/jet/4.0/isam format/中有3.X,2.x，现在问题处在那里，我愈整愈糊涂了，各位高人指路，在线等！！！分不是问题，我有4000多分！！！！！！！！！

Answer 2

Dim cn As New ADODB.Connection
Private Sub Form_Load()
    If cn.State = 1 Then
        cn.Close
    End If
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
End Sub试试这样会不会出错,如果还是出错,则需要安装数据库驱动
安装MDACTYPE

Answer 3

试一下Public Const DB_PWS = ""
Public Const DB_USERID = ""
Public Const DB_PWS = ""
Public DbFileName As String
Public conn As ADODB.ConnectionSet conn = New ADODB.ConnectionIf Right(App.Path, 1) = "\" Then
   apppath = App.Path
Else
   apppath = App.Path & "\"
End IfDbFileName = apppath & "article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                DbFileName & ";Persist Security Info=False;"
                
On Error Resume Next
With conn
 .CursorLocation = adUseClient
 .Open ConnectString, DB_USERID, DB_PWS
End With

Answer 4

接着讨论，呵呵，后来的也有分！另外加不违规吧？
问题是这样的：
用Adodc可以先连通，然后代码也可以通过了！
如果先开一个工程，同样的代码还是报错。在里面再用adodc控件连一下，以后就可以了百思不得其解，为什么？
应该说这段代码不长，不复杂，但问题就在这里，以前没遇到过。郁闷！

Answer 5

强烈建议使用adodb对象
adodc的问题比较多

Answer 6

嘻嘻，龙卷风啊，我的代码就是用的adodb库啊