[VB6] maschera update

[pierpaolo234]

ciao,non conosco vb
e dovrei fare una maschera che cliccando un tasto
aggiorna tutti i record del db
inserendo una data
mi aiutate????
grazie

[pierpaolo234]

nessuno sa come si fa???

[Johnny_Depp]

per il VB esiste un apposito subforum: nel regolamento è ben specificato

(sei inoltre invitato ad aggiungere/specificare nel titolo la versione di VB da te utilizzata... 6 o .NET?)

altrimenti come facciamo ad aiutarti?

[pierpaolo234]

per essere infrante!!!
ihi hi hi
:-)))

[pierpaolo234]

help

[pierpaolo234]

che mi da una mano
perfavore

[pierpaolo234]

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Command1_Click()
Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
Dim SQL, ConnStr As String
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\archivio.mdb"
conn.Open ConnStr
SQL = "Update Socio set iscrizione = 31/12/2004"
rs.Open SQL, conn, adOpenDynamic, adLockOptimistic
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub


ma mi da errore quando clicco
run time 3001
perche