O que é o SQLRDD ?

Click aqui para uma descrição completa

O Que é o SQLRDD Extreme Edition ?

O SQLRDD Extreme é uma nova versão do SQLRDD muito mais rápida, lançada no final de 2009. Para saber os detalhes, click aqui: SQLRDD Extreme Edition

 Quais alterações devo fazer em meu código fonte para utilizar o SQLRDD ?

Basicamente, as alterações são:

* Inclusão do REQUEST SQLRDD no seu primeiro PRG
* Inclusão do REQUEST para a forma de conexão desejada (ODBC ou Nativo)
* Inclusão da função que faz a conexão ao banco de dados
* Substituição da função File() por SR_File() onde é verificada a existência de um arquivo de dados

veja o exemplo de um código fonte alterado para o SQLRDD

#include "sqlrdd.ch" REQUEST SQLRDD REQUEST SR_ODBC // REQUEST SR_PGS // Acesso nativo ao Postgres // REQUEST SR_MYSQL // Acesso nativo ao MySQL #define RECORDS_IN_TEST 100 /*------------------------------------------------------------------------*/ Function Main( cDSN ) /* Vetores de estrutura idênticos aos usados para criar DBF em Clipper */ local aStruct1 := {{"CODE_ID","C",8,0 },{"CARDID","C",1,0,.T.},{"DESCR","C",20,0},{"PERCENT","N",8,2},{"DAYS","N",6,0},{"DATE_LIM","D",8,0},{"ENABLE","L",1,0},{"OBS","M",10,0}, {"VALUE","N",18,6}} local aStruct2 := {{"CODE_ID","C",8,0 },{"NAME","C",20,0,.F.}} local nCnn, s, i, lRet local nSkipped := 0 local cTableName1 := "MASTER" local cTableName2 := "TARGET" local nReg, nPos If empty( cDsn ) ? "Usage: tstsql.exe DATA_SOURCE_NAME" ? "where DATA_SOURCE_NAME is DSN=<OdbcConnectionString>;UID=<username>;PWD=<password>" ? "ex.: tstsql.exe DSN=northwind;UID=sa;DSN=" Return EndIf /* A linha abaixo faz a conexão com o banco de dados */ nCnn := SR_AddConnection( CONNECT_ODBC, cDSN ) /* se der errado, retorna -1 */ If nCnn < 0 ? "Erro na conexão. Veja em SQL1.LOG os detalhes." Return EndIf If !SR_File( cTableName1 ) ? "Creating table 1 :", dbCreate( cTableName1, aStruct1, "SQLRDD" ) EndIf If !SR_File( cTableName2 ) ? "Creating table 2 :", dbCreate( cTableName2, aStruct2, "SQLRDD" ) EndIf USE (cTableName1) SHARED VIA "SQLRDD" NEW USE (cTableName2) SHARED VIA "SQLRDD" NEW ? "Appending " + alltrim(str(RECORDS_IN_TEST)) + " records in " + cTableName1 dbSelectArea( cTableName1 ) For i = 1 to RECORDS_IN_TEST Append Blank Replace CODE_ID with strZero( i, 5 ) Replace DESCR with dtoc( date() ) + " - " + time() Replace DAYS with (1000 - i) Replace DATE_LIM with date() Replace ENABLE with .T. dbUnlock() Next ? "Appending " + alltrim(str(RECORDS_IN_TEST)) + " records in " + cTableName2 dbSelectArea( cTableName2 ) For i = 1 to RECORDS_IN_TEST Append Blank Replace CODE_ID with strZero( i, 5 ) Replace NAME with "Name for record " + strzero( i, 5 ) + ( dtoc( date() ) + " - " + time() ) dbUnlock() Next ? "Creating 02 indexes in " + cTableName1 dbSelectArea( cTableName1 ) Index on CODE_ID+DESCR to TEST_TABLE1_IND01 Index on DAYS+DATE_LIM to TEST_TABLE1_IND02 dbSelectArea( cTableName2 ) Index on CODE_ID to TEST_TABLE2_IND01 ordcreate( "TEST_TABLE2_IND02", "TAG_X", "substr(NAME,5)" ) ordcreate( "TEST_TABLE2_IND02", "TAG_Y", "substr(NAME,15)" ) dbSelectArea( cTableName1 ) SET INDEX TO ("CODE_ID") SET INDEX TO ("DAYS+DATE_LIM") ADDITIVE Set Order to 1 SELECT 2 SET INDEX TO ("CODE_ID") Set Order to 1 SELECT MASTER ? "Set Relation :" Set relation to CODE_ID into TARGET ? "dbRelation() :", dbRelation(1) ? "dbRSelect() :", dbRSelect(1) ? "dbGotop() :", dbGotop(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "Deleting............:", MASTER->(dbDelete()) ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME set deleted on ? "Set DELETED ON :" ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip(-1) :", dbSkip(-1), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "TARGET found() :", TARGET->(found()) set deleted off ? "-------------------------------------------------" ? "dbGotop() :", alias(),dbGotop(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME ? "dbSkip() :", dbSkip(), recno() ? "Record Contents :", MASTER->CODE_ID, TARGET->CODE_ID, TARGET->NAME Return NIL

Que tipos de dado são suportados pelos SQLRDD ?

O SQLRDD suporta todos os tipos de dados do driver DBFCDX. Entretanto, os campos MEMO poder armazenar qualquer tipo de dado, com exceção de codeblocks. Veja o exemplo abaixo:

#include "sqlrdd.ch" REQUEST SQLRDD REQUEST SR_ODBC // REQUEST SR_PGS // Acesso nativo ao Postgres // REQUEST SR_MYSQL // Acesso nativo ao MySQL /*------------------------------------------------------------------------*/ Function Main( cDSN ) local aStruct := {{"CODE_ID","C",8,0 },{"CARDID","C",1,0},{"D1","M",10,0},{"D2","M",10,0},{"D3","M",10,0}, {"D4","M",10,0}} local nCnn, i, s If empty( cDsn ) Return EndIf /* Conecta-se ao banco de dados */ nCnn := SR_AddConnection( CONNECT_MYSQL, cDSN ) If nCnn < 0 ? "Erro de conexão." Return EndIf ? "Criando a tabela :", dbCreate( "TEST_TABLE_MEMO", aStruct, "SQLRDD" ) USE "TEST_TABLE_MEMO" SHARED VIA "SQLRDD" ? "Adicionando um registro" Append Blank Replace CODE_ID with "aaaaa" Replace D1 with date() Replace D2 with 1000 Replace D3 with browse():new() Replace D4 with { 9999999,2,3,4,5,6,date(),"a" } dbclosearea() ? "Agora vendo o que foi gravado nos campos MEMO" USE "TEST_TABLE_MEMO" SHARED VIA "SQLRDD" ? "D1", valtype( d1 ), d1 // Vatype retorna "D" ? "D2", valtype( d2 ), d2 // Vatype retorna "N" ? "D3", valtype( d3 ) // Vatype retorna "O" ? "D4", valtype( d4 ), d4 // Vatype retorna "A" ? "D4", valtype( d4 ), sr_showvector(d4) Return NIL

 Como ficará a performance de minha aplicação ?

A performance resultante depende de uma combinação de fatores como:

* O banco de dados escolhido
* Tuning e configuração do banco de dados
* A forma como a sua aplicação é escrita

De forma geral, podemos dizer que algumas operações se tornam mais rápidas do que DBF e outras mais lentas. Para as operações que perdem performance, podemos escrever rotinas diretamente em SQL e executá-las a partir de funções próprias do SQLRDD. 

O manual do SQLRDD vem com uma série de dicas e sugestões para você otimizar a performance de sua aplicação.

Como carregar os dados dos meus arquivos DBF para o banco SQL ?

O SQLRDD possui um utilitário chamado DBF2SQL (código fonte fornecido) que faz este serviço automaticamente.

Como fica a segurança dos dados no banco SQL ?

Este é o ponto mais forte! 

* Remova a corrupção de dados e índices da sua lista de preocupações
* Esqueça as fragilidades e problemas associados aos arquivos DBT
* O acesso aos dados fica oculto na rede e protegido por senha
* Integridade Transacional : Se uma operação falar, todo o processamento pode retornar a um determinado ponto (depende do banco de dados)

O SQLRDD necessita de algum programa server adicional ?

Não. Você acessa diretamente o banco de dados.

O SQLRDD suporta índices com expressões complexas e funções próprias ?

Sim. Você pode criar índices com qualquer expressão e funções próprias. Além disso, você possui completo suporte a Recno() e Deleted(), TAGs e Order Bags no melhor estilo CDX.

Quais os bancos de dados suportados pelo SQLRDD ?

Veja no quadro de status de desenvolvimento clicando aqui

Quais sistemas operacionais são suportados pelo SQLRDD ?

O SQLRDD possui versões para Linux e Windows. O Servidor de banco de dados pode rodar qualquer sistema operacional e estar em Micro, RISC, AS/400, Mainframe, etc.

Como adquirir e quanto custa ?

O SQLRDD é parte integrante do xHarbour Builder Enterprise e também é vendido como um componente adicional para o xharbour.org, com compiladores Borland. Click aqui para ver os preços e condições. Caso queira testar o SQLRDD, baixe a versão demo do xHarbour Builder clicando aqui.