Conectar Paradox 7.x
Publicado por SuperIndio (10 intervenciones) el 14/09/2018 23:21:20
Estimados para el que no pueda conectar paradox
usando HMG en cualquiera de sus versiones (
Harbour MiniGUI Oficial,
Harbour minigui Extended con BCC55,
Harbour minigui Extended con BCC10,
Harbour minigui Extended con Mingw32,
OOHG con BCC55 o Mingw32 )
se declara :
Luego ejecutar un query:
Si tenes alguna duda --> [email protected]
usando HMG en cualquiera de sus versiones (
Harbour MiniGUI Oficial,
Harbour minigui Extended con BCC55,
Harbour minigui Extended con BCC10,
Harbour minigui Extended con Mingw32,
OOHG con BCC55 o Mingw32 )
se declara :
1
Public oConexion as OBJECT
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
////////////////////////////////////////////////////////////////////////////
//
// Nombre.......: ConnectToParadox()
// Parametros...: None
// Descripcion..: Conecta Paradox Database
// Y deja el vivo el objeto oConexion
// para poder ejecutar los Querys.
// Autor........: SuperIndio
// Fecha........: 24-08-2018
////////////////////////////////////////////////////////////////////////////
STATIC FUNCTION ConnectToParadox()
LOCAL x_Error
Local lConnect := .f.
Local cString := "Driver={Microsoft Paradox Driver (*.db )};"+;
"collatingsequence=ASCII;"+;
"dbq="+ ccPath +";"+;
"defaultdir="+ ccPath +";"+;
"driverid=538;"+;
"fil=Paradox 7.X;"+;
"paradoxnetpath="+ ccPath +";"+;
"paradoxnetstyle=4.x;"+;
"paradoxusername=Administrador;"+;
"safetransactions=0;"+;
"threads=3;"+;
"uid=administrador;"+;
"usercommitsync=Yes"oConexion := TOleAuto():New("ADODB.Connection")
oConexion:ConnectionString := cString
BEGIN SEQUENCE
oConexion:Open()
lConnect := .T.
RECOVER
x_Error:=oConexion:Errors
MSGINFO(x_Error)
MsgInfo('Conexion Fallida!')
oConexion := Nil
END SEQUENCE
RETURN( lConnect )
Luego ejecutar un query:
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
////////////////////////////////////////////////////////////////////////////
//
// Nombre.......: Query_TProductos()
// Parametros...: None
// Descripcion..:
//
// Autor........: SuperIndio
// Fecha........: 15-09-2018
////////////////////////////////////////////////////////////////////////////
static function Query_TProductos()
LOCAL aNuevo := {}
LOCAL ccCodProd := ""
LOCAL ccDescrip := ""
LOCAL ccProveed := ""
LOCAL nnPrecio := ""
LOCAL nnPorcen := ""
WITH OBJECT oRs := TOleAuto():New("ADODB.RecordSet")
:LockType := adLockOptimistic
:CursorType := adOpenDynamic
:CursorLocation := adUseClient
:Source := "Select * from TProductos.db"
:Open( :Source , oConexion )
:MoveFirst()
DO WHILE !:EOF()
//
ccCodProd := :Fields(0):value
ccDescrip := :Fields(1):value
ccProveed := :Fields(3):value
nnPrecio := Str( :Fields(4):value )
nnPorcen := Str( :Fields(8):value )
//
aNuevo := { ccCodProd , ccDescrip, ccProveed, nnPrecio, nnPorcen }
vnmain.gridpro.AddItem( aNuevo )
:MoveNext()
//
ENDDO
END
RETURN NIL
Valora esta pregunta
0