mauricio g
28 de Octubre del 2004

hola amigos tengo un problema

consulta en sql para ingresar datos a una tabla.en acces
ayuda algun ejemplo o codigo fuente para yo ver y ejecutar y aprender como se hace.
yo ocupo el DNS PARA CONECTARME A LA BASE DE DATO.

ESTO ES UN EJEMPLO

DIM CON4 AS NEW ADODB.CONNECTION
DIM RS3 AS NEW ADODB.RECORDSET
DIM TXTSQL AS STRING

CON4.OPEN("DSN=PROGRAMA2004")
TXTSQL ="SELECT * FROM CLIENTE WHERE RUT ='"& TEXT1.TEXT&"'"
SET RS3 =CON4.TXTCUTE (TXTSQL)

TEXT1.TEXT=RS3!(RUT)
TEXT2.TEXT=RS3!(NOMBRE)

****ESTO SOLO ME MUESTRA EL REGISTRO CON TODOS SUS CAMPOS Y YO QUIERO INGRESAR UN NUEVO REGISTRO

LO REALISE CON ESTO

RS3.ADDNEW
RS3!(RUT)=TEXT1.TEXT
...
...
...
...
ETC.
ESTO NO FUNCIONA.

AYUDA CON ALGUN EJEMPLO VB
DE ANTE MANO MUCHAS GRACIAS AMIGOS DEL FORO

Christian Petersen
28 de Octubre del 2004

Por si no quedó claro en el ejemplo anterior, en este caso no se utiliza consulta SQL para escribir datos en la tabla.

Christian Petersen
28 de Octubre del 2004

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(ruta)
Set rs = db.OpenRecordset("tabla")
rs.AddNew
rs!registro1 = dato1
rs!registro2 = dato2
rs!registro3 = dato3
rs!registro4 = dato4
rs!registron = dato5
rs.Update
rs.Close

Christian Petersen
[email protected]

suso
28 de Octubre del 2004

PARA INSERTAR DATOS CON SQL
TXTSQL="INSERT INTO CLIENTE (RUT) VALUES ('" & TEXT1.TEXT & "'"
CON4.EXECUTE TXTSQL