can not find isam

[tshow]

Option Explicit
Private varCONN As New ADODB.Connection
Private varCMD As New ADODB.Command
Private varRS As New ADODB.Recordset

Private Sub Comm8_Click()
Unload Me
End Sub

Private 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 Sub

here is all code!very easy ,but how to deal?
just like: http://search.csdn.net/expert/topic/51/5105/2003/6/4/1873378.htm

[tshow]

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

[SoHo_Andy]

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

[tshow]

天啊，没人性啊，居然就突然可以了！！
不得其解！现在想让问题重现都不行啊！！
给这个兄弟100分，后来的没有了！！
郁闷的一天!

[online]

试一下

Public Const DB_PWS = ""
Public Const DB_USERID = ""
Public Const DB_PWS = ""
Public DbFileName As String
Public conn As ADODB.Connection

Set conn = New ADODB.Connection

If Right(App.Path, 1) = "\" Then
apppath = App.Path
Else
apppath = App.Path & "\"
End If

DbFileName = 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

[tshow]

接着讨论，呵呵，后来的也有分！另外加不违规吧？
问题是这样的：
用Adodc可以先连通，然后代码也可以通过了！
如果先开一个工程，同样的代码还是报错。在里面再用adodc控件连一下，以后就可以了

百思不得其解，为什么？
应该说这段代码不长，不复杂，但问题就在这里，以前没遇到过。郁闷！

[online]

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

[tshow]

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