Pedido de ajuda simples no MySql

[lugab]

Amigos, bom dia. Preciso muito de ajuda, para criar uma rotina pequena.

Dentro do meu sistema clipper (janela) , com Dbf/Cdx, compilado com Harbour 2.0 eu preciso:

1) Abrir um banco de dados Mysql chamado "VENDA"

2) criar um único registro em um arquivo composto dos 5 campos abaixo:

Codigo (c14)
nome (c20)
quantidade (n6v99)
valor (n11v99)
situacao c(1)

3) fechar o arquivo e bye-bye

4) Eu vou precisar, tb , ler este mesmo arquivo de dentro do meu clipper e recuperar o conteúdo do campo situacao, pra saber o resultado.

É isso. Eu andei lendo vários tópicos aqui e percebi que vai ser necessário inserir no meu function Main() um monte de .CH , .LIB , .RDD e usar até comandos SQL, estou certo ?. Infelizmente os tópicos lidos não tratam dessa minha necessidade....


Parece algo fácil de fazer, mas , pra mim, q nunca usei nada além de dbf/cdx e TXT em toda minha curta e forçada vida de programador, é algo até surreal , manipular 2 bancos de dados completamente diferentes !


Então, peço q me ajudem, do jeito que puderem !!!

Gabriel

[lugab]

Amigos, apenas algumas dicas para eu começar , já serão bem-vindas....

[alxsts]

Olá!

Acho que dá para ter uma ideia com o tópico Dicas para MYSQL com ADORDD. Agora é só pesquisar algo sobre ADORDD ou mesmo ADODB ou SQLMix.

[lugab]

Falô, Alexandre...

E pra botar isso pra funcionar (e testar) dentro do meu sistema, que LIBs e .CH e RDD eu devo linkar, Alexamndre ?

Eu uso o HB2.0

Obrigado

[WALDYR SKUYA]

Olá Gabriel,

Estou fazendo testes com uma classe de Harbour que você pode encontrar na pasta Contrib., dentro do HB (eu tenho o HB3.0, não sei se no HB2.0 tem). Isso pode te ajudar. No meu caso, os meus testes estão sendo feitos no ambiente da HMG.3.14. Nesse ambiente, quando instalada a pasta citada, temos exemplos (na pasta SAMPLES\SQL\MySQL) mais completos. Lá você fica sabendo como conectar, criar banco, tabelas, inserir, alterar, deletar e pesquisar.

Você pode usar também o SQLMIX, como outra alternatia que o Harbour oferece.

Espero ter ajudado.

Abraços,

Waldyr Skuya

[lugab]

Obrigado, Waldir...

Vou tentar suas dicas. Se eu conseguir compilar elas dentro do meu sisteminha, já vai ser um passo e tanto para mim.

gabriel

[sygecom]

Deu certo ai Gabriel ? qualquer coisa posta ai que agente da empurrãozinho...

[lugab]

Obrigado, amigos, mas eu, realmente, pensava q abrir um arquivo mysql e colocar na memória o conteúdo de seus campos, dentro de um programa clipper/harbour seria algo simples de ser feito.

Leonardo, eu ainda não consegui nem mesmo compilar as sugestões q os amigos deram aqui no tópico, pq não se consegue compilar quase nada com Harbour ou xharbour, sem antes saber que LIBs e que .CHs devem ser linkados junto com as colaborações.

[rochinha]

Amiguinho,

Não existe meio fácil, com certeza, mas a impossibilidade pode existir no seu caso.

Vejamos:

Em primeiro lugar necessita-se acesso a bases de dados não-nativas ao Harbour.

Bom, se sua versão esta atualizada de forma que os motores de RDD existam às pencas com certeza voce poderá usar um RDD apropriado.

O Harbour a anos vem implementando o RDDADO e os exemplos de uso são muito simples, senão banais.

No primeiro exemplo voce visualiza um esqueleto(não sei se totalmente funcional pois é um trecho de minha aplicação) usando este RDD:

Código: Selecionar todos

/*
 * $Id: access2.prg 14908 2010-06-26 08:32:23Z vszakats $
 */

/* Testing dbCreate() with Access database engine */

#include "adordd.ch"

// Este trecho foi tirado do ADORDD.PRG por 
// causa de uns erros na compilação
THREAD STATIC t_cTableName
THREAD STATIC t_cEngine
THREAD STATIC t_cServer
THREAD STATIC t_cUserName
THREAD STATIC t_cPassword
THREAD STATIC t_cQuery := ""

REQUEST ADORDD
REQUEST DBFCDX

PROCEDURE Main()

   SET DATE ANSI
   SET CENTURY ON

   dbSelectArea( 1 )
   USE sercaixa.mdb VIA "ADORDD" TABLE "produto"
   dbSelectArea( 2 )
   USE estoque VIA "DBFCDX" 

   dbSelectArea( 2 )
   dbGotop()
   nEstoqueItem := 0
   do while .not. eof()
      if estoque->idlinha < 1
         dbSkip()
         loop
      endif
      nEstoqueItem := nEstoqueItem + 1
      m->grupo         := 1 // estoque->idcategory
      m->subgrupo      := TipoDoValor( "N", estoque->idlinha )
      m->codigo        := TipoDoValor( "N", nEstoqueItem ) // estoque->iditem
      m->codigo_barras := TipoDoValor( "C", estoque->resumido )
      m->descricao     := TipoDoValor( "C", estoque->descricao )
      m->unidade       := TipoDoValor( "C", estoque->unidade )
      m->cst_s         := TipoDoValor( "C", estoque->idtributo )
      m->tributacao    := "01" // estoque->
      m->icms          := 18 // estoque->
      m->moeda         := "R$" // estoque->
      m->casa_decimal_c:= 2 // estoque->
      m->preco_custo   := TipoDoValor( "N", estoque->unitario )
      m->casa_decimal_v:= 2 // estoque->
      m->preco_vista   := TipoDoValor( "N", estoque->valorvenda )
      m->preco_prazo   := TipoDoValor( "N", estoque->valorvenda )
      m->permite_venda := -1 // iif(estoque->vendavel="N",-1,0)
      m->controla_lote := -1
      m->ativo         := iif(TipoDoValor( "C", estoque->inativo )="X",0,-1)
      m->tipo_venda    := "Q"
      dbSelectArea( 1 )
      //? nEstoqueItem
      APPEND BLANK
      sercaixa->grupo               := m->grupo
      sercaixa->subgrupo            := m->subgrupo
      sercaixa->codigo              := m->codigo
      sercaixa->codigo_barras       := m->codigo_barras
      sercaixa->descricao           := m->descricao
      sercaixa->unidade             := m->unidade
      sercaixa->cst_s               := m->cst_s
      sercaixa->tributacao          := m->tributacao
      sercaixa->icms                := m->icms
      sercaixa->moeda               := m->moeda
      sercaixa->casa_decimal_c      := m->casa_decimal_c
      sercaixa->preco_custo         := estoque->unitario
      sercaixa->casa_decimal_v      := m->casa_decimal_v
      sercaixa->preco_vista         := m->preco_vista
      sercaixa->preco_prazo         := m->preco_prazo
      sercaixa->permite_venda_prazo := m->permite_venda
      sercaixa->controla_lote       := m->controla_lote
      sercaixa->ativo               := m->ativo
      sercaixa->tipo_venda          := m->tipo_venda
      dbSelectArea( 2 )
      dbSkip()
   enddo

   dbSelectArea( 1 )
   dbGoTop()
   Browse()

   RETURN

Function TipoDoValor( _tipo_, _valor_ )
    if ValType( _valor_ ) <> _tipo_
       if _tipo_ = "C" 
          if ValType( _valor_ ) <> "C" 
             _valor_ := "" 
          endif
       endif
       if _tipo_ = "N" 
          if ValType( _valor_ ) <> "N" 
             _valor_ := 0
          endif
       endif
       if _tipo_ = "D" 
          if ValType( _valor_ ) <> "D" 
             _valor_ := CTOD("  /  /  ")
          endif
       endif
       if _tipo_ = "L" 
          if ValType( _valor_ ) <> "L" 
             _valor_ := .F.
          endif
       endif
       if _tipo_ = "M" 
          if ValType( _valor_ ) <> "M" 
             _valor_ := ""
          endif
       endif
    endif
    return _valor_

#include "adordd.prg"

No exemplo abaixo faço uso do ADOxB amplamente discutido aqui no forum e quisá no mundo:

Código: Selecionar todos

//#Include "ADOxB.ch"

#command ADO CONNECT <StrDriver>    => ADOCONNECT( <StrDriver> )
#command ADO DISCONNECT             => ADODISCONNECT()
#command ADO APPEND BLANK           => ADOAPPEND()
#command ADO EDIT                   => ADOEDIT()
#command ADO COMMIT [<save:SAVE>]   => ADOCOMMIT( [<.save.>] )
#command ADO SKIP                   => ADOSKIP( 1 ) 
#command ADO SKIP <num>             => ADOSKIP( <num> ) 
#command ADO DELETE                 => ADODELETE()
#command ADO UPDATE                 => ADOUPDATE()
#command ADO REPLACE <f1> WITH <v1> => ADOREPLACE( <(f1)>, <v1> )
#command ADO GOTOP                  => ADOGOTOP()
#command ADO GOBOTTOM               => ADOGOBOTTOM()
#command ADO SET FILTER TO          => ADOSETFILTER()
#command ADO SET FILTER TO <xpr>    => ADOSETFILTER( <xpr> )
#command ADO SAVE <(CfILE)>         => ADOSAVE( <(CfILE)> )
#command ADO EXECUTE <Sql>          => ADOEXECUTE( <Sql> )
#command ADO LOCATE <xpr>           => ADOLOCATE( <xpr> )
#command ADO REGLOCK                => ADOREGLOCK()
#command ADO CLOSE                  => ADOCLOSE()
#command ADO CLOSE ALL              => ADOCLOSEALL()
#command ADO SELECT <(cRecordSet)>  => ADOSELECT( <(cRecordSet)> )
#command ADO USE <(StrDatabase)>    => ADOUSE( <(StrDatabase)> )
//#command ADO USE                    => ADOUSE()
//#command ADO SORT ON [<(cF)>][<(x)>]=> ADOSORT( [<(cF)>][, <(x)>] )

#xcommand ADO SQL DELETE <*cSQL*>   => ADOEXECUTE( 'DELETE '+ <(cSQL)> )
#xcommand ADO SQL INSERT <*cSQL*>   => ADOEXECUTE( 'INSERT '+ <(cSQL)> )
#xcommand ADO SQL UPDATE <*cSQL*>   => ADOEXECUTE( 'UPDATE '+ <(cSQL)> )
#xcommand ADO SQL ALTER  <*cSQL*>   => ADOEXECUTE( 'ALTER ' + <(cSQL)> )
#xcommand ADO SQL CREATE <*cSQL*>   => ADOEXECUTE( 'CREATE '+ <(cSQL)> )
#xcommand ADO SQL DROP   <*cSQL*>   => ADOEXECUTE( 'DROP '  + <(cSQL)> )
#xcommand ADO SQL RENAME <*cSQL*>   => ADOEXECUTE( 'RENAME '+ <(cSQL)> )
#xcommand ADO SQL UPDATE <*cSQL*>   => ADOEXECUTE( 'UPDATE '+ <(cSQL)> )
#xcommand ADO SQL GRANT  <*cSQL*>   => ADOEXECUTE( 'GRANT ' + <(cSQL)> )
#xcommand ADO SQL REVOKE <*cSQL*>   => ADOEXECUTE( 'REVOKE '+ <(cSQL)> )

static oWnd, oClients, oClient, oName, oCursor
static cName
static oSplit

//REQUEST ADORDD

function main()

   SET DATE ANSI
   SET CENTURY ON

   ADOSetRDD( "ACCESS" )
    
   StrDatabase   := ".\sercaixa.mdb"
   StrConnection := "Provider= MicroSoft.Jet.OLEDB.4.0;Data Source="+StrDatabase+";"
   
   ADO CONNECT StrConnection
   oCursor:=CreateObject("ADODB.Recordset")

   ADO USE produto
   ADO SELECT produto

   ? "     Areas abertas: " + StrZero( len(aRecordSet), 2 ), ;
     "     Tabela Area 1: " + aRecordSet[1], ;
     "  Area selecionada: " + StrZero( nRecordSet, 2 ), ;
     "        Area atual: " + StrZero( ADOSelect(), 2 ), ;
     "    Registro atual: " + StrZero( ADORecno(), 4 ), ;
     "Total de registros: " + StrZero( ADORecCount(), 4 )

   USE estoque SHARED NEW

   //ADO SELECT produto
   //ADO GOTOP
   //WBrowseRecordSet( "DESCRICAO", ADOAlias() )
   //ADO GOTOP
   //if .not. ADOEOF()
   //   do while .not. ADOEOF()
   //      ADO DELETE
   //      ADO SKIP
   //   enddo
   //endif
   
   dbSelectArea( "estoque" )
   dbGotop()
   browse()
   dbGotop()
   nEstoqueItem := 0
   do while .not. eof()
      if estoque->idlinha < 1
         dbSkip()
         loop
      endif
      nEstoqueItem := nEstoqueItem + 1
      m->grupo         := 1 // estoque->idcategory
      m->subgrupo      := TipoDoValor( "N", estoque->idlinha )
      m->codigo        := TipoDoValor( "N", nEstoqueItem ) // estoque->iditem
      m->codigo_barras := TipoDoValor( "C", estoque->resumido )
      m->descricao     := TipoDoValor( "C", estoque->descricao )
      m->unidade       := TipoDoValor( "C", estoque->unidade )
      m->cst_s         := TipoDoValor( "C", estoque->idtributo )
      m->tributacao    := "01" // estoque->
      m->icms          := 18 // estoque->
      m->moeda         := "R$" // estoque->
      m->casa_decimal_c:= 2 // estoque->
      m->preco_custo   := TipoDoValor( "N", estoque->unitario )
      m->casa_decimal_v:= 2 // estoque->
      m->preco_vista   := TipoDoValor( "N", estoque->valorvenda )
      m->preco_prazo   := TipoDoValor( "N", estoque->valorvenda )
      m->permite_venda := -1 // iif(estoque->vendavel="N",-1,0)
      m->controla_lote := -1
      m->ativo         := iif(TipoDoValor( "C", estoque->inativo )="X",0,-1)
      m->tipo_venda    := "Q"
      ADO SELECT produto
      ADO APPEND BLANK
      ADO REPLACE "grupo"               WITH m->grupo
      ADO REPLACE "subgrupo"            WITH m->subgrupo
      ADO REPLACE "codigo"              WITH m->codigo
      ADO REPLACE "codigo_barras"       WITH m->codigo_barras
      ADO REPLACE "descricao"           WITH m->descricao
      ADO REPLACE "unidade"             WITH m->unidade
      ADO REPLACE "cst_s"               WITH m->cst_s
      ADO REPLACE "tributacao"          WITH m->tributacao
      ADO REPLACE "icms"                WITH m->icms
      ADO REPLACE "moeda"               WITH m->moeda
      ADO REPLACE "casa_decimal_c"      WITH m->casa_decimal_c
      ADO REPLACE "preco_custo"         WITH estoque->unitario
      ADO REPLACE "casa_decimal_v"      WITH m->casa_decimal_v
      ADO REPLACE "preco_vista"         WITH m->preco_vista
      ADO REPLACE "preco_prazo"         WITH m->preco_prazo
      ADO REPLACE "permite_venda_prazo" WITH m->permite_venda
      ADO REPLACE "controla_lote"       WITH m->controla_lote
      ADO REPLACE "ativo"               WITH m->ativo
      ADO REPLACE "tipo_venda"          WITH m->tipo_venda
      ADO UPDATE
      dbSelectArea( "estoque" )
      dbSkip()
   enddo

   ADO SELECT produto
   dbGoTop()
   WBrowseRecordSet( "DESCRICAO", ADOAlias() )
   
   oADOConection:Close()
   RETURN

function WBrowseRecordSet( cStrField, cStrAlias ) 
    LOCAL oDlg, oBrw, nRec 
    DEFINE DIALOG oDlg SIZE 300, 300 
    @ 0, 0 LISTBOX oBrw FIELDS ADOField( cStrField ) ; 
           HEADERS cStrAlias ; 
           ON RIGHT CLICK ( nRec := ADORecno(),; 
                            oBrw:Report( "ADO Exemplo", .T. ),; 
                            ADOGotop(),; 
                            ADOSkip( 0 ) ) 
    oBrw:bLogicLen := { || ADORecCount() }
    oBrw:bGoTop    := { || ADOGotop() } 
    oBrw:bGoBottom := { || ADOGoBottom() } 
    oBrw:bSkip     := { | nSkip | ADOSkip( nSkip ) } 
    oBrw:cAlias    := "ARRAY" 
    ACTIVATE DIALOG oDlg; 
             ON INIT oDlg:SetControl( oBrw ); 
             CENTER 

    RETURN NIL

Function TipoDoValor( _tipo_, _valor_ )
    if ValType( _valor_ ) <> _tipo_
       if _tipo_ = "C" 
          if ValType( _valor_ ) <> "C" 
             _valor_ := "" 
          endif
       endif
       if _tipo_ = "N" 
          if ValType( _valor_ ) <> "N" 
             _valor_ := 0
          endif
       endif
       if _tipo_ = "D" 
          if ValType( _valor_ ) <> "D" 
             _valor_ := CTOD("  /  /  ")
          endif
       endif
       if _tipo_ = "L" 
          if ValType( _valor_ ) <> "L" 
             _valor_ := .F.
          endif
       endif
       if _tipo_ = "M" 
          if ValType( _valor_ ) <> "M" 
             _valor_ := ""
          endif
       endif
    endif
    return _valor_

#include "adoxb.prg"

Perceba que no final dos exemplos eu incluo o código extra através de include.

Analise o código, pesquise aqui no forum por ADOxB/Rochinha e com certeza voce conseguirá resultado.

[lugab]

Rochinha, obrigado.

O código q vc postou é fácil de entender e era algo assim mesmo q eu esperava q fosse..

Mas veja:

Por incrível q pareça, o mais dificil tem sido testar as colaborações de vcs, por que sempre falta informar quais LIBS e quais CHs deverei acrescentar no meu código , para tornar a sugestão compilável.

Eu ainda não consegui testar nenhuma colaboração, pq sempre surgem erros na compilação e não gera executável, sempre por falta de incluir .lib e .ch , e eu não tenho capacitação nenhuma para sequer advinhar quais seriam essas libs e chs

[rochinha]

Amiguinho,

O primeiro exemplo precisará da adição à compilação da ADORDD.LIB ou RDDADO.LIB ou HBADO.LIB dependendo da versão do Harbour.

O segundo exemplo faz uso maciço de OLE acessando arquivos através do motor ADO via automação OLE. Portanto a biblioteca necessária deverá ter OLE no nome.

[lugab]

Valeu, Rochinha, Muito obrigado.

[cjp]

Carlos colegas,

Estou tentando começar a usar o SQL, mas estou tendo alguma dificuldade nos passos iniciais.

Seguindo recomendação de alguns colegas, instalei o SQL Server Management Studio. Até aí tudo certo. Já até criei uma base de teste.

Depois, me recomendaram instalar o pgAdmin III. Não sei bem para que funciona, mas instalei. Só que não consigo conectar com ele.

Está dando o seguinte erro na conexão:

Código: Selecionar todos

Access to database denied
The server doesn't grant access to the database: the server reports 
FATAL: no pg_hba.conf entry for host "187.95.116.177", user "inaciobr", database "postgres", SSL off 
To access a database on a PostgreSQL server, you first have to grant primary access to the server for your client (Host Based Authentication). PostgreSQL will check the pg_hba.conf file if a pattern that matches your client address / username / database is present and enabled before any SQL GRANT access control lists are evaluated. 
The initial settings in pg_hba.conf are quite restrictive, in order to avoid unwanted security holes caused by unreviewed but mandatory system settings. You'll probably want to add something like 
host all all 192.168.0.0/24 md5 
This example grants MD5 encrypted password access to all databases to all users on the private network 192.168.0.0/24. 
You can use the pg_hba.conf editor that is built into pgAdmin III to edit the pg_hba.conf configuration file. After changing pg_hba.conf, you need to trigger a server configuration reload using pg_ctl or by stopping and restarting the server process. 

Não sei de onde ele tirou esse host 187.95.116.177.

Alguém me ajuda?

É realmente preciso usar esse pgAdmin III mesmo? Caso positivo, o que eu estou fazendo de errado?

[alxsts]

Olá!

Gostaria de entender o que você realmente pretende utilizar.

O título do tópico diz:

Pedido de ajuda simples no MySql

Mais abaixo você escreve:

Seguindo recomendação de alguns colegas, instalei o SQL Server Management Studio. Até aí tudo certo. Já até criei uma base de teste.

Mais abaixo ainda, lê-se:

Depois, me recomendaram instalar o pgAdmin III. Não sei bem para que funciona, mas instalei. Só que não consigo conectar com ele.

Para administrar uma coleção de tabelas, que nos tempos de xBase eram chamadas de "bancos de dados", usava-se o DBU.
Para administrar uma base de dados relacional do Microsoft SQL Server, usa-se o Microsoft SQL Server Management Studio.
Para administrar uma base de dados relacional do Postgree, usas-se o PGAdmin.
Oracle, DB2, Informix, Sybase, MySql (atual MariaDB), por sua vez tem seus próprios programas para administração de suas bases de dados, cada um com características próprias.

Os bancos de dados SQL Server Express Edition, Oracle Express, Postgree e MySql (parou na versão 5.5, depois que a Oracle comprou a Sun (antiga dona do MySQL) - tem um grupo que saiu da Sun e mantem a evolução do MySQL, agora com o nome MariaDB) são grátis - verifique limitações de cada um.

Por favor, informe qual será o banco de dados que você escolheu para trabalhar. Isto facilitará o fornecimento de ajuda pelos colegas.

[cjp]

Desculpe, mas eu não sabia que existia tanta diversidade. É que não estou familiarizado com essa questão.

Então, peço ajuda dos colegas inclusive para definir qual utilizar, pois cada pessoa que me instrui dá uma informação diferente, acabo sem saber qual é melhor.

Eu uso Harbour. Portanto, gostaria de usar um tipo de banco de dados que seja o mais facilmente acessível pelo Harbour possível.

Minha pretensão é que haja maior confiabilidade nos dados, pois, atualmente, com DBF, tenho tido muita perda de integridade dos dados.

Também tenho pretensão que o banco seja acessível em PHP. Embora eu não tenha muito conhecimento a respeito, estou começando a fazer algumas coisas simples em PHP; seria bom que os dados fossem acessíveis dessa forma.

Por fim, tenho pretensão de aprender VBA. Ainda não comecei, mas, caso dê certo, gostaria que a base de dados fosse também acessível em VBA.

O que vcs me recomendam?