VB6 - problemi iniziali

[angelicab]

Salve!
Stavo cominciando un programmino in Vb6... solo che appena ho cominciato..già i primi problemi.. questo è il codice che ho scritto:

Dim dbAss As Database
Dim rsMacchine As Recordset
Dim rsAgenzie As Recordset

Private Sub Form_Load()

'On Error Resume Next

Set dbAss = OpenDatabase(App.Path & "\db\db1.mdb")

strSQL = "SELECT * FROM Agenzie_entrate order by cod_agenzia"
Set rsAgenzie = dbAssist.OpenRecordset(strSQL)

strSQL = "SELECT * FROM Registro_carico order by contatore"
Set rsMacchine = dbAssist.OpenRecordset(strSQL)


'Genera la combo delle agenzie
If rsAgenzie.EOF Then Exit Sub
While Not rsAgenzie.EOF
cmb_aaEntrate.AddItem rsAgenzie!codagenzie
cmb_aaEntrate.ItemData(cmb_aaEntrate.NewIndex) = rsAgenzie!contatore
rsAgenzie.MoveNext
Wend
rsAgenzie.Close

'Genera la combo delle Macchine
If rsMacchine.EOF Then Exit Sub
While Not rsMacchine.EOF
cmb_mod1.AddItem rsMacchine!cod_modello
cmb_mod1.ItemData(cmb_mod1.NewIndex) = rsMacchine!contatore
rsMacchine.MoveNext
Wend
rsMacchine.Close


'Set rsLicenza = dbscad.OpenRecordset("SELECT * FROM Licenza WHERE IDlicenza = 1")
'licragsoc = rsLicenza!licragsoc
'licpiva = rsLicenza!licpiva
'rsLicenza.Close

dbAss.Close

End Sub

Allora..
su "Dim dbAss As Database" mi da questo errore: "tipo definito dall'utente non definito"...

Se tolgo quella dichiarazione mi da "Sub o Function non definita" e si blocca sull'OpenDatabase...

Uff..

Poi altra cosa.. perchè quando inserisco il codice non compare la tendina di completamento automatico??

[tas]

Se non sbaglio, stai usando DAO per accedere ai dati. Ti serve quindi l'aggiunta al progetto di tale libreria, vai sul menu Progetto/Riferimenti e metti la spunta a "Microsoft DAO 3.x Object Library". Ciao

[angelicab]

grazie mille!!!

[angelicab]

uffi.. ora su " Set rsAgenzie = dbAss.OpenRecordset(strSQL)" mi dice "Tipo non corrispondente" ...

[tas]

Probabilmente hai caricato altre librerie (ADO?) che espongono dei tipi di dato con lo stesso nome (Recordset, per esempio). Controlla l'elenco delle librerie (menu Progetto/Riferimenti) ed elimina quelle che non servono, lasciando ovviamente quelle fondamentali (Visual Basic For Applications, Visual Basic runtime objects and procedures, Visual Basic objects and procedures, OLE Automation).

Oppure prova così, nelle dichiarazioni:

Dim dbAss As DAO.Database 
Dim rsMacchine As DAO.Recordset 
Dim rsAgenzie As DAO.Recordset

[angelicab]

Ri-grazie!!!