Results 1 to 3 of 3

Thread: [VB6] Oggetto Recordset

  1. #1
    Enlisted Falcon's Avatar
    Join Date
    Sep 2003
    Location
    Brianza Pauah
    Posts
    3

    Default [VB6] Oggetto Recordset

    Non trovando una sezione solo per la programmazione, penso che questo sia il miglior posto per chiedere l'haiuto di tutti i programmatori di VB
    il mio scopo è visualizzare il contenuto di un database (Access 2000) in un serie di text box e non posso utilizzare il controllo Data associato ad una DataGrid per una serie di motivi che non vi sto ad elencare, quindi devo aprire il database "manualmente" ed anche l'oggetto Recordset ed il mio problema è prorprio qui:

    Dim dbsDatabase As Database
    Dim wksWorkspace As Workspace
    Dim rsRecordset as recordset

    Set wksWorkspace = DBEngine.Workspaces(0)
    Set dbsDatabase = wksWorkspace.OpenDatabase(App.Path & "Clienti.mdb", True, False)
    Set rsRecordeset = dbsDatabase.OpenRecordset("Tabella", dbOpenTable)
    ...

    Il programma si blocca all'istruzione
    Set rsRecordeset = dbsDatabase.OpenRecordset("Tabella", dbOpenTable)
    con un errore: Errore di run-time '13': Tipo non corrispondente.
    Non riesco proprio a capire cosa c'è che non va.

    Aiutoooooooooooooo
    On DAoC Italia (Vortigern):
    Falcon(Avengers)
    The uber pala (ormai in pensione )

    Exping on DAoC US (Lancelot):
    ­
    The uber healer

    Perfecter Rank 8
    Master Levels:
    ML1: 1.x [Done] Exp Completed - Purging Wave
    ML2: 2.x [Done] Exp Completed - Purify Vision
    ML3: 3.x [Done] Exp Completed - Sphere of Rejuvenation
    ML4: 4.x [Done] Exp Completed - Greatness
    ML5: 5.x [Done] Exp Completed - Font of Power
    ML6: 7.x [Done] Exp Completed - Determination Ward
    ML7: 6.x [Done] Exp Completed - Leapin Health
    ML8: 8.x [Done] Exp Completed - Soul Restoration
    ML9: 9.1, 9.2, 9.4, 9.6, 9.7, 9.8, 9.9, Exp Completed

    ­
    The uber guild

  2. #2
    Petty Officer 2nd Class Morpheus's Avatar
    Join Date
    Sep 2003
    Location
    Palemmo (AFRICA)
    Posts
    600

    Default

    Quote Originally Posted by Falcon
    Non trovando una sezione solo per la programmazione, penso che questo sia il miglior posto per chiedere l'haiuto di tutti i programmatori di VB
    il mio scopo è visualizzare il contenuto di un database (Access 2000) in un serie di text box e non posso utilizzare il controllo Data associato ad una DataGrid per una serie di motivi che non vi sto ad elencare, quindi devo aprire il database "manualmente" ed anche l'oggetto Recordset ed il mio problema è prorprio qui:

    Dim dbsDatabase As Database
    Dim wksWorkspace As Workspace
    Dim rsRecordset as recordset

    Set wksWorkspace = DBEngine.Workspaces(0)
    Set dbsDatabase = wksWorkspace.OpenDatabase(App.Path & "Clienti.mdb", True, False)
    Set rsRecordeset = dbsDatabase.OpenRecordset("Tabella", dbOpenTable)
    ...

    Il programma si blocca all'istruzione
    Set rsRecordeset = dbsDatabase.OpenRecordset("Tabella", dbOpenTable)
    con un errore: Errore di run-time '13': Tipo non corrispondente.
    Non riesco proprio a capire cosa c'è che non va.

    Aiutoooooooooooooo
    aehm se hai scritto così hai chiamato
    rsRecordset --> rsRecordeset

    quindi per lui non l'hai dichiarata (c'è una "e" in più )

    ciaps
    Postato originariamente da Creola
    "Il problema delle persone è che cercano negli altri qualità che questi non posseggono mentre dovrebbero apprezzare ed esaltare le qualità che gli altri realmente posseggono"

  3. #3
    Enlisted Falcon's Avatar
    Join Date
    Sep 2003
    Location
    Brianza Pauah
    Posts
    3

    Default

    Nu quello è un errore di trascrittura...
    On DAoC Italia (Vortigern):
    Falcon(Avengers)
    The uber pala (ormai in pensione )

    Exping on DAoC US (Lancelot):
    ­
    The uber healer

    Perfecter Rank 8
    Master Levels:
    ML1: 1.x [Done] Exp Completed - Purging Wave
    ML2: 2.x [Done] Exp Completed - Purify Vision
    ML3: 3.x [Done] Exp Completed - Sphere of Rejuvenation
    ML4: 4.x [Done] Exp Completed - Greatness
    ML5: 5.x [Done] Exp Completed - Font of Power
    ML6: 7.x [Done] Exp Completed - Determination Ward
    ML7: 6.x [Done] Exp Completed - Leapin Health
    ML8: 8.x [Done] Exp Completed - Soul Restoration
    ML9: 9.1, 9.2, 9.4, 9.6, 9.7, 9.8, 9.9, Exp Completed

    ­
    The uber guild

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
[Output: 50.53 Kb. compressed to 43.56 Kb. by saving 6.97 Kb. (13.80%)]