PREGUNTAS CONTESTADAS - FoxPro/Visual FoxPro

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

     sele archivo

    set order to   clave

    if seek( clave)

       =message("ya existe este registro")  como quieras

    else

      insert ........

     o appe blank

        replace .....

        replace ....                de la forma que quieras usar

   endif

     sele archivo

     locate for ...... == ........

     if found()

       =message("ya existe este registro")  como quieras

     else

      insert ........

     o appe blank

        replace .....

        replace ....                de la forma que quieras usar

   endif