GRABAR DATOS CON SQL EN MSDE

24/01/2005 - 21:20 por Quintero Darwin | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Esparta Palma
24/01/2005 - 21:32 | Informe spam
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


Respuesta Responder a este mensaje
#2 Quintero Darwin
24/01/2005 - 21:49 | Informe spam
Gracias

Era problemas con campos nulos

Darwin Quintero
Venezuela

"Esparta Palma" escribió en el
mensaje news:
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

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida