Installierbares ISAM nicht gefunden
Gerhard Fuchs
Ich versuche, mit folgenden Code-Zeilen eine Access97-Datenbank zu öffnen:
Public DBConn As ADODB.Connection
Public SQLSTMT As String
Public rst As ADODB.Recordset
'Datenbank öffnen
Dim Connstring As String
Connstring = "DataSource=e:\eigene Dateien\vb6\programme\abteilung
201\betrzins.mdb;Provider=Microsoft.Jet.OLEDB.4.0"
Set DBConn = New ADODB.Connection
DBConn.ConnectionString = Connstring
DBConn.Open
SQLSTMT = "Select * from Datenjahr1 where nr = 1 order by Monat, Tag"
rst.Open SQLSTMT, DBConn, adOpenDynamic, adLockOptimistic
In der Befehlszeile DBConn.Open bricht das Programm ab mit der
Fehlermeldung:
Laufzeitfehler '-214746259(80004005)
Installierbares ISAM nicht gefunden.
Der Verweis "MS ActiveXDataObjects 2.5 Library" ist gesetzt.
MDAC_TYPE 2.6 SR1 ist installiert, VB6 ist mit SR5 installiert.
Kannst mir jemand sagen, was hier nicht richtig läuft?
Vielen Dank für Eure Hilfe
Gerhard Fuchs
Gerhard Fuchs
"Gerhard Fuchs" <kol...@htp-tel.de> schrieb im Newsbeitrag
news:9ju2bq$c09$1...@kilbeggan.xlink.net...
> Übrigens habe ich auch noch Jet4.0 SP3 installiert, trotzdem geht nichts!?
>
>
>
Peter Fleischer
bei mir funktioniert Dein Codeschnipsel. Als Ursache würde ich eine
fehlerhafte Registrierung der Jet40 annehmen.
Teste Dein Programm mal, nachdem Du die Jet40SP5 installiert hast.
Setze den Projektverweis auf die von Dir installierte ADO2.6 (MDAC2.6).
Probier mal, ob Du mit dem ADODC oder DataEnvironment eine funktionierende
Verbindung mit der Jet40 zu Deiner Datenbank aufbauen kannst.
Peter
Gerhard Fuchs <kol...@htp-tel.de> schrieb in im Newsbeitrag:
9ju2bq$c09$1...@kilbeggan.xlink.net...
...
Olaf Rabbachin
> In der Befehlszeile DBConn.Open bricht das Programm ab mit der
> Fehlermeldung:
>
> Laufzeitfehler '-214746259(80004005)
> Installierbares ISAM nicht gefunden.
>
> Der Verweis "MS ActiveXDataObjects 2.5 Library" ist gesetzt.
> MDAC_TYPE 2.6 SR1 ist installiert, VB6 ist mit SR5 installiert.
>
> Kannst mir jemand sagen, was hier nicht richtig läuft?
Schau mal in die Access-FAQ: www.donkarl.com, in Deinem Fall Punkt 7.10 -
Installierbares ISAM nicht gefunden.
HTH & bis dann,
Olaf
Gerhard Fuchs
bisher habe ich die Verbindung immer mit DataEnvironment oder ADODC
aufgebaut, weil es mir so beigebracht wurde..
Provider ist dort MS Jet 4.0 OLE DB - ich habe damit keinerlei Probleme.
Jetzt wollte ich mal die Verbindung selbst herstellen (siehe Codeschnipsel)
und das ISAM wird nicht gefunden.
Den Projektverweis habe ich auf ADO 2.6 gesetzt. Jet40SP5 ist auch
installiert.
Ich habe es auch auf einem 2. PC versucht, indem ich dort neu die
Entwicklungsumgebung installiert habe:
1. VB6
2. VB6SR5
3. MDAC_TYPE 2.6 SR1
4. Jet40SR5
Auch dort kommt der ISAM-Fehler!?
Arbeite ich mit ADODC oder DataEnvironment ist alles in Ordnung.
Gerhard
"Peter Fleischer" <peter.fleis...@gmx.de> schrieb im Newsbeitrag
news:9ju9va$eua$03$2...@news.t-online.com...
Peter Fleischer
entschuldige bitte. Ich war wohl doch zu oberflächlich (ich hatte Dein
beispiel abgetippt). Dein gepostetes Beispiel war:
> Connstring = "DataSource=e:\eigene Dateien\vb6\programme\abteilung
> 201\betrzins.mdb;Provider=Microsoft.Jet.OLEDB.4.0"
Die Jet erwartet im ConnectionString mindestens den Provider und die
Datenquelle. Wenn dort ein Schreibfehler (wie bei Dir) ist, dann kommt der
Fehler "ISAM nicht gefunden". Ich kann die Fehlerausschrift reproduzieren.
Die Jet erwarte als Datenquelle eine Eintragung mit dem Schlüsselwort "Data
Source". Wichtig ist das LEERZEICHEN zwischen Data und Source. Vielleicht
ist das Dein Problem.
Peter
Gerhard Fuchs <kol...@htp-tel.de> schrieb in im Newsbeitrag:
9k0efn$45l$1...@kilbeggan.xlink.net...
...
> bisher habe ich die Verbindung immer mit DataEnvironment oder ADODC
> aufgebaut, weil es mir so beigebracht wurde..
> Provider ist dort MS Jet 4.0 OLE DB - ich habe damit keinerlei Probleme.
>
> Jetzt wollte ich mal die Verbindung selbst herstellen (siehe
Codeschnipsel)
> und das ISAM wird nicht gefunden.
> Den Projektverweis habe ich auf ADO 2.6 gesetzt. Jet40SP5 ist auch
> installiert.
>
> Ich habe es auch auf einem 2. PC versucht, indem ich dort neu die
> Entwicklungsumgebung installiert habe:
> 1. VB6
> 2. VB6SR5
> 3. MDAC_TYPE 2.6 SR1
> 4. Jet40SR5
>
> Auch dort kommt der ISAM-Fehler!?
...
Gerhard Fuchs
das fehlende Leerzeichen war genau das Problem.
Nun habe ich das Problem, das ich ein Datagrid mit dem Recordset füllen
will. Es bleibt aber leer.
Folgenden Code :
Public conBetr As ADODB.Connection
Public sqlBetr As String
Public rsBetr As ADODB.Recordset
'Datenbank öffnen
Dim conString As String
conString = "Data Source=" & VerzeichnisBetrZins &
";Provider=Microsoft.Jet.OLEDB.4.0"
Set conBetr = New ADODB.Connection
Set rsBetr = New ADODB.Recordset
conBetr.ConnectionString = conString
conBetr.Open
rsBetr.ActiveConnection = conBetr ------------ ist diese Zeile
notwendig???
sqlBetr = "Select * from Datenjahr1 where nr = 1 order by Monat, Tag"
rsBetr.Open sqlBetr, conBetr, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rsBetr
Es passiert rein gar nichts - das Datagrid bleibt einfach leer!
Versuche ich es mit einem MSHFlexgrid, wird dieses gefüllt! Wo ist der
Unterschied?
Zum MSHFlexgrid hätte ich eine weitere Frage: Wie kann ich ROW für ROW vor
und zurück blättern?
Ich weiss, es ist vielleicht ein bischen viel auf einmal, aber es wäre
schön, wenn ihr mir weiter helfen könnt.
Danke
Gerhard Fuchs
"Peter Fleischer" <peter.fleis...@gmx.de> schrieb im Newsbeitrag
news:9k0vk2$a8n$03$3...@news.t-online.com...
Peter Fleischer
mit Recset.CursorLocation = adUseServer (Standard, wenn con.CursorLocation =
adUseServer) und IRowSetIdentity = False (Standard) zeigt das DataGrid nix
an. Schau mal auf www.gssg.de oder auf
PRB: DataGrid Not Populated Using Jet.OLEDB.4.0 Provider and ADO Server Side
Cursor
ID: Q224192
Peter
Gerhard Fuchs <kol...@htp-tel.de> schrieb in im Newsbeitrag:
9k42i1$7jk$1...@kilbeggan.xlink.net...
...
> Public conBetr As ADODB.Connection
...
> Set rsBetr = New ADODB.Recordset
> conBetr.ConnectionString = conString
> conBetr.Open
> rsBetr.ActiveConnection = conBetr ------------ ist diese Zeile
> notwendig???
> sqlBetr = "Select * from Datenjahr1 where nr = 1 order by Monat, Tag"
> rsBetr.Open sqlBetr, conBetr, adOpenKeyset, adLockOptimistic
>
> Set DataGrid1.DataSource = rsBetr
>
> Es passiert rein gar nichts - das Datagrid bleibt einfach leer!
...