oeffnen von TabDelimited Dateien: adCmdText = &H0001

[lkz633]

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

[lkz633]

Hallo,

es geht auch ohne

Ich habe mein Query immer zur Designzeit geoeffnet, da klappt es nicht, mache ich es zur Laufzeit klappt es.

Da scheint es ein Bug in Delphi zu geben.

Gruss lkz633