Italian Problema con openDB sul device

Ciao a tutti.
Ho realizzato una applicazione per gestire un DB rubrica.
Il mio problema è che nel PC funzione perfettamente,
nel device non fa la openDB di rubrica.
Non mi da errori, mi dice solamente opendb = false.
Mi è venuto il dubbio che nel device non esiste l'Access.
Attendo con ansia il vostro aiuto.
Ciao a tutti.


ppc: HTC diamond

Caro Corrado,
puoi postare un po di codice ; tipo di dll utilizzate ; tipo db gestito ;
come vuoi che NOI EGREGI ed ECCELLENTI MAESTRI :BangHead: ti si possa dare il NOSTRO INCOMMENSURABILE AIUTO :icon_clap:

Ciao,

giannimaione said:

Caro Corrado,
puoi postare un po di codice ; tipo di dll utilizzate ; tipo db gestito ;
come vuoi che NOI EGREGI ed ECCELLENTI MAESTRI :BangHead: ti si possa dare il NOSTRO INCOMMENSURABILE AIUTO :icon_clap:

Ciao,

Click to expand...

Ciao Gianni. Scusami, ma non sono abituato a dialogare nei forum,
Spero in futuro di essere più chiaro possibile nelle richieste.
Giustamente come hai chiesto ti posto il codice.
Ho utilizato le dll: db200 ADODB inteface.dll, e ADODB.dll
con un DB access-97

Sub Globals
'Declare the global variables here.
Dim db
Dim cn
Dim sl
End Sub

Sub App_Start
Form1.Show
openDataBase
End Sub

Sub openDataBase
LibDB.New1
db = AppPath & "\DBrubrica.mdb"
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
LibDB.ConnectionString(cn)

If LibDB.OpenDB(3) = True Then
Msgbox ("open db = " & LibDB.OpenDB(3))
Else
Msgbox ("open db = " & LibDB.OpenDB(3))
End If

If FileExist ("DBrubrica.mdb") = True Then
Msgbox ("File True")
Else
Msgbox ("File False")
End If

sl = "SELECT * from rubrica"
if LibDB.OpenTable(sl, 3, 0, 3) = False Then
Msgbox (LibDB.ErrorCheck(True))
End If

label1.Text = = LibDB.ReadField("cognome")
Label2.text = LibDB.ReadField("nome")

End Sub

Ciao. Attendo con ansia la tua risposta.