Clipper/FiveWin - Conectar Paradox 7.x

 
Vista:
Imágen de perfil de SuperIndio
Val: 12
Ha mantenido su posición en Clipper/FiveWin (en relación al último mes)
Gráfica de Clipper/FiveWin

Conectar Paradox 7.x

Publicado por SuperIndio (17 intervenciones) el 14/09/2018 23:24:24
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 :

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

Si tenes alguna duda --> [email protected]
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder