[VB] Connessione Database ACCESS

[DarCas]

Son un programmatore ASP ed ho bisogno di tradurre questo codice:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("user.mdb")

 SQL = "SELECT * FROM topic WHERE Categoria LIKE '%" & TIPO & "%' ORDER BY Data DESC"
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open SQL, conn, 3, 3

 rs.Close
 Set rs = Nothing

conn.Close
Set conn = Nothing

in codice Visual Basic 5

M'illuminate? :master:

[DarCas]

Beh? :master:

[Gigi84]

Dim conn As new ADODB.Connection
Dim rs as New ADODB.Recordset

 conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &  Server.MapPath("user.mdb") 'Server.mapPath non so cos'è..

 SQL = "SELECT * FROM topic WHERE Categoria LIKE '%" & TIPO & "%' ORDER BY Data DESC"
 rs.Open SQL, conn, 3, 3

 rs.Close
 Set rs = Nothing

 conn.Close
 Set conn = Nothing

..praticamente è uguale.. la stringa di connessione penso che vada bene (a parte quel Server.MapPath) perchè si usa sempre ADO..

solo che nei riferimenti devi aggiungere Microsoft ActiveX Data Object!

[DarCas]

Grazie mille...

Cmq il Server.mapPath equivale a App.Path

[DarCas]

Originariamente inviato da Gigi84
[B...aggiungere Microsoft ActiveX Data Object!

[/B]

Come si fà?

[Gigi84]

PRogetto-->Riferimenti

poi lo cerchi e lo aggiungi!

[DarCas]

Un mito!

[Gigi84]

[ciko1973]

perchè a me non funziona?
Qualcuno mi illumini....vi prego!

Private Sub Comando0_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.myPath("prova_ore.mdb") 'Server.mapPath non so cos'è..

SQL = "SELECT Data FROM FoglioNumeri"
rs.Open SQL, conn, 3, 3



rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing


conn.Close
Set conn = Nothing

[Gigi84]

perchè server.mappath è una variabile ASP che in VB è app.path (come diceva DarCas)!:gren:




P.S. ..tu intedevi VB vero?!