ricardo80

Members
  • Content count

    20
  • Joined

  • Last visited

  • Days Won

    1

ricardo80 last won the day on October 4

ricardo80 had the most liked content!

Community Reputation

2 Neutral

About ricardo80

  • Rank
    Member
  1. Boa tarde, tenho o seguinte cenário, pego os dados do cliente em um servidor remoto, como ip da conexão, se esta em dia, e afins(aqui com SQLCONNECT), e depois vou conectar na base do cliente(aqui com HOpenConnection), consigo fazer com os dois métodos de conexão? Primeiro usar o SQLConnect, e depois fechar a conexão e só trabalhar com o HOpenConnection, é possivel isso?
  2. Bom dia Vilani, estou migrando para analysis, agora estou com um problema assim.... usando este código IF abreBanco() THEN wComandoSQL is string = "SELECT descricao,chave FROM GENIND WHERE trim(ALIAS1)='%1' order by ordem asc" wComandoSQL = StringBuild(wComandoSQL,NoSpace(rAlias)) rGenInd is Data Source IF executaSQL(wComandoSQL,rGenInd,False) THEN rControle.DeleteAll() rControle.Add("") // CRIA UM EM BRANCO HReadFirst(rGenInd) WHILE NOT HOut(rGenInd) ListAdd(rControle,NoSpace(rGenInd.descricao)+gLink((rGenInd.chave))) HReadNext(rGenInd) END ELSE Info(HErrorInfo()) HFreeQuery(rGenInd) HCloseConnection(Conexao) END HFreeQuery(rGenInd) HCloseConnection(Conexao) END ele preenche o combo sem problemas, agora eu quero fazer é preencher um table control, estou usando a mesma técnica, mas ele esta trazendo somente um registro... a minha função executaSQL; PROCEDURE executaSQL(rComandoSQL is string,rDataSource is Data Source,rSetPath is boolean = False):boolean IF rSetPath = True THEN executaSetSearch_path() END IF HExecuteSQLQuery(rDataSource,Conexao,hQueryWithoutCorrection,rComandoSQL) THEN RESULT True ELSE Info(HErrorInfo()) RESULT False END e a função executaSetSearch_path PROCEDURE executaSetSearch_path():boolean wComando is string = "SET search_path TO %1,public" wComando = StringBuild(wComando,PU_Schema) xxx is Data Source IF HExecuteSQLQuery(xxx, Conexao, hQueryWithoutCorrection, wComando) THEN HFreeQuery(xxx) RESULT True ELSE Info(ErrorInfo()) HFreeQuery(xxx) RESULT False END não sei o pq esta acontecendo isso de trazer apenas um registro, e eu executando o comando direto no banco, funciona normal....
  3. Pior que não... eu contornei essa situação fazendo assim... HExecuteSQLQuery(rDataSource,Conexao,hQueryWithoutCorrection,rComandoSQL) Mas não sei o pq deste erro
  4. Bom dia....la vem mais barbeiragens minhas... Fatal error caused by <native PostgreSQL> access. e esse é o código que eu estou executando no [ Initializing of PAGE_Vendedores (server) ] IF HOpenConnection(Conexao) THEN wComandoSQL is string = "SELECT descricao,chave FROM GENIND WHERE trim(ALIAS1)='rep' order by ordem asc" rGenInd is Data Source IF HExecuteSQLQuery(rGenInd, wComandoSQL) THEN Info(HErrorInfo()) HFreeQuery(rGenInd) HCloseConnection(Conexao) ELSE COMBO_Buscar_por.DeleteAll() COMBO_Buscar_por.Add("") // CRIA UM EM BRANCO HReadFirst(rGenInd) WHILE NOT HOut(rGenInd) ListAdd(COMBO_Buscar_por,NoSpace(rGenInd.descricao)+TAB+(rGenInd.chave)) HReadNext(rGenInd) END END HFreeQuery(rGenInd) HCloseConnection(Conexao) END não sei o que é isso que ta acontecendo...
  5. Boa tarde, eu to tentando só dar um set search path no banco(Postgres), e ele me retorna essa mensagem...não sei se estou fazendo do modo correto Error in the SQL code of <_SOURCE_xxx_3> query. Unable to initialize the query. Unexpected word: search_path Error detected row 1, column 5: SET >>>>search_path<<<< TO emp01,public e o código que eu to usando é isso wComando is string = "SET search_path TO %1,public" wComando = StringBuild(wComando,PU_Schema) xxx is Data Source IF HExecuteSQLQuery(xxx, wComando) THEN HFreeQuery(xxx) RESULT True ELSE Info(ErrorInfo()) HFreeQuery(xxx) RESULT False END como posso fazer isso?
  6. Bom dia, la eu com minhas dúvidas, mas não achei nada no site do webdev, qual a diferença de eu usar HFreeQuery([data_source]) e [data_source].FreeQuery Pergunto isso pq la no site deles diz que as duas funções fazem a mesma coisa, ou estou errado?
  7. Acho que era barberagem minha aqui...consegui criar a analisys....gracias pela força
  8. quanto a anasys estar mais atualizada que a base do cliente nós temos como arrumar...temos uma ferramenta pra atualizar e dai é tranquilo... meu skype: [email protected] Agora outro problema/dúvida/barbeiragem...hehehe Usamos o banco postgres aqui, e eu to tentando criar a analisys e do nada o nosso webdev se fecha...alguém já passou por isso?
  9. Isso mesmo, mas não deu certo, segue o meu código... TABLE_Vendedores.Grayed = True //DEIXA ZEBRADO TABLE_Vendedores.COL_Código.Width = 50 TABLE_Vendedores.COL_Nome.Width = 200 TABLE_Vendedores.COL_Comissão_AP.Width = 100 TABLE_Vendedores.COL_Comissão_AV.Width = 100 TableDeleteAll(TABLE_Vendedores) IF abreBanco() THEN wComando is string ="SELECT codrep,nome,per_comis,per_comisap FROM repres" // WHERE IF wCondicao<>"" AND EDT_TextoBusca<>"" THEN wComando = wComando + " WHERE TRIM(%1) ='%2'" wComando = StringBuild(wComando,wCondicao,NoSpace(EDT_TextoBusca)) END //ORDER BY IF Length(wOrdem)>0 THEN wComando = wComando + " ORDER BY " + wOrdem END IF executaSQL(wComando,"tmp",True) = False THEN SQLInfo() Error("CÓDIGO.:" + SQL.Error,"MENSAGEM.:"+SQL.MesError) ELSE SQLTable("tmp",TABLE_Vendedores) END fechaBanco("tmp") END
  10. Bom dia, tenho o seguinte senário, o cliente vai acessar a nossa aplicação, dai ele vem no nosso banco de dados para pegar alguns dados, entre ele, o endereço do servidor de dados, dele, dai depois o sistema vai logar no banco do cliente... Isto é assim, pq o nosso sistema é desktop, então tenho um banco físico em cada cliente.... Dai, agora vem as dúvidas: Cada cliente tem um banco de dados instalado num servidor seu mesmo, ou seja, o cliente A vai acessar o IP: 132, o cliente B via acessar o IP:321, eu criando a analisys, consigo alterar o "local" onde esta o servidor de dados do cliente? Outra dúvida, quando eu rodar uma atualização no banco de dados do cliente, a analisys vai "pegar" as novas atualizações do banco do cliente Mais uma, existe algum grupo do skype ou whatsapp para troca de informações sobre o webdev
  11. Boa tarde, eu fiz um exemplo do controle table e ele ficou aparecendo a lupinha; Dai em outro projeto eu coloquei um controle table e não apareceu a lupinha nas colunas, O que faz com que elas fiquem aparecendo no meu projeto?
  12. Ela vai montar o controle table, setar tamanho e os nomes das colunas e preencher com o resultado do seletc, algo +/- assim PROCEDURE montaGrid(rControle Controle,rNomeColunas is string,rTamanhoColunas is string,rComandoSQL is string) //FORMATAR GRID [ AQUI AINDA NÃO FIZ] //PEGAR QTDE DE COLUNAS [ AQUI AINDA NÃO FIZ] //SETAR OS NOMES E OS TAMANHOS [ AQUI AINDA NÃO FIZ] //EXECUTAR SQL, [AQUI ESTA OK]
  13. Bom dia, consigo criar um table de forma dinamica, digo via programação, qtdes de colunas, tamanhos e os títulos dela via comando no WEBDEV?
  14. é que neste projeto que estamos tentando estruturar aqui, eu vou conectar em uma base de dados( em um servidor da nuvem), e depois de passar por essa conexão, ele vai acessar a base de dados do cliente( servidor do cliente)