Private Sub Command3_Click()
Dim respu As Integer
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "G:\Proyecto roaming global\Base.mdb")
SERIAL = Text1.Text
SIMCARD = Text2.Text
EQUIPO = Text3.Text
MARCA = Text4.Text
MODELO = Text5.Text
BATERIA = Text6.Text
CARGADOR = Text7.Text
CLIENTE = Text8.Text
CEDULA = Text9.Text
NUMERODETELEFONO = Text10.Text
ENTREGADOPOR = Text11.Text
RECIBIDOPOR = Combo1
FECHA = Label13
EQUIPOEN = Combo7
SQL = "INSERT INTO historia (SERIAL, SIMCARD, EQUIPO, MARCA, MODELO, BATERIA, CARGADOR, CLIENTE, CEDULA, NUMERODETELEFONO, ENTREGADOPOR, RECIBIDOPOR, FECHA,EQUIPOEN)"
SQL = SQL & " VALUES ("
SQL = SQL & "'" & SERIAL & "',"
SQL = SQL & "'" & SIMCARD & "',"
SQL = SQL & "'" & EQUIPO & "',"
SQL = SQL & "'" & MARCA & "',"
SQL = SQL & "'" & MODELO & "',"
SQL = SQL & "'" & BATERIA & "',"
SQL = SQL & "'" & CARGADOR & "',"
SQL = SQL & "'" & CLIENTE & "',"
SQL = SQL & "'" & CEDULA & "',"
SQL = SQL & "'" & NUMERODETELEFONO & "',"
SQL = SQL & "'" & ENTREGADOPOR & "',"
SQL = SQL & "'" & RECIBIDOPOR & "',"
SQL = SQL & "'" & FECHA & "',"
SQL = SQL & "'" & EQUIPOEN & "')"
If SERIAL = "" Or SIMCARD = "" Or EQUIPO = "" Or MARCA = "" Or MODELO = "" Or BATERIA = "" Or CARGADOR = "" Or CLIENTE = "" Or CEDULA = "" Or NUMERODETELEFONO = "" Or ENTREGADOPOR = "" Or RECIBIDOPOR = "" Or FECHA = "" Then
respu = MsgBox("Debe ingresar los datos completos y correctamente", vbExclamation, "Advertencia")
Else
con.Execute (SQL)
respu = MsgBox("Datos guardados con exito", vbInformation, "Información")
End If
pero se que es para insertar datos yo coloque este codigo para ver si lograba modificar
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"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text1.Text = Text2.Text & RS("SERIAL")
Comb7 = Combo7 & RS("EQUIPOEN")
RS.MoveNext
Loop
pero no me permite me da error, alguine me puede ayudar con esto de verdad lo necesito para ayer jejeje.
