title image


Smiley Re: VB5 und DAO und dBASE
Annahmen:1.) Wir verwenden eine dBASE IV - Datenbank2.) Das Datenbankverzeichnis heißt C:\MeinVerzeichnis3.) Die Datentabelle heißt MeineTabelle.dbf; steht also unter C:\MeinVerzeichnis\MeineTabelle.dbfDann:Option Explicit Sub Main() Dim DB As Database Dim RST As Recordset Dim dBASE_Name As String Dim TableName As String  dBASE_Name = "C:\MeinVerzeichnis" TableName = "MeineTabelle"  Set DB = DBEngine.OpenDatabase(dBASE_Name, dbDriverNoPrompt, True, "dBase IV;DATABASE=" & dBASE_Name)  Set RST = DB.OpenRecordset(TableName) RST.MoveFirst  Do Until RST.EOF Dim FeldNr As Long For FeldNr = 0 To RST.Fields.Count - 1 Debug.Print FeldNr, RST.Fields(FeldNr).Name, RST.Fields(FeldNr) Next RST.MoveNext Loop  RST.Close: Set RST = Nothing DB.Close: Set DB = NothingEnd SubViel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: