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