AW: D Base
19.07.2007 15:33:00
DirkP
Hallo Heike, ich sags ja -- Solingen ist nicht weit weg ;-)
Hier der gewünschte Code, ich hoffe Du kannst noch etwas damit anfangen!
Ein kleines Code-Beispiel aus meiner Vergangenheit ;-)
Zunächst:
im VBA-Entwicklungsfenster bei EXTRAS-VERWEISE
den Haken bei
"Microsoft ActiveX Data Objects 2.5 Library"
setzen.
Ich habe bei dem alten Code "interessante Stellen"
drinne gelassen... Hoffe es hilft:
Call DbaseSchreiben(NeuerPfadname, PfadAngabe, DateiAngabe)
Private Sub DbaseSchreiben(FileIn As String, PathOut As String, FileOut As String)
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim CreateString As String
Dim Strtab As String
Dim Satz As String
Dim strFPath As String
Dim strTxt As String
' Pfad zur dBase-Datei zuweisen
strFPath = PathOut
strTxt = FileIn
Strtab = "temp.dbf"
Set cn1 = New ADODB.Connection
With cn1
.CursorLocation = adUseClient
.Provider = "microsoft.jet.oledb.4.0"
.Properties("Data Source") = strFPath
.Properties("Extended Properties") = "dBase IV"
.Open
End With
CreateString = "Create Table " & Strtab & "(" & ErzeugeCreate(strTxt) & ");"
'cn1.Execute ("Create Table Test1(Feld1 char(10), Feld2 char(20));")
cn1.Execute (CreateString)
Open strTxt For Input As #1
Line Input #1, FELDINHALT
Set rs1 = New ADODB.Recordset
With rs1
.Source = "select * from " & Strtab
Set .ActiveConnection = cn1
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
rs1.AddNew
rs1.Fields("DATENBANKFELD") = FELDINHALT
rs1.Update
rs1.Close
close #1
On Error Resume Next
Kill (PathOut & FileOut & ".dbf")
On Error GoTo 0
Name PathOut & "temp.dbf" As PathOut & FileOut & ".dbf"
msgbox "fertig mit Dbase erzeugen"
End Sub