SQL COM DBF

[Stanis Luksys]

Olá caros colegas Clipperos,

Ouvi dizer por aí que é possível realizar consultas com comandos SQL em banco de dados DBFNTX, é verdade???

Se sim, como fazer isso??

Se não, como fazer então consultas SQL, devo trabalhar com algum BD específico??

Utilizo xHarbour c/ IDE Minigui e atualmente BD DBFNTX


Valeu galera

[culik]

>
>Olá caros colegas Clipperos,

>Ouvi dizer por aí que é possível realizar consultas com comandos SQL >em banco de dados DBFNTX, é verdade???
nao, somente em .cdx usando rddads do xharbour.alem do .cdx o formato .adt(que e parte do rddads)

>Se sim, como fazer isso??
olhe abaixo
#include "ads.ch"
REQUEST _ADS
FUNCTION MAIN
LOCAL n
LOCAL aStru := {{ "ID","A",1,0},{"Name","C",50,0},{"address","C",50,0},{"city","C",30,0},{"Age","n",3,0}}


RddRegister("ads",1)
RddSetDefault("Ads")
AdsSetServerType ( 7 )
SET Filetype to ADT

//now Create an Data dictionary and the files if not exist
IF !File("xharbour.add")
ADSDDCREATE("xharbour.add",,"Xharbour Ads demo data dictionary")
// now create two table with same stucture
DbCreate("Table1",aStru)
DbCreate("Table2",aStru)
//now create an index
USE table1 new
INDEX on id tag codigo
USE

USE table2 new
INDEX on id tag codigo
USE
ENDIF

// now the magic
IF adsConnect60("xharbour.add",7/* All types of conection*/,"ADSSYS","",)
// Add one user
AdsDDCreateUser(,"Luiz","papael","This is luiz User")
// Add the tables
AdsDDaddTable("Table1","table1.adt","table1.adi")
AdsDDaddTable("Custumer Data","table2.adt","table2.adi")
ENDIF
AdsDisconnect(AdsGetConnectionHandle())
// now open the tables and put some data

IF AdsConnect60("xharbour.add",7/* All types of conection*/,"Luiz","papael",)

FOR n := 1 TO 100
IF AdsCreateSqlStatement("Data2",3)
AdsExecuteSqlDirect(" insert into Table1( name,address,city,age) VALUES( '" + strzero(n)+"','"+strzero(n)+"','"+strzero(n)+"'," +str(n)+ ")" )
USE
ENDIF
NEXT



FOR n := 1 TO 100
IF AdsCreateSqlStatement("Data1",3)
AdsExecuteSqlDirect(" insert into " +'"Custumer Data"'+"( name,address,city,age) VALUES( '"+ strzero(n)+"','"+strzero(n)+"','"+strzero(n)+"'," +str(n)+")" )
USE
ENDIF
NEXT


AdsUseDictionary(.t.)
DbUseAreaD(.t.,,"Custumer Data","custum",.t.,.f.)
Browse()
USE
USE table1 new
Browse()
USE
AdsUseDictionary(.f.)
ENDIF

AdsDisconnect(AdsGetConnectionHandle())
RETURN NIL

>Se não, como fazer então consultas SQL, devo trabalhar com algum BD >específico??
O sqlrdd do xharbour comercial, permite o acesso a qualquer banco de dados do mercado, e vc pode usar as tabelas desse bancos como se fossem .dbf , ou usando sql direto.
demo em www.xharbour.com.br

>Utilizo xHarbour c/ IDE Minigui e atualmente BD DBFNTX

Sugiro usar o dbfcdx por ser melhor e mais estavel que dbfntx. Alem do mais sugiro testar a hwgui devido as ultimas mudancas na licenca da minigui

[]s
Luiz

[software_facil]

Bom dia a todos,

O meu post não é para responder a pergunta do colega, visto que o Culik já o fez muito bem, mas somente para pedir aos colegas que façam referências corretas.
No texto "Banco de dados DBFNTX", vê-se que existe erro, pois nunca existiu um Banco de Dados chamado DBFNTX, o que existe são tabelas DBF (Data Base File) usando indices NTX, e que mais uma vez, nunca estiveram contidas em um Banco de Dados.
Muitos podem achar esta minha mensagem chata e sem propósito, mas eu penso assim, se nos acostumarmos a pensar, falar e escrever errado, onde vamos parar ?

Abraços