Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    VB& ODBC in automatico

    Ciao a tutti...domanda veloce veloce:

    Ho questa funzione per creare l' ODBC in automatico ma non mi prende l' indirizzo del mio .mdb....cosa sbaglio??

    codice:
       Dim Attribs As String
       Attribs = "Description=ODBC AUTO FROM VB6" & Chr$(13)
       Attribs = Attribs & "OemToAnsi=No" & Chr$(13)
       Attribs = Attribs & "Network=DBNMP3" & Chr$(13)
       Attribs = Attribs & "Address=C:\RadanJumpSub" & Chr$(13)
       Attribs = Attribs & "Database=Radan Libreria.mdb"
       DBEngine.RegisterDatabase "RADANJUMPSUB", "Microsoft Access Driver (*.mdb)", False, Attribs
    Grazie mille!

  2. #2
    Moderatore di Programmazione L'avatar di LeleFT
    Registrato dal
    Jun 2003
    Messaggi
    17,320

    Moderazione

    Visual Basic viene trattato nel forum "Visual Basic e .NET Framework".

    Inoltre, come specificato nel Regolamento interno, è necessario specificare la versione di VB utilizzata ed utilizzare i tag CODE per il codice.


    Sposto, in attesa di conoscere la versione.


    Ciao.
    "Perchè spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
    Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza

  3. #3
    è VB6...mi sono sbagliato nel scrivere il 6 con il &...
    cmq è VB6...e al max posso postare le dichiarazioni e la dll che viene usata.

    Const ODBC_ADD_SYS_DSN = 5
    Const vbAPINull As Long = 0&

    Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
    (ByVal hwndParent As Long, ByVal fRequest As Long, _
    ByVal lpszDriver As String, ByVal lpszAttributes As String) _
    As Long


    Sub Try_New_DataSource()

    Dim Attribs As String
    Attribs = "Description=ODBC AUTO FROM VB6" & Chr$(13)
    Attribs = Attribs & "OemToAnsi=No" & Chr$(13)
    Attribs = Attribs & "Network=DBNMP3" & Chr$(13)
    Attribs = Attribs & "Address=C:\RadanJumpSub" & Chr$(13)
    Attribs = Attribs & "Database=Radan Libreria.mdb"
    DBEngine.RegisterDatabase "RADANJUMPSUB", "Microsoft Access Driver (*.mdb)", False, Attribs

    End Sub

    Grazie mille!

  4. #4
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    1. Perchè usi ODBC (vecchia), invece di OleDB (più moderna e migliore)?
    2. Perchè usi il driver di Access, invece del JET 4.0?
    3. Cosa c'entra la funzione SQLConfigDataSource con il tuo codice, dato che non è utilizzata?
    4. DBEngine mi sembra si riferisca a DAO (obsoleto), se così perchè usarlo, invece di ADO (più moderno e migliore)?


  5. #5
    Ciao, intanto grazie.
    Cmq uso quel che ho trovato...hai soluzioni migliori?


    Ciao

  6. #6
    Ps..SQLConfigDataSource ho sbagliato a copiarla

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.