Cita:
Iniciado por Kruzado 
en la consulta sql debemos definis si los datos son numericos o texto, en caso de que sean numericos tu sentencia sql tendria que ser algo como :
SQL = "UPDATE EQUIPO SET SERIAL =" & TEXT1.TEXT & " WHERE EQUIPOEN =" & COMBO7.text
Set RS = con.Execute(SQL)
en caso de ser alfanumericos la sentencia quedaria asi como esto
SQL = "UPDATE EQUIPO SET SERIAL = '" & TEXT1.TEXT & "' WHERE EQUIPOEN ='" & COMBO7. text & "'"
la diferencia pasa por las cremillas, cuando son alfanumericos debes colocarlos entre cremillas y obviamente concatenar los valores, porque si colocas text1.text dentro de las cremillas, si revisas la consulta saldria algo como "serial=text1.text" y no toma el valor re tex1, se entiende? espero que si
espero te sirva
hoal hermano fijate lo probe cietamente ya no me da error pero no cumple la funcion de modificar los datos coloc que este codigo
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "G:\Proyecto roaming global\Base.mdb")
SERIAL = Text1.Text
EQUIPOEN = Combo7
SQL = "UPDATE EQUIPO SET SERIAL = '" & Text1.Text & "' WHERE EQUIPOEN ='" & Combo7.Text & "'"
Set RS = con.Execute(SQL)
lo pruebo y no modifica nada,
no se que pasa hay...
lo hice de esta manera:
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "G:\Proyecto roaming global\Base.mdb")
SQL = "UPDATE EQUIPO SET SERIAL =" & Text1.Text & " WHERE EQUIPOEN =" & Combo7.Text
Set RS = con.Execute(SQL)
y me dice error pocos parametros. faltaba 1. antes decia 2 ahora dice uno