Problema connessione odbc

[Asso79]

Ho il seguente problema:
la stringa

Set Connessione = WorkSpace.OpenConnection("Temp", dbDriverComplete, False, "ODBC;DATABASE=db1;UID=admin;PWD=admin;DSN=db1 ")

mi dice type error mismatch.
Qual'è il problema?
Grazie.

[sir]

E' necessario avere configurato una fonte dati ODBC.

Dim wrkODBC As Workspace
Dim conODBC As Connection

'Crea l'oggetto Workspace di ODBCDirect.
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)

Set conODBC = wrkODBC.OpenConnection("Temp", dbDriverNoPrompt, , "ODBC;UID=;PWD=;DSN=db1")


bye

[Asso79]

Grazie adesso sono riuscito a collegare il database, ma ora il problema che sorge è un altro, devo visualizzare i dati contenuti nel database in una griglia, ma non ho la benchè minima idea di come collegare il database dopo aver scritto la stringa di connessione

Dim wrkODBC As Workspace
Dim conODBC As Connection

'Crea l'oggetto Workspace di ODBCDirect.
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)

Set conODBC = wrkODBC.OpenConnection("Temp", dbDriverNoPrompt, , "ODBC;UID=;PWD=;DSN=db1")

[sir]

Allora devi aggiungere nel codice:

dim rs as recordset

Set rs = conODBC.OpenRecordset("select * from tuaTabella")
Do While Not rs.EOF
'Visualizza nella finestra di debug tutti i valori del
'Fields(1) (la tabella in questo caso ha due campi)
Debug.Print rs.Fields(1) oppure rs("nome_attributo")
rs.MoveNext
Loop
conODBC.Close
wrkODBC.Close

per inserire i dati in una griglia, sostituisci il debug.print con
msflexgrid.textmatrix(riga, colonna)= rs("nome_attributo")
per la riga aggiungi un contatore i=i + 1, i= 0 lo metterai sopra il do while.

bye

[Asso79]

ho fatto una modifica e poi l'ho riprovata con lo stesso codice:

Set wrkODBC = CreateWorkspace("new", "admin", "", dbUseODBC)

Set conODBC = wrkODBC.OpenConnection("Temp", dbDriverNoPrompt, , "ODBC;UID=admin;PWD=admin;DSN=db1")

e mi dice ancora type error mismatch.

[sir]

La connessione con il driver odbc l'hai fatta?
E che tipo di driver hai utilizzato per creare la connessione??

[Asso79]

la connessione è fatta e con il driver di access (mdb)

[sir]

Se mi dai una tua e-mail di riferimento di mando l'help.

:bubu: :bubu: :bubu: :bubu: :bubu:

[Asso79]

ti ho inviato un pm

[sir]

letto, ti ho inviato l'e-mail con l'help allegato.