Buenas Noches, tengo una conexion odbc desde foxpro 6.0 a una base de datos en mysql, la cual funciona a la perfeccion. cuando actualizo (update) o inserto (insert) me funciona a la perfeccion, pero solo con cinco campos o menos, si le agrego un campo mas, me da error, el codigo es el siguiente
para la conexion
public lnhandle
lcserver = "localhost"
lcdatabase = "supermercado"
lcuser = "root"
lcpassword = "marcas"
cplocalconnectsys="Driver={MySQL ODBC 5.1 Driver};Port=3306"+;
";server="+lcserver+;
";database="+lcdatabase+;
";uid="+lcuser+;
";pwd="+lcpassword
sqlsetprop(0,"DispLogin" , 3 )
lnhandle = sqlstringconnect(cplocalconnectsys)
if lnhandle > 0
cmd = sqlexec(lnhandle,"select * from sis_usuario order by nombre","usuario01")
cmd = sqlexec(lnhandle,"select * from sis_empresas order by nombre","empresa")
else
aerror(laerr)
messagebox("No se pudo conectar a mySQL. Error: " + chr(13) + laerr[2])
endif
y para el update e insert
if thisform.registro_nuevo = .f.
cmd = sqlexec(lnhandle,"update sis_usuario set codigo = ?thisform.codigo.value ,;
nombre = ?thisform.nombre.value ,;
pase = ?thisform.pase.value ,;
nivel = ?thisform.grupo01.value ,;
descuento = ?thisform.descuento.value ;
where codigo = ?thisform.codigo.value")
endif
if thisform.registro_nuevo = .t.
cmd = "insert into sis_usuario(codigo,;
nombre,;
pase ,;
nivel,;
descuento) values (?thisform.codigo.value, ;
?thisform.nombre.value,;
?thisform.pase.value,;
?thisform.grupo01.value,;
?thisform.descuento.value)"
inserta=sqlexec(lnhandle,cmd)
endif
no tengo idea de lo que puede estar pasando
|
Crear cuenta