
17/07/2007, 12:50
|
| | Fecha de Ingreso: abril-2007
Mensajes: 88
Antigüedad: 18 años Puntos: 0 | |
Re: Modificar datos wenas tardes veran yo se que para modificar es algo similar a insertar pero para yo insertar lo hago de esta manera
Private Sub Command1_Click()
Dim respu As Integer
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "\\Kctm16n\My BD\2007\Roaming Global\Base\Base.mdb")
SERIAL = Text1.Text
SIMCARD = Text2.Text
EQUIPO = Combo1
MARCA = Combo2
MODELO = Combo3
BATERIA = Combo4
SQL = "INSERT INTO AGREGAR (SERIAL, SIMCARD,EQUIPO,MARCA, MODELO,BATERIA)
SQL = SQL & " VALUES ("
SQL = SQL & "'" & SERIAL & "',"
SQL = SQL & "'" & SIMCARD & "',"
SQL = SQL & "'" & EQUIPO & "',"
SQL = SQL & "'" & MARCA & "',"
SQL = SQL & "'" & MODELO & "',"
SQL = SQL & "'" & BATERIA & "')"
con.Execute (SQL)
end sub
osea no uso ado, ahora nose si alguno de ustedes sabe como puedo modificar con ese codigo o simplemente ingreso un obejto ADO.??? |