visodont
07-12-2004, 11:31
Attualmente uso un programma in VB6 che sta su un solo PC e che accede al database " ACCES" con le funzioni sottoriportate e tutto funziona.
Dovrei installare il programma su una rete di computer già attivata, siete in grado di dirmi cosa dovrei fare esattamente ?
Grazie,
visodont.
____________________________________________________
Function Legge
Dim I
Dim dbArchivio As Database
Dim tAnagraf As Recordset
Set dbArchivio = DBEngine(0).OpenDatabase("C:\visodont\dati\arc.dbf )
Set tAnagraf = dbArchivio.OpenRecordset("Anagraf")
tAnagraf.movefirst
for i = 1 to 10
tAnagraf(I) = "Scrive un valore di campo qualsiasi da memorizzare"
next
dbArchivio.Close
____________________________________________________
Function Memorizza
Dim I
Dim dbArchivio As Database
Dim tAnagraf As Recordset
Set dbArchivio = DBEngine(0).OpenDatabase("C:\visodont\dati\arc.dbf )
Set tAnagraf = dbArchivio.OpenRecordset("Anagraf")
tAnagraf.edit
for i = 1 to 10
tAnagraf(I) = "Scrive un valore di campo qualsiasi da memorizzare"
next
tAnagraf.update
dbArchivio.Close
____________________________________________________
Dovrei installare il programma su una rete di computer già attivata, siete in grado di dirmi cosa dovrei fare esattamente ?
Grazie,
visodont.
____________________________________________________
Function Legge
Dim I
Dim dbArchivio As Database
Dim tAnagraf As Recordset
Set dbArchivio = DBEngine(0).OpenDatabase("C:\visodont\dati\arc.dbf )
Set tAnagraf = dbArchivio.OpenRecordset("Anagraf")
tAnagraf.movefirst
for i = 1 to 10
tAnagraf(I) = "Scrive un valore di campo qualsiasi da memorizzare"
next
dbArchivio.Close
____________________________________________________
Function Memorizza
Dim I
Dim dbArchivio As Database
Dim tAnagraf As Recordset
Set dbArchivio = DBEngine(0).OpenDatabase("C:\visodont\dati\arc.dbf )
Set tAnagraf = dbArchivio.OpenRecordset("Anagraf")
tAnagraf.edit
for i = 1 to 10
tAnagraf(I) = "Scrive un valore di campo qualsiasi da memorizzare"
next
tAnagraf.update
dbArchivio.Close
____________________________________________________