Ayuda con Update

[aldo1982]

'declará estas variabbles para la coneccion de la db en la parte general

Public dbconn As ADODB.Connection
Public dbconn1 As ADODB.Connection
Public rs As ADODB.Recordset
Public rs1 As ADODB.Recordset


'ahora el codigo SQL para usar el update (asi lo uso yo)

Private Sub botonactualizar_Click()



'coneccion a la db
Set dbconn1 = New ADODB.Connection
dbconn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MuOnline;Initial Catalog=MuOnline"
dbconn1.Open
SQL = "UPDATE tabla SET campo = '" & text1 & "' WHERE condicion
Set rs1 = dbconn1.Execute(SQL, , adCmdText)
dbconn1.Close
MsgBox "actualizado con exito", vbInformation + vbOKOnly, "actualizacion"

End Sub
'==========================
aclaración: bue mirá loko sino ponés ningunacondición despues del where de la sentencia SQL, te actualiza todos los registros (si keres actualizar todos los registros no le pongas where, si keres por ejemplo actualizar todos los registros ke sean iguales al numero decliente por ejemplo, pones where num_clie (segun tu campo) = like '"& text1.text '"&
=======================
salu2 y espero te haya servido