Gestione dei Lock (era: ESPERTI aiutatemi!!!!)

[marco1970]

Salve,
sto realizzando un applicativo in vb6 sp5 con database access2000 in rete.
Vorrei un consiglio: come posso gestire il blocco dei record? tramite codice? e quale? oppure con l'oggetto "DATA"?
Mi spiego meglio se utilizzo questo codice (in rete) posso aver casini ?
(nei riferimenti ho inserito DAO 3.6)
Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase("<PercorsoArchivio>")
Set rst = dbs.OpenRecordset("xxx", dbOpenTable)
With rst
.AddNew
.fields(0)= "xxx"
.Update
.close
dbs.close
end With

COMUNQUE GRAZIE A TUTTI
Marco

[b.lory]

Ma... prima di tutto questo database in rete + o - in quanti dovrebbero connettersi ????.... secondo mio modesto parere ti direi di utilizzare accesso al database tramite ADO ( gestisce molto meglio gli accessi degli utenti ) o passare direttamente a database + performanti x reti !!!!
ciao

n.b. ci sono diversi tutorial in rete a riguardo !!!!

[marco1970]

ti ringrazio, cmq il database dovrebbe funzionare per 3/4 posti di lavoro.

potresti darmi informazioni o un esempio del metodo che mi suggerisci?

Marco

[Sypher]

Credo che lory ti stia consigliando almeno SQL Server magari non Oracle perchè se la tua preoccupazione è di avere casini sarebbe utile un buon DB, secondo me il migliore è Oracle ma SQL server va bene cmq!Accesss è abbastanza scadente ma può risultare utile per piccole applicazioni!

[b.lory]

... x 3 o 4 postazioni con un database .mdb non dovresti avere grossi problemi anche xchè presumo che sia molto difficile che 2 utenti nello stesso preciso momento vadano a modificare un record !!

potresti darmi informazioni o un esempio del metodo che mi suggerisci?...
ma dipende se sei completamente a digiuno di ADO o No !!!!

la tecnologia ADO da meno problemi che dao...

in rete ci sono parecchi esempi x una connesione mdb con ado !!!!
ciao....


Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public datamdb As String
Public vpassword As String

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
vpassword = "pippo"

datamdb = "D:\_SOFT\_lavori\mdb\database.mdb"
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.jet.oledb.4.0;data source= " & datamdb & ";jet oledb:database password=pippo", , , adAsyncConnect
sqlstring = "Select tab_vendita.*, tab_marca.marca, tab_modello.modello from ( tab_vendita left join tab_marca on tab_vendita.rel_marca = tab_marca.id_marca )left join tab_modello on tab_vendita.rel_modello = tab_modello.id_modello order by titolo"

Do While cn.State = adStateConnecting
Debug.Print "connessione in corso"
Loop
rs.Open sqlstring, cn, adOpenKeyset, adLockOptimistic, adCmdText

..... spero che ti vada bene come esempio di connessione a un db
sappi che una parte ti conviene metterla in un modulo bas ( le public )
e il rimanente nel Form_Load() che ti serve ....