vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: DBase Datenbank öffnen - ADO 
Autor: Paddy
Datum: 18.08.04 18:06

Leider verstehe ich nicht so ganz wie das gemeint ist.

An welcher Stelle muss ich dem Command-Objekt die Connection zuweisen?
Ich benutze dBase III & meine Datei heisst Test.dbf

' Datenbank-Treiber
Const JET_ENGINETYPE_DBASE3 = &H10
Const JET_ENGINETYPE_DBASE4 = &H11
Const JET_ENGINETYPE_DBASE5 = &H12

' Settings für die Connection
Const cstrDatabase As String = "C:\TEST\"
Const cstrUsername As String = ""
Const cstrPassword As String = ""

Set conn = New ADODB.Connection

With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = cstrDatabase
.Properties("Jet OLEDB:Engine Type").Value = JET_ENGINETYPE_DBASE3
.Open
End With

Set cmmDBF = New ADODB.Command
With cmmDBF

.CommandText = "Select * from TEST"
.CommandType = adCmdText
Connection = "C:\TEST\TEST.dbf"
.ActiveConnection = Connection


End With

Set rsDBF = New ADODB.Recordset
With rsDBF
.Source = "Select * from TEST"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.ActiveConnection = Connection
End With

End Sub

mfg Paddy
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DBase Datenbank öffnen - ADO1.766_Peter10.08.04 15:26
Re: DBase Datenbank öffnen - ADO1.046SL17.08.04 10:51
Re: DBase Datenbank öffnen - ADO1.394Paddy18.08.04 18:06
Re: DBase Datenbank öffnen - ADO1.219SL19.08.04 09:53

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel