Newsgroup: it.comp.appl.access
Titolo: [OT] problemi data access error programma in vb

realizzando un programma in vb quando apro il programma utilizzando un data 
control per colloquiare con un db access ottengo il messaggio "data access 
error" ora ho provato a installare mdac_typ 2.8 ma nulla poi mi hanno detto 
che il 2.8 non include più il jet allora ho provato con la mdac 2.6 ma non 
cambia nulla l'errore rimane,
quindi ho provato a includere il file dao360.dll nel mio progetto e a 
registrarlo con regsvr32 dopo l'installazione ma nulla
ma che cosa ci vuole per poter usare un database access su quallasiasi PC 
con Visual Basic?
grazie 

 ha scritto nel messaggio news:42fb2e48$0$8483$5fc...@news.tiscali.it...

Mah!
Io sto' portando avanti un piccolo programmino in VB6 dove ho già avuto modo di accedere ai dati (foglio xls o mdb) tramite DAO o 
ADO; per necessità ho scelto DAO e non ho nessun problema.
Ho testato il compilato su pc con solo il S.O. (Win2000/XP) e non ho avuto bisogno di nulla...
Ciao.
-- 
Sergio MAZZA 

[CUT]
Ciao,
Sergio ha pienamente ragione ->  verifica bene se sei agganciato al db nella 
maniera giusta...

 ha scritto nel messaggio 
news:pGHKe.48153$2U1.2...@news3.tin.it...

l'hò agganciato tramite un data control classico di vb
come avere creato il file di setup?

 come avere creato il file di setup?
Non ti seguo -> che significa come si crea il file di setup? ti riferisce al 
setup dell'installazione del progetto creato in vb? 

 come avere creato il file di setup?
Scusa, prova ad inserire (se manca) nel progetto i riferimenti alla libreria "Microsoft DAO..." e prova questo pezzo di codice:
'---
      Dim strSQl As String
      Dim dbDAO As DAO.Database
      Dim rstDAO As DAO.Recordset
      Set dbDAO = OpenDatabase(App.Path & "\nomeFileMdb.mdb", True, True)
       strSQl = "Select * From Tabella;"
    Set rstDAO = dbDAO.OpenRecordset(strSQl)
    Do While Not rstDAO.EOF
        msgbox "valore campo: " & rstDAO(1)
        rstDAO.MoveNext
    loop
set rstDAo = nothing
set dbDAO = nothing
'---
"...e vediamo l'effetto che fa...".
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:wgSKe.49574$2U1.2...@news3.tin.it...

si intendo quello, non c'è un modo di creare un setup che pensi lui ai file 
e alle dipendenze da includere nel setup del programma come accade per il 
runtime di access?

 Sergio MAZZA
provo ti faccio sapere grazie. 

[CUT]
Certo che sei forte Sergio -> metti caso che si trova con qualche migliaio 
di record (prelevati ad es. da Biblio o da Northwind giusto per testare il 
db...) si divertirą  con l'Msgbox ! ;-)
Ciao hombre

 ha scritto nel messaggio news:ca0Le.50285$2U1.2...@news3.tin.it...

Dici che sono stato un tantino cattivello?
Ciao.
-- 
Sergio MAZZA 


No...per carità -> in fondo potevi consgiliare un do ...loop con 1 
condizione che non si sarebbe avverata mai ! ;-)
Buona giornata :-) 

 Sergio MAZZA
provato il codice con data1 nella form mi dice che il db è già usato da 
admin in pc ufficoo se tolgo data1
allora funziona
??????????? 

 Sergio MAZZA
a quanto pare essendo aperta la form con il controlla data1 considera il db 
già in uso e quindi quando eseguo codice del tipo:......................in 
cui riutilizzo lo stesso db và in errore confermate?
    Dim DB As Database
    Dim RS As Recordset
    If Dir("C:\Programmi\prova.mdb") <> "" Then
        Set DB = OpenDatabase("C:\Programmi\prova.mdb")
        Set RS = DB.OpenRecordset("select * from proverbi where 
proverbi.id
=" & num)
        PrelevaProverbio = "il proverbio di oggi. " & RS!proverbio
        RS.Close
        DB.Close
        Set RS = Nothing
        Set DB = Nothing
    End If 

    End If
Forse hai l'mdb aperto in modalità esclusiva, oltre al fatto che hai tolto, nel codice VB, l'impostazione di apertura dell'mdb in 
modalità NON esclusiva...
Ciao.
-- 
Sergio MAZZA