TE ENVIO ESTE EJEMPLO...CHECALO..
SALUDOS DESDE VERACRUZ, VER. MEXICO
set safety off
*...tabla local donde se grabaran los registros de la consulta SQL
select 1
use c:\generales\tablas\tablasql exclu
zap
set defa to c:\mysql\data\ && ubicacion de la base de datos
public Nhandle
*- Nos conectamos al servidor SQL
Nhandle = SQLCONNECT('base1','root','')
*- el valor debe ser superior a 0 si la conexion tiene exito
if nHandle>0
wait "Conexion con exito...." window timeout 2
else
wait "Error de conexion..." window timeout 2
return
endif
*- Insertamos un registro
*sqlexec(nHandle,"INSERT INTO usuarios (clave,nombre,mail) VALUES (14, 'Manuel Portugues Garcia','
[email protected]')" )
*- Nos traemos todo
sqlexec(nHandle,"Select * from usuarios order by clave","tempo")
*- graba en una tabla local los registros del temporal de la consulta SQL
select 1
append from dbf("tempo")
*- muestra en un cuadro de lista los registros de la tabla
select 1
go top
do while !eof()
thisform.list1.additem(str(clave)+" "+nombre)
skip
enddo
*- desconectando SQL
*sqldisconn(nHandle)
*close tables all
*close database
