Ayuda altas en Sql Server
Publicado por Carlos Lara (31 intervenciones) el 03/04/2007 16:09:46
que tal compañeros foxeros, espero me puedan ayudar con esto, ya que estoy migrando una aplicacion a cliente-servidor, la conexion a la BD me la hace correcta pero al dar de altas a registros me marca error, anexo codigo para ver si me pueden ayudar, gracias
la conexion me la hace bien que es esta primera parte
ncarGrup = SQLCONNECT("Sigma","Carlos","*****")
IF ncarGrup < 0
= MESSAGEBOX('No se puede Conectar a la Base de Datos', 16, 'SQL Connect Error')
ELSE
= MESSAGEBOX('Excelente conexion', 48, 'SQL Connect Error')
ENDIF
*-----------------------------------------------------------------------
aqui abro la tabla de productos y quiero pasar los registros a la tabla de sql, en la primera opcion que lo mando a memvar no me marca error pero no hace nada y en la segunda me marca error de sintaxis, podrian ayudarme por favor o si tiene un ejemplo se los agradecere mucho.
USE tblprod IN 1 ALIAS prod_
GO Top
DO WHILE !eof()
SCATTER memvar
* WAIT WINDOW "Codigo: " +M.cod+CHR(13)+"Descripcion:"+M.desc Nowait
SQLEXEC(ncarGrup, "Insert Into Tblprod FROM MEMVAR")
* SQLEXEC(ncarGrup, "Insert Into Tblprod (cod, desc_, desccorta, familia, med, medmax, *codbar, ucosto, factor, exis, ubica, cveprod, tipo, marca, estatus) Values (m.cod, m.desc_, *m.desccorta, m.familia, m.med, m.medmax, m.codbar, m.ucosto, m.factor, m.exis, *m.ubica, m.cveprod, m.tipo, m.marca, m.estatus")")
SKIP
ENDDO
*SQLDISCONNECT(nCarGrup)
use
la conexion me la hace bien que es esta primera parte
ncarGrup = SQLCONNECT("Sigma","Carlos","*****")
IF ncarGrup < 0
= MESSAGEBOX('No se puede Conectar a la Base de Datos', 16, 'SQL Connect Error')
ELSE
= MESSAGEBOX('Excelente conexion', 48, 'SQL Connect Error')
ENDIF
*-----------------------------------------------------------------------
aqui abro la tabla de productos y quiero pasar los registros a la tabla de sql, en la primera opcion que lo mando a memvar no me marca error pero no hace nada y en la segunda me marca error de sintaxis, podrian ayudarme por favor o si tiene un ejemplo se los agradecere mucho.
USE tblprod IN 1 ALIAS prod_
GO Top
DO WHILE !eof()
SCATTER memvar
* WAIT WINDOW "Codigo: " +M.cod+CHR(13)+"Descripcion:"+M.desc Nowait
SQLEXEC(ncarGrup, "Insert Into Tblprod FROM MEMVAR")
* SQLEXEC(ncarGrup, "Insert Into Tblprod (cod, desc_, desccorta, familia, med, medmax, *codbar, ucosto, factor, exis, ubica, cveprod, tipo, marca, estatus) Values (m.cod, m.desc_, *m.desccorta, m.familia, m.med, m.medmax, m.codbar, m.ucosto, m.factor, m.exis, *m.ubica, m.cveprod, m.tipo, m.marca, m.estatus")")
SKIP
ENDDO
*SQLDISCONNECT(nCarGrup)
use
Valora esta pregunta


0