Jose Valle
Hola
Me han dejado un ejemplo de como se usa ADO para acceder datos.
Me parece que es muy sencillo de usar. A mi me viene muy bien porque Fastreports usa Ado para acceder a los datos.
Os pido vuestra opinion sobre ADO antes de dedicarle tiempo. ¿Es una solución fiable?
Hello
This is a sample of how to use ADO to access PostGree. It looks very easy.
Any experiences with Ado?
#include "ado.ch"
#include "common.ch"
#define CRLF chr(13)+chr(10)
#PRAGMA LIBRARY ("ASCOM10.LIB")
PROCEDURE MAIN
LOCAL oConexion, oRs, lConectado , nValue
oConexion := CreateObject("ADODB.Connection")
//ok-> oConexion:ConnectionString := "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"
Los espacios en blanco a veces dan error
//ok-> //oConexion:ConnectionString := "Provider=Microsoft OLE DB Provider for ODBC Drivers;Server=localhost;Port=5432;Data Source=PostgreSQL35W;User Id=postgres;Password=43434343;"
//ok->//oConexion:ConnectionString := "Provider=Microsoft OLE DB Provider for ODBC Drivers;Server=localhost;Port=5432;Data Source=PostgreSQL35W;User Id=postgres;Password=43434343;"
oConexion:ConnectionString := " Server=localhost; Data Source = PostgreSQL35W ; UserId = postgres ;"
/*
sets the string used to connect to a PostgreSQL database.
/// Valid values are:
/// Server: Address/Name of Postgresql Server;
/// Port: Port to connect to;
/// Protocol: Protocol version to use, instead of automatic; Integer 2 or 3;
/// Database: Database name. Defaults to user name if not specified;
/// User Id: User name;
/// Password: Password for clear text authentication;
/// SSL: True or False. Controls whether to attempt a secure connection. Default = False;
/// Pooling: True or False. Controls whether connection pooling is used. Default = True;
/// MinPoolSize: Min size of connection pool. Default: 1;
/// MaxPoolSize: Max size of connection pool. Default: 20;
/// Encoding: Encoding to be used; Can be ASCII or UNICODE. Default is ASCII. Use UNICODE if you are having problems with accents.
/// Timeout: Time to wait for connection open in seconds. Default is 15.
/// CommandTimeout: Time to wait for command to finish execution before throw an exception. In seconds. Default is 20.
/// Sslmode: Mode for ssl connection control.
/// ConnectionLifeTime: Time to wait before closing unused connections in the pool in seconds. Default is 15.
/// SyncNotification: Specifies if Npgsql should use synchronous notifications
Encoding can be ASCII or UNICODE. If your application uses characters with accents and with default settings it doesn't work, try changing that.
Min pool size when specified will make NpgsqlConnection pre allocates this number of connections with the server.
Sslmode can be one of the following values:
Prefer - If it is possible to connect using ssl, it will be used.
Require - If an ssl connection cannot be made, an exception is thrown.
Allow - Not supported yet, just connects without ssl.
Disable - No ssl connection is done.
Default is Disable.
Server=192.168.10.4;Port=5432;Userid=postgres;Password=stefan;Protocol=3;SSL=false;Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;Database=test
*/
oConexion:open()
? ' donde me conecto', oConexion:ConnectionString
inkey(0)
oRs := CreateObject("ADODB.Recordset")
public es el schema
oRs:Open("SELECT * FROM public.apuntes ORDER BY fecha",oConexion,0,3)
IF oRs:Bof .And. oRs:Eof
? "NO HAY DATOS"
oConexion:Close()
return
endif
oRs:MoveFirst()
do while .NOT. oRs:eof
? 'valor', oRS:fields("fecha"):Value
oRs:MoveNext()
enddo
inkey(0)
oRs:Close()
return
/*
PROCEDURE MAIN //ok
LOCAL oConexion, oRs, lConectado , nValue
oConexion := CreateObject("ADODB.Connection")
//oConexion:ConnectionString := "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"
oConexion:ConnectionString := "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"
oConexion:open()
? ' donde me conecto', oConexion:ConnectionString
inkey(0)
oRs := CreateObject("ADODB.Recordset")
oRs:Open("SELECT * FROM Publishers ORDER BY NAME",oConexion,0,3)
IF oRs:Bof .And. oRs:Eof
? "NO HAY DATOS"
oConexion:Close()
return
endif
oRs:MoveFirst()
do while .NOT. oRs:eof
? 'valor', oRS:fields("Name"):Value
oRs:MoveNext()
enddo
inkey(0)
oRs:Close()
return