Form per connettermi a ACCESS

[Mychy]

Dim conn As Adodb.Connection


Dim rs As Adodb.Recordset
Dim rs2 As Adodb.Recordset

Dim SqlQuery As String
Dim SQL As String

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\Agenda.mdb"
'MsgBox (ConnectionString)
sql="select.."
rs.open sql, conn,3,3

end sub

[ramengo]

niente...
mi da "ERRORE DI RUN TIME '91'
"Variabile oggetto o variabile del blocco width non impostata"


:-(

[Mychy]

appath e non app.path

[Mychy]

Ritiro quello che ho detto

[ramengo]

Niente... falllto.
Il mio codice a questo punto è questo.... ma l'errore è sempre lo stesso.
Ho fatto un debug e muore alla riga
conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & AppPath & "\Agenda.mdb"

_____________________________________

Private Sub Form_Load()

Dim conn As Adodb.Connection


Dim rs As Adodb.Recordset
Dim rs2 As Adodb.Recordset

Dim SqlQuery As String
Dim SQL As String

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & AppPath & "\Agenda.mdb"
MsgBox (ConnectionString)
SQL = "select * from Rubrica"
rs.Open SQL, conn, 3, 3
End Sub

[ramengo]

Ora con app.Path è questo ma il risultato non cambia....

(purtroppo)

Private Sub Form_Load()

Dim conn As Adodb.Connection


Dim rs As Adodb.Recordset
Dim rs2 As Adodb.Recordset

Dim SqlQuery As String
Dim SQL As String

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\Agenda.mdb"
MsgBox (ConnectionString)
SQL = "select * from Rubrica"
rs.Open SQL, conn, 3, 3
End Sub

[Mychy]

Il riferimento alla libreria l'hai fatto?

[ramengo]

il mio codice è quello che vedi.. quindi suppongo di non averlo fatto.
Come si fa?

[Mychy]

Devi andare sul menù progetto->Riferimenti, poi selezioni la libreria Microsoft Active Data Object

[ramengo]

trovato il menu..
ma ce ne sono tanti simili..

Microsoft Active Data Object 2.1 library (c'era)..

poi ci sono
Microsoft Active Data Object 2.1 fino a 2.7---

Quali seleziono?