PC Toledo

Olá!


#ifdef __PLATFORM__WINDOWS
#require "sddodbc"
#endif
#require "rddsql"
#require "sddpg"
#require "hbssl"

REQUEST DBFCDX, DBFFPT, DBFDBT, LETO, SQLMIX, SDDODBC, SDDPG

FUNCTION TestaConexaoPGSQL
LOCAL cAlias := Alias(), nCon, cRdd

cRdd := RDDSETDEFAULT( "SQLMIX" )
// Passando a string ...

... como geral, e não diretamente a um usuário.
Não entendi o "agora preciso mesmo mudar".
DBF funciona bem, ele é usado como está, preferencialmente DBFCDX.

Com o auxílio de ADS, pode usar DBF por comandos SQL.
Isso te dá a idéia do que é SQL, e como tirar proveito dele.
E vai poder usar encima dos ...

... cada ordem e conferir com os próprios olhos.

Já há uns 3 meses, venho tentando entender "minimamente" como proceder para migrar meus sistemas de DBFCDX para o SQLRDD. Gostaria muito de poder mudar ainda esse ano, mas estou encontrando muita dificuldade. Broncas por burrice serão bem vindas, sem ...

... cada ordem e conferir com os próprios olhos.

Já há uns 3 meses, venho tentando entender "minimamente" como proceder para migrar meus sistemas de DBFCDX para o SQLRDD. Gostaria muito de poder mudar ainda esse ano, mas estou encontrando muita dificuldade. Broncas por burrice serão bem vindas, sem ...

... com a IA CC (Claude Code), virou moda. Mas o que é para fazer mesmo cadê ? Cadê a HBBuilder ? Parou ? 2 dias já sem codificar nada... Agora tem DBFCDX criptografado https://github.com/carles9000/dbfcdxex etc,etc... pulverizando mais e mais... Vamos ver até onde irá essa nova "aventura"
itamar ...

... require "rddsql"
#require "sddodbc" //SQLMIX

#include "hwgui.ch"
#include "set.ch"
#include "dbinfo.ch"

REQUEST HB_CODEPAGE_UTF8EX
REQUEST DBFCDX, DBFFPT

//For MariaDB via SQLMIX
REQUEST SQLMIX, SDDODBC

MEMVAR cName, nIdContact, cPhantom
MEMVAR oName, oIdContact, oPhantom
MEMVAR lAdd ...

... ficou legal !!

quem quiser compilar em linux .. está funcionando com letodbf


#include "hwgui.ch"
#include "rddleto.ch"

REQUEST LETO
REQUEST DBFCDX
REQUEST DBFFPT

// =====================================================
// CADASTRO DE USUÁRIOS (PSW) + LOGIN (GTK/Linux)
// - Versão SEM ...

... isso ainda.
REQUEST HB_CODEPAGE_UTF8
REQUEST HB_CODEPAGE_UTF8EX
#endif

// EXTERNAL OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
EXTERNAL _DBF, DBFCDX, DBFFPT, SQLRDD, SR_PGS
ANNOUNCE RDDSYS

FUNCTION Main()

LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

HB ...

... ch"
#include "wvtwin.ch"
#include "sqlrdd.ch" && para trab. bd sql
#include "pgs.ch" && habilita postgresql (usamos este)

REQUEST SQLRDD
REQUEST DBFCDX
REQUEST SR_PGS

*************
Function Main
*************
LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

#ifndef ...

... o cursor

REQUEST HB_CODEPAGE_PT850 // Coloca a CodePage em OEM Português
REQUEST HB_LANG_PT // Coloca as mensagens de erros em Português

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main ...

... se alguem puder me ajudar

// Arquivo: cadastro.prg

#include "inkey.ch" // Para teclas
#include "setcurs.ch" // Para o cursor

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main ...

... echo $(HBDIR)\lib\macro.lib + >> b32.bc
@echo $(HBDIR)\lib\rdd.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
@echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
@echo $(HBDIR)\lib\debug.lib + >> b32.bc ...

... echo $(HBDIR)\lib\macro.lib + >> b32.bc
@echo $(HBDIR)\lib\rdd.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
@echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
@echo $(HBDIR)\lib\debug.lib + >> b32.bc ...

... SET PROCEDURE TO funcoes.prg
No final de cada .prg.

Imagine ai o Apache rodar .HRB, muito bom.
Meu código está basicamente assim:

REQUEST DBFCDX, SQLMIX
MEMVAR cOpcao, cLogin, cTab
Function HRBMAIN
PARAMETERS cPar1, cPar2 (opcional)
LOCAL cHtml
Private cTab := ""
IF AbreDb(...)
(cAlias ...

... core/tree/master/contrib/rddads

Alguém se interessou ?
Qual a diferença ?

Como diz o Itamar.... SQL NATIVO NO HARBOUR
EXISTE DESDE ANTES DO RDD DBFCDX SER ESTÁVEL.
Pra quem não lembra, na versão 0.99 do harbour ou antes, era recomendado usar esse.
Depois começou a ficar estável, e passou a ser ...