Italian Problema con openDB sul device

Discussion in 'Italian Forum' started by corrado, Feb 25, 2009.

  1. corrado

    corrado Member Licensed User

    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
     
  2. giannimaione

    giannimaione Well-Known Member Licensed User

    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,
     
  3. corrado

    corrado Member Licensed User

    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.
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice