Conexão Sql Fw Nativo (Resolvido)

[betovsp]

Boa tarde pessoal, estou tentando começar a sair do dbf. rsrsrsrsrs.

Já consigo fazer a conexão ao Banco de dados, insert, update, e outros comandos usando conexão nativa do fivewin, até um browse já consigo fazer, show() mesmo.

Mas como faço pra adicionar um conteúdo em um array:

 oCn:RowSet( "empresa" ) --> assim me trás todo o conteúdo da tabela empresa, gostaria de colocar dois campos em um array.

Se tiver um "manual" de todos os comandos eu também agradeceria.

Obrigado a todos. 
 

[vinhesoft]

Boa tarde
Beto

http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_fwmariarowset

http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_fwmariaconnection

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33908

Att

Joao carlos
ViheSoft

 

[betovsp]

João, obrigado pelas informações.

Mas ainda estou meio perdido, pois gostaria de alimentar um array para criar um combobox ou dbcombo, poderia me passar qual o método para isso?

Obrigado mais uma vez.

Beto.

[ecob]

O que é conexão nativa do fivewin? Posta um exemplo da sua conexão e como busca uma informação no banco que talvez possa te ajudar.

Qual browse vc utiliza? wbrowse, xbrowse, tcbrowse?

[kapiaba]

 C:\FWH1701\samples
	31/01/2017  12:19             1.141 maria01.prg
31/01/2017  12:19             1.592 maria02.prg
31/01/2017  12:19             3.830 maria03.prg
31/01/2017  12:19             2.536 maria04.prg
31/01/2017  12:19             1.076 maria05.prg
31/01/2017  12:19               993 maria06.prg
31/01/2017  12:19             2.419 maria07.prg
31/01/2017  12:19             2.595 maria08.prg
31/01/2017  12:19             2.860 maria09.prg
	

[betovsp]

olá ecob, estou utilizando assim:

    FWCONNECT oCn HOST "localhost" USER "root" PASSWORD "" DATABASE "erp_santaclara"
   if oCn == NIL
          MsgStop("Erro de conexão!!!"+CRLF+CRLF+;
               "Verifique se o banco de dados está criado!"+CRLF+;
               "Verifique o Endereço IP, Usuário e senha!"+CRLF+;
                  "Verifique a Conexão!","Atenção")
         Return(.F.)
   END

    oCn:RowSet( "empresa" )

 

Preciso simplesmente pegar o conteúdo e jogar para um array para alimentar uma combobox ou um dbcombo, fazendo com a xbrowse eu já sei e funciona.

[ecob]

Olá Beto. Bacana, não conhecia. Pesquisando rapidamente, vi esse exemplo abaixo para exibir só as colunas desejadas direto no grid:

 

// Application built with Spanish codepage
   cSql  := "SELECT First, Age, DATE_FORMAT( HIREDATE, '%d %M %Y %W' ) AS HireDate FROM customer"
   oRs   := oCn:RowSet( cSql, .t. )
   XBROWSER oRs AUTOFIT

   oCn:SetLocale( "zh_TW" ) // Chinese 

   cSql  := "SELECT First, Age, DATE_FORMAT( HIREDATE, '%d %M %Y %W' ) AS HireDate FROM customer"
   oRs   := oCn:RowSet( cSql, .t. )
   XBROWSER oRs AUTOFIT

 

Para retornar um array, ao invés do método RowSet, o pessoal usa o método:  QueryResult( cSQL )

 

Este exemplo peguei deste link http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32657

Hoje eu uso sqllib, mas só com sqlArray e sqlExecute, que me permitem usar sql 99% puro, sem interferências da lib/funções, etc, retornando sempre arrays.

Acredito que com essa classe dá pra trabalhar da mesma forma.

[betovsp]

 

Olá Beto. Bacana, não conhecia. Pesquisando rapidamente, vi esse exemplo abaixo para exibir só as colunas desejadas direto no grid:

 

// Application built with Spanish codepage
   cSql  := "SELECT First, Age, DATE_FORMAT( HIREDATE, '%d %M %Y %W' ) AS HireDate FROM customer"
   oRs   := oCn:RowSet( cSql, .t. )
   XBROWSER oRs AUTOFIT

   oCn:SetLocale( "zh_TW" ) // Chinese 

   cSql  := "SELECT First, Age, DATE_FORMAT( HIREDATE, '%d %M %Y %W' ) AS HireDate FROM customer"
   oRs   := oCn:RowSet( cSql, .t. )
   XBROWSER oRs AUTOFIT

 

Para retornar um array, ao invés do método RowSet, o pessoal usa o método:  QueryResult( cSQL )

 

Este exemplo peguei deste link http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32657

Hoje eu uso sqllib, mas só com sqlArray e sqlExecute, que me permitem usar sql 99% puro, sem interferências da lib/funções, etc, retornando sempre arrays.

Acredito que com essa classe dá pra trabalhar da mesma forma.

Show() de bola ecob, muito obrigado, o QueryResult(cSQL) me retornou exatamente o que eu queria, como estou gatinhando nisso ainda, me ajudou muito, esses links que me passaram, me servem de aprendizado, vlw mesmo a todos.

[Rogerio Figueira]

Olá Beto,
eu uso o tDolphin mas o funcionamento é quase igual para qualquer consulta.
Segue um exemplo:

 

oQry   := oServer:Query( "SELECT id, segto FROM tabseg" )

mseg={}
aadd(mseg,space(30))
oQry:gotop()
For x=1 to oQry:nRecCount
	aadd(mseg,oQry:segto)
   oQry:Skip()
next
oQry:End()

oQry   := oServer:Query( "SELECT id, zona FROM tabzon" )

mzon={}
aadd(mzon,space(30))
oQry:gotop()
For x=1 to oQry:nRecCount
	aadd(mzon,oQry:zona)
   oQry:Skip()
next
oQry:End()

...
	REDEFINE COMBOBOX Ocmatriz[13] VAR cmatriz[13] ITEMS mseg ID 105 of oFld:aDialogs[ 1 ] //segmento
	REDEFINE COMBOBOX Ocmatriz[14] VAR cmatriz[14] ITEMS mzon ID 122 of oFld:aDialogs[ 1 ] //zona

Sds.