GRABAR DATOS CON SQL EN MSDE

Amigos
Saludos

Estoy comenzando a programar con SQL y estoy utilizando MSDE, tengo
algunas lineas de codigo para grabar en la tabla Datos.

He probado la conexion y esta funciona por que muestra la consulta pero
cuando mando a grabar no guarda la informacion

Por favor si me pueden ayudar Gracias.

Este es el codigo:

Local lnconex As Integer
lnconex =SQLCONNECT('msde','Sircod')

If SQLEXEC(lnconex,'Select * from Datos ','vDatos')>0
Select vDatos
Browse
Else
=Messagebox('No se pudo ejecutar la Instrucción SQL')
Endif

= SQLSETPROP(lnconex, 'Transactions', 2) < 0&& Transacciones manuales.
= SQLEXEC(lnconex, "INSERT INTO Datos (Placa, Marca) VALUES
('28A-DAH','MACK')")
= SQLCOMMIT(lnconex) && Graba los cambios.

If SQLEXEC(lnconex,'Select * from Datos ','vDatos')>0
Select vDatos
Browse
Else
=Messagebox('No se pudo ejecutar la Instrucción SQL')
Endif
= SQLDISCONNECT(lnconex)

Darwin Quintero
Venezuela

No revisas que es lo que te retorna la función SQLExec() al momento de
insertar, deberías *siempre* estar checando esos valores:

Uso de AERROR() para errores ODBC
http://www.panoramabox.com/GoPub.aspx?IdObj!81

Crear Aplicaciones Cliente-Servidor con Visual FoxPro
http://www.panoramabox.com/GoPub.as...bj"03

eFrontEnd, Proyecto de Ejemplo Cliente-Servidor con Visual FoxPro
http://www.panoramabox.com/GoPub.as...bj"34

¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/
http://www.espartha.com/blog/

Quintero Darwin wrote:

Amigos
Saludos

Estoy comenzando a programar con SQL y estoy utilizando MSDE, tengo
algunas lineas de codigo para grabar en la tabla Datos.

He probado la conexion y esta funciona por que muestra la consulta
pero cuando mando a grabar no guarda la informacion

Por favor si me pueden ayudar Gracias.

Este es el codigo:

Local lnconex As Integer
lnconex =SQLCONNECT('msde','Sircod')

If SQLEXEC(lnconex,'Select * from Datos ','vDatos')>0
Select vDatos
Browse
Else
=Messagebox('No se pudo ejecutar la Instrucción SQL')
Endif

= SQLSETPROP(lnconex, 'Transactions', 2) < 0&& Transacciones manuales.
= SQLEXEC(lnconex, "INSERT INTO Datos (Placa, Marca) VALUES
('28A-DAH','MACK')")
= SQLCOMMIT(lnconex) && Graba los cambios.

If SQLEXEC(lnconex,'Select * from Datos ','vDatos')>0
Select vDatos
Browse
Else
=Messagebox('No se pudo ejecutar la Instrucción SQL')
Endif
= SQLDISCONNECT(lnconex)

Darwin Quintero
Venezuela