FoxPro/Visual FoxPro - Problema para guardar en MYSQL

   
Vista:

Problema para guardar en MYSQL

Publicado por Many (111 intervenciones) el 13/04/2017 05:32:41
Buenas noches nuevamente

Necesito que por favor me chequen este codigo ya que debe insertar pero no lo hace.
debo aclarar que en otros momentos me ha pasado que veo todo bien y no inserta nada, entoces quitando y poniendo cosas se arregla pero al final fue lo mismo que tenia inicialmente, esto a cualquiera pone loco.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SQLEXEC(rc,"Select * from clientes where clientes.codcli = ?thisform.codcli.value", "mccli")
IF RECCOUNT() = 0
 
TEXT TO lcTExt NOSHOW PRETEXT 15
SQLEXEC(rc,"insert into clientes (codcli,fechan,nombre) VALUES (?thisform.codcli.value,
 ?thisform.fechan.value,
 ?thisform.nombre.value)
ENDTEXT
SQLEXEC(rc,lcText)
 
 MESSAGEBOX("El registro ha sido guardado","Aviso")

thisform.codcli.SetFocus
RETURN
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

Problema para guardar en MYSQL

Publicado por xve (80 intervenciones) el 13/04/2017 20:46:46
Hola Many, donde finalizan las comillas del Insert??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de William

Problema para guardar en MYSQL

Publicado por William (15 intervenciones) el 14/04/2017 00:17:58
Te dejo un ejemplo de como inserto en una base de datos usando parámetros SQL para que te des una idea ..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
nHandle = SQLCONN('TuBAseDeDatos','','')
	*- Comprobamos la Conexión
IF nHandle > 0
 
***** USO DE VARIABLES
        VARESTADO=ALLTRIM(THISFORM.ESTADO.VALUE)
	VARCONTRATO=THISFORM.CONTRATO.VALUE
	VARCONTRAT=ALLTRIM(THISFORM.CONTRAT.VALUE)
	VARUSUARIO=ALLTRIM(THISFORM.NOMBRE.VALUE)
	VARAPELLIDOP=ALLTRIM(THISFORM.APEP.VALUE)
	VARAPELLIDOM=ALLTRIM(THISFORM.APEM.VALUE)
	VARRFC=ALLTRIM(THISFORM.RFC.VALUE)
	VARCALLE=ALLTRIM(THISFORM.CALLE.VALUE)
	VARNUMERO=ALLTRIM(THISFORM.NUMERO.VALUE)
	VARINTERIOR=ALLTRIM(THISFORM.INTERIOR.VALUE)
	VARCOLONIA=ALLTRIM(THISFORM.COLONIA.VALUE)
	VARSECTOR=ALLTRIM(THISFORM.SECTOR.VALUE)
	VARCIUDAD=ALLTRIM(THISFORM.CIUDAD.VALUE)
	VARTELEFONO=ALLTRIM(THISFORM.TEL.VALUE)
	VARPOSTE=ALLTRIM(THISFORM.POSTE.VALUE)
	VAROBSERVA1=ALLTRIM(THISFORM.OBSERV.VALUE)
	VARENTRECALLE=ALLTRIM(THISFORM.ENTRECALLE.VALUE)
	VARTIPOINSTAL=THISFORM.TIPOINST.LISTINDEX
	VARTIPOSERVIC=THISFORM.TIPOSERV.LISTINDEX
	VARCP=ALLTRIM(THISFORM.TEXT1.VALUE)
 
 
** GUARDAR INFORMACION DE CLIENTES
 
				lcCadena=""
				lcCadena = "INSERT INTO clientes ( empresa_id,contrato,usuario,apellidop,apellidom,rfc,calle,"
  				lcCadena = lcCadena + "numero,interior,colonia,sector,ciudad,telefono,fechanaci,correo,poste,observa1,entrecalle,"
   				lcCadena = lcCadena + "tipoinstal,tiposervic,status,cp,contrat,fechaalta,tvadd,conrfc,comenta,fechasuspension,fechainstalacion,fechareconexion,ife,cfe)"
   				lcCadena = lcCadena + " VALUES (" + STR(VAREMPRESA) + ","+ STR(VARCONTRATO)+ ",'"
   				lcCadena = lcCadena + VARUSUARIO + "','" + VARAPELLIDOP+"','" + VARAPELLIDOM + "','" + VARRFC + "','"
   				lcCadena = lcCadena + VARCALLE + "','" + VARNUMERO + "','" + VARINTERIOR + "','" + VARCOLONIA + "','"
   				lcCadena = lcCadena + VARSECTOR + "','" + VARCIUDAD + "','" + VARTELEFONO + "',{"+alltrim(DTOC(varfenac))+"},'" + varcorreo + "','" + VARPOSTE + "','"
   				lcCadena = lcCadena + VAROBSERVA1 + "','"+ VARENTRECALLE + "'," + STR(VARTIPOINSTAL) + "," + STR(VARTIPOSERVIC) + ",'"
   				lcCadena = lcCadena + VARESTADO + "','" + VARCP + "','"+ VARCONTRAT + "',{" + DTOC(DATE()) + "},.f.,.f.,'',{},{},{}, '" + cTargetFileIFE + "','" + cTargetFileCFE + "' )"
				SQLEXEC(nHandle,lcCadena)
 
******* MENSAJE DE GUARDADO
				MESSAGEBOX("Se guardo la Informacion del Cliente Exitosamente.",48,"Informacion Cliente")
 
	ELSE    && SI NO SE CONECTA A LA BASE DE DATOS
	   MESSAGEBOX("Error al Conectar",16,"Atención")
	   RETURN
	ENDIF


Espero y esto te ayude un poco en lo que buscas .. como vez hay mucho ejemplo de diferentes tipo de datos para guadar, booleanos, fecha, string, int ...

Suerte !!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema para guardar en MYSQL

Publicado por Many (111 intervenciones) el 16/04/2017 02:48:39
Saludo a todos y gracias por su ayuda

Ya niciaré el proceso de modificacion y luego les cuento pero todas las ayudas han sido de bien.

Un saludo final y gracias a todos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.

Problema para guardar en MYSQL

Publicado por Leonardo Daniel A. (162 intervenciones) el 15/04/2017 03:43:49
Hola tu error esta aqui creo


TEXT TO lcTExt NOSHOW PRETEXT 15
SQLEXEC(rc,"insert into clientes (codcli,fechan,nombre) VALUES (?thisform.codcli.value,
?thisform.fechan.value,
?thisform.nombre.value)
ENDTEXT


y luego lo pones abajo para llamarlo, lo que logicamente tu texto ya trae un SQLEXEC

SQLEXEC(rc,lcText)


PARA QUE VEAS COMO VIENE TU lcTExt
pon al final del ENDTEXT

? lcTExt
cancel


eso te mostrara en pantalla como se formo tu variable y cancela la ejecucion, pero yo creo que no funcionara asi, deberas crear la sintaxis SQL como te mencionan arriba
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar