#include "fwce.ch"
Function Main()
local aRows, 聽c, cNames := ""
聽 聽 CoInitializeEx()
聽 聽 aRows := Loadsdf()
聽 聽 for c := 1 To Len( aRows )
聽 聽 聽 聽 cNames += aRows[c][2]+ CRLF
聽 聽 next c聽
聽 聽 msginfo( cNames )
聽 聽
聽 CoUninitialize()
return .t.
Function LoadSdf()
local cDatabase :="\My Documents\test.sdf"
local nError := 0, aRows := {}
if ConnectLocalDb( cdatabase ) != 0
聽 聽 oleDbError()
endif
if ExecuteSql( "CREATE TABLE CLIENTES (codigo INT, nombre NVARCHAR(30) )" ) 聽!= 0
聽 聽 oleDbError()
聽 聽
endif聽 聽
ExecuteSQL("INSERT INTO CLIENTES (codigo,nombre) VALUES (1000,'Juan Garcia')")
ExecuteSQL("INSERT INTO CLIENTES (codigo,nombre) VALUES (1001,'Paco Ramirez')")
ExecuteSQL("INSERT INTO CLIENTES (codigo,nombre) VALUES (1002,'Luis Fernandez')")
ExecuteSQL("INSERT INTO CLIENTES (codigo,nombre) VALUES (1003,'Pedro Ponce')")
ExecuteSQL("INSERT INTO CLIENTES (codigo,nombre) VALUES (1004,'Jose Martinez')")
aRows := GetRowSet("SELECT * FROM CLIENTES", @nError)
return aRows
Function OleDbError()
local cError := Space(1024)
聽 聽 GetErrorMessage( @cError, Len( cError ) 聽)
聽 聽 Msginfo( WidetoAnsi( cError ) )
return nil
Saludos
Salvador
Salvador
