Salve,
ho un problema ad aprire con VB6 un database foxpro 8 con OLE DB.
In pratica viene aperto correttamente senza darmi errori ma quando leggo il recordset tutti i campi di tipo alfanumerico me li interpreta come binari, rendendomi impossibile la lettura dei dati.
Ho provato la procedura anche su altri Pc ma con lo stesso risultato.
Questo il codice che utilizzo per la prova:
Dim DB As New ADODB.Connection
Dim DT As New ADOR.Recordset
NOMEFILE = "Provider=VFPOLEDB.1;SourceType=DBF;Data Source=C:\foxpro;Collating Sequence=MACHINE;"
DB.Open NOMEFILE
DT.CursorType = adOpenKeyset
XSQL = "SELECT * FROM C:\foxpro\tabstam.DBF"
DT.Open XSQL, DB, adOpenKeyset
DT.MoveFirst
A$ = DT.Fields("st_descr").Value
Label1.Caption = A$
Quando visualizzo A$ vengono fuori una serie di punti interrogativi.
Se dalla finestra di debug digito print DT.Fields("st_descr").Type mi restituisce 128 che corrisponde ad "adBinary".
Anche se utilizzo l'oggetto ADO Data Control il risultato è lo stesso.
Lo stesso database aperto con DBF Viewer 2000 viene visualizzato correttamente.
Qualcuno può aiutarmi?
PitSoft

Rispondi quotando