Ciao a tutti.
Ho termitato il mio prg. VB6 con access 2000.
Problema: se lo installo sù win XP nessun Problema ma se lo installo sà Win ME non funge questo è il mex di errore
"Errore di runtime 3051 Il modulo Jet non è in grado di aprire il file C:/Programmi/File MDB. Il file è già aperto con accesso esclusivo da un altro utente (Impossibile) o è necessario disporre delle autorizzazioni per visualizzare i dati."
Questa e la striga di connessione
Probabilmente Access 2000 è uscito dopo di Win ME quindi per funzionare ha bisogno di un componente, che però non ho la + pallida idea di cosa sia e dove reperirlo.codice:Dim SQL As String Dim mydata As Database Dim myrecord As Recordset Private Sub Form_Load() Set mydata = OpenDatabase(App.Path + "\" + "autocar.mdb") Set myrecord = mydata.OpenRecordset("clienti") If myrecord.EOF Then MsgBox "Nessun Cliente nel database. Il database verrà creato ora!", vbInformation, "Autocar" Else myrecord.MoveFirst Do Until myrecord.EOF lstclient.AddItem myrecord.Fields("nome") myrecord.MoveNext Loop End If mydata.Close Set mydata = OpenDatabase(App.Path + "\" + "autocar.mdb") Set myrecord = mydata.OpenRecordset("marche") Do Until myrecord.EOF lstmarche.AddItem myrecord.Fields("case") myrecord.MoveNext Loop mydata.Close End Sub
Ciao e grazie a tutti (Auguri a tutti)

Rispondi quotando