Connessione ODBC a FoxPro

venerdì 16 febbraio 2007 - 10.40

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

secks Profilo | Senior Member

442 messaggi | Data Invio: ven 16 feb 2007 - 10:40

Ho fatto un'origine dati a Visual FoxPro Database in Amministrazione Origine Dati ODBC su Pannello di Controllo ma non riesco a far funzionare una connessione in VB.NET del tipo:

"Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=C:\FoxPro\datibase\articoli.dbc;Exclusive=No;Collate=Machine;"

qualcuno sa indirizzarmi ad un esempio completo?

Ciao e grazie.
Paolo.

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: ven 16 feb 2007 - 12:58

Ciao, hai già dato un'occhiata qui ?

http://www.connectionstrings.com/?carrier=visualfoxpro

Ciao
My Blog... http://blogs.dotnethell.it/Mark/

secks Profilo | Senior Member

442 messaggi | Data Invio: ven 16 feb 2007 - 14:21

Si ho visto, ma non so come integrare l'istruzione sul mio sorgente. Sono le stesse istruzioni che sono sul mio primo post.

MarKonE Profilo | Guru

2.074 messaggi | Data Invio: ven 16 feb 2007 - 14:31

Ho guardato velocemente ma così a occhio mi sembra che la sintassi che hai utilizzato sia un po' diversa.

Hai modo di verifcare utilizzando esattamente quanto riportato sul sito ?

Che problemi riscontri ?

Eventualmente più tardi o stasera mi ci metto più seriamente

Ciaoooo
My Blog... http://blogs.dotnethell.it/Mark/

secks Profilo | Senior Member

442 messaggi | Data Invio: ven 16 feb 2007 - 16:41

E' la prima volta che uso un sistema ODBC, la mia è una prova in quanto dovrei caricare ed esaminare dei dei database in foxpro.

La mia prova è la seguente, provando le 2 stringhe su
da.SelectCommand = New OleDbCommand("SELECT * FROM " & sDbf, cn)
da l'errore Cast specificato non valido.

Dim sDbf As String = "Prodotti"
Dim cn As Object = CreateObject("ADODB.Connection")
Dim s As String = ""

s = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=C:\FoxPro\datibase\articoli.dbc;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO;"
s = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=C:\FoxPro\datibase;Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;"

cn.Open(s)

Dim da As New OleDbDataAdapter
Try
da.SelectCommand = New OleDbCommand("SELECT * FROM " & sDbf, cn)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

Try
cn.Open()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

Dim ds As DataSet = New DataSet

Try
da.Fill(ds, sDbf)
Catch ex As Exception
MsgBox(ex.Message)
End Try

DataGrid1.DataSource = ds.Tables(sDbf)

cn.Close()

Grazie per l'attenzione.
Ciao.
Paolo.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !