Hallo,
ich versuche schon ewig TabDelimited Files mit
ADO zu oeffnen.
Jetzt habe ich code in der
MSDN gefunden:
Code:
On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
strPathtoTextFile = "C:\Databases\"
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited"""
objRecordset.Open "SELECT * FROM PhoneList.csv", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
Mein Code ist genauso, nur das ich das benoetigte
adCmdText = &H0001 nie hatte.
Kann mir jemand helfen? Wie muss ich das in meinen Delphi Code einbinden?
Danke und Gruss
lkz633