Search the Community

Bom dia. Estou tentando fazer um "For Select" em MySql porém não estou entendendo o que esta errado no meu comando, poderiam me ajudar por favor ? Eu tenho uma tabela no qual é salvo as informações de respostas todas na mesma coluna referenciando o ID da tabela de pergunta... no entanto eu preciso que cada resposta seja exibida em sua respectiva coluna de pergunta. Desta forma estou tentando criar uma procedure que execute um for Select e para cada registro retornado deve ser salvo em uma variável diferente... para isso utilizei um contador para saber em qual variável deve ser salvo a informação retornada. Segue imagem da Tabela no qual preciso executar o For Select: Segue minha procedure: DROP procedure IF EXISTS `retorna_preco_concorrente`; DELIMITER $$ CREATE DEFINER=`glpi`@`localhost` PROCEDURE `retorna_preco_concorrente`( IN nome_concorrente VARCHAR(100), familia_produto VARCHAR(100), preco_s_ipi VARCHAR(100), preco_c_ipi VARCHAR(100), prazo VARCHAR(100), icms VARCHAR(10), reg INT, quest INT, resp VARCHAR(100) ) BEGIN set reg = 0; For Select r.plugin_formcreator_formanswers_id, r.plugin_formcreator_questions_id ,r.answer from glpi_plugin_formcreator_answers r order by r.plugin_formcreator_formanswers_id, r.plugin_formcreator_questions_id Into reg, quest, resp Do Begin IF(reg = 0) then begin set nome_concorrente = resp; end ELSEIF(reg = 1) then begin set familia_produto = resp; end ELSEIF(reg = 2) then begin set preco_s_ipi = resp; end ELSEIF(reg = 3) then begin set preco_c_ipi = resp; end ELSEIF(reg = 4) then begin set prazo = resp; end ELSEIF(reg = 5) then begin set icms = resp; end END IF; Set reg = reg+1; IF(reg > 5) then begin suspend; end End END;$$ DELIMITER ; OBS não tenho muita pratica com Mysql.

Boa tarde, estou tentando enviar minha base sql local para uma base hospedada em servidor cloud gerenciado na locaweb. Estou usando SQLRDD e toda vez que subo tabelas maiores que 10 MB ou 10 mil registros ele não sobe . Meu processo é: subo a estrutura, crio os index e faço preenchimento dos dados. Se alguém tiver algum modelo de como faz ou se já utilizou para dar uma luz, qualquer dica é válida!!! Abraço à todos,

SQLite Editor (freeware): - Gerenciamento de banco de dados SQLite - Importação em lote de tabelas DBF, exportação para MariaDB/MySQL - SQL Runner, SQL Assistente, etc. Download, Screenshots: https://www.ozs.es/wp/sqlite-editor/ Video (SQL Assistente): https://www.youtube.com/watch?v=gx2QcjHaMRE As ferramentas: SQLite Editor e DBF Editor (xaDbu: DBF, ADS/ADT...) também estão integradas em: - xEdit: Editor xBase profissional (freeware) - Xailer

Olá! Estou usando xbrowse para mostrar a consulta: oPac := oPacDba:Query( "select pac.id as 'ID',emp.nom_emp as 'Empresa',"+; "pac.tit_pac as 'Destino',substr(pac.des_pac,1,50) as 'Detalhes' "+; "from tb_pac as pac,tb_emp as emp where pac.id_emp = emp.id", .t. ) Os registro são recuperados e exibidos sem problemas até que surge uma mensagem de erro (1064) do MySQL dizendo que tem um erro de sintaxe... Alguém já passou por isso? Obrigado! Rodrigo Melo Belo Horizonte

Estou com um problema no módulo de pedidos do meu sistema. O cliente grava um pedido em uma máquina, mas as vezes na outra máquina não aparece esse pedido no XBROWSE. ( Quando isso acontece, o cliente chega até a fechar o sistema na máquina que não aparece o pedido e abrir novamente para aparecer) Pelo que percebi, isso acontece mais no final do dia, porque no período da manhã o sistema funciona normalmente Estou usando fivewin e gravando em banco de dados mysql Alguém já passou por isso antes?

Alguém sabe de algum "post" com os métodos das classes mysql e mariadb. Verifiquei algumas como ShowError() que exibe a msg. Preciso capturar a msg de erro e salvar em arquivo log. JMSilva FiveWin 17.01 é show

Bom dia amigos, acontece algumas vezes do cliente ligar a maquina e o serviço do MYSQL não subir, ai reinicio a maquina ou dou NET START mysql e volta ao normal. Alguém já passou por isso? Existe uma forma de forçar subir o serviço do MYSQL? Obrigado

Boa tarde, Estou em busca de trabalhos freelancer, se alguém precisa de algum tipo de rotina, ou qualquer trabalho voltado a programação web/desktop estou a disposição. E-mail/Skype: suporte@lailton.com.br Obrigado.

Amigos, Estou querendo enviar o conteúdo de um DBF para uma tabela do MySQL sem repetir cadastros. O motivo é que eu já enviei o conteúdo uma vez e agora quero que grave apenas os registros novos. Como são muitos, quero que a validação seja feita via comando, para eu não ter que enviar os novos um a um. Qual comando INSERT me permite incluir apenas os registros não existentes na tabela, validando por CNPJ? Quero algo do tipo (Exemplo abaixo, não testado, apenas para demonstrar): INSERT INTO CLIENTES (CNPJ, RAZAO, FANTASIA, ENDERECO, TELEFONE) SET ('12345678000101', 'RAZAO SOCIAL 01', 'NOME FANTASIA 01', 'ENDEREÇO 01', '9 9123-9991') IF NOT EXIST CNPJ = '12345678000101' SET ('12345678000102', 'RAZAO SOCIAL 02', 'NOME FANTASIA 02', 'ENDEREÇO 02', '9 9123-9992') IF NOT EXIST CNPJ = '12345678000102' SET ('12345678000103', 'RAZAO SOCIAL 03', 'NOME FANTASIA 03', 'ENDEREÇO 03', '9 9123-9993') IF NOT EXIST CNPJ = '12345678000103' SET ('12345678000104', 'RAZAO SOCIAL 04', 'NOME FANTASIA 04', 'ENDEREÇO 04', '9 9123-9994') IF NOT EXIST CNPJ = '12345678000104' SET ('12345678000105', 'RAZAO SOCIAL 05', 'NOME FANTASIA 05', 'ENDEREÇO 05', '9 9123-9995') IF NOT EXIST CNPJ = '12345678000105' SET ('12345678000106', 'RAZAO SOCIAL 06', 'NOME FANTASIA 06', 'ENDEREÇO 06', '9 9123-9996') IF NOT EXIST CNPJ = '12345678000106' Grato.

Pessoal.. não tenho experiência nisso.. então preciso de uma ajuda! Estou usando a SQLLIB do Vailton e assim usando o MySql como Banco de Dados, agora preciso instalar o software numa outra máquina. Claro, vou instalar o MySql 5.0, mas e ai? Como faço pra copiar o meu Banco de Dados com suas tabelas pra dentro da máquina nova? Att. Everton

Prezados, Boa tarde! Estou usando SqlRdd com banco de dados MYSQL e estou implementando uma rotina de alteração de estrutura das tabelas. Eu vi que o SQLRDD tem a função ChangeStruct(), porém não consegui fazer funcionar. Alguém tem uma rotina semelhante que possa me ajudar? Grato.

Buenas tardes Podrían ayudarme a configurar xDevstudio para que compile con MySql nativo, Se los agradezco de antemano Luis Traducido por Google Boa tarde Eles poderiam me ajudar a definir xDevstudio para compilar o MySQL com nativa, Eu agradeço antecipadamente Luis

Amigos... Estou fazendo uma janela com dois xBrowse, Já tenho coisas similares no meu software, porem nesta janela esta dando um erro estranho.. Quando tento abrir o segundo xBrowse o sistema não abre e da o seguinte erro Error DBCMD/2001 Workarea not in use: RDDNAME Eu uso a SQLLib e a MySql 5.0 Criei a tabela usando um utilitário que peguei no Superdownloads o MySql WorkBench, acho que deve ser da própria Oracle... mas não é a primeira tabela que crio, já criei várias e nunca deu problema, mas esta tabela, que só tem dois campos, ta dando pau. A princípio achei que tinha alguma limitação na quantidade de tabelas no BD, apaguei algumas que tinha criado e que ainda não usei, não deu certo. Criei de novo, não deu certo. Criei outra nova, não deu certo.. fiz isso por umas 10 vezes para ter certeza que não esqueci de nada, e não deu certo.. Se abro as duas xBrowse com a mesma tabela USUARIO da certo... ai resolvi tentar outra coisa, copiei a estrutura e o conteúdo da tabela USUARIO que é a primeira que abro na janela.. ( na primeira xBrowse da janela ) e que abre normalmente, para uma tabela chamada PROG_FUNC. se tento usar na segunda xBrowse a tabela nova ( copiada exatamente como a tabela USUARIO, inclusive com os registros ) da pau... E Argola? alguma idéia??? oXBrw1 := TXBrowse():New( oGrp2 ) oXBrw1:nMarqueeStyle := 5 oXBrw1:nColDividerStyle := 3 oXBrw1:nRowDividerStyle := 3 oXBrw1:lColDividerComplete := .F. oXBrw1:nHeaderLines := 1 oXBrw1:nDataLines := 1 oXBrw1:lFooter := .T. oXBrw1:nRecSelColor := 14204813 oXBrw1:cAlias := "Operador" oXBrw1:lRecordSelector := .t. oXBrw1:lHScroll := .F. oXBrw1:SetRDD() oXBrw1:CreateFromCode() oXBrw1:Move( 17.00, 5.00, 479.00, 154.00, .t. ) aCol_oXBrw1[1] := oXBrw1:aCols[1] aCol_oXBrw1[1]:nWidth := 70 aCol_oXBrw1[1]:cHeader := "Código" aCol_oXBrw1[1]:lHIDE := .F. aCol_oXBrw1[1]:oHeaderFont := oFONT1 aCol_oXBrw1[1]:oDataFont := oFONT1 aCol_oXBrw1[1]:oFooterFont := oFONT1 aCol_oXBrw1[1]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[1]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[1]:bLDClickData := {||} aCol_oXBrw1[4] := oXBrw1:aCols[4] aCol_oXBrw1[4]:nWidth := 295 aCol_oXBrw1[4]:cHeader := "Nome" aCol_oXBrw1[4]:lHIDE := .F. aCol_oXBrw1[4]:oHeaderFont := oFONT1 aCol_oXBrw1[4]:oDataFont := oFONT1 aCol_oXBrw1[4]:oFooterFont := oFONT1 aCol_oXBrw1[4]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[4]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[4]:bLDClickData := {||} aCol_oXBrw1[5] := oXBrw1:aCols[5] aCol_oXBrw1[5]:nWidth := 70 aCol_oXBrw1[5]:cHeader := "Unidade" aCol_oXBrw1[5]:lHIDE := .F. aCol_oXBrw1[5]:oHeaderFont := oFONT1 aCol_oXBrw1[5]:oDataFont := oFONT1 aCol_oXBrw1[5]:oFooterFont := oFONT1 aCol_oXBrw1[5]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw1[5]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw1[5]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw1[5]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw1[5]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[5]:bLDClickData := {||} aCol_oXBrw1[2] := oXBrw1:aCols[2] aCol_oXBrw1[2]:lHIDE := .T. aCol_oXBrw1[3] := oXBrw1:aCols[3] aCol_oXBrw1[3]:lHIDE := .T. aCol_oXBrw1[6] := oXBrw1:aCols[6] aCol_oXBrw1[6]:lHIDE := .T. aCol_oXBrw1[7] := oXBrw1:aCols[7] aCol_oXBrw1[7]:lHIDE := .T. oXBrw1:refresh() @ 187, 6 GROUP oGrp3 TO 372, 495 LABEL "Funcionalidades" PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 oXBrw11 := TXBrowse():New( oGrp3 ) oXBrw11:nMarqueeStyle := 5 oXBrw11:nColDividerStyle := 3 oXBrw11:nRowDividerStyle := 3 oXBrw11:lColDividerComplete := .F. oXBrw11:nHeaderLines := 1 oXBrw11:nDataLines := 1 oXBrw11:lFooter := .T. oXBrw11:nRecSelColor := 14204813 oXBrw11:cAlias := "prg_func" oXBrw11:lRecordSelector := .t. oXBrw11:lHScroll := .F. oXBrw11:SetRDD() oXBrw11:CreateFromCode() oXBrw11:Move( 17.00, 5.00, 479.00, 154.00, .t. ) aCol_oXBrw11[1] := oXBrw11:aCols[1] aCol_oXBrw11[1]:nWidth := 70 aCol_oXBrw11[1]:cHeader := "Código" aCol_oXBrw11[1]:lHIDE := .F. aCol_oXBrw11[1]:oHeaderFont := oFONT1 aCol_oXBrw11[1]:oDataFont := oFONT1 aCol_oXBrw11[1]:oFooterFont := oFONT1 aCol_oXBrw11[1]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[1]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[1]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[1]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[1]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[1]:bLDClickData := {||} aCol_oXBrw11[4] := oXBrw11:aCols[4] aCol_oXBrw11[4]:nWidth := 295 aCol_oXBrw11[4]:cHeader := "Nome" aCol_oXBrw11[4]:lHIDE := .F. aCol_oXBrw11[4]:oHeaderFont := oFONT1 aCol_oXBrw11[4]:oDataFont := oFONT1 aCol_oXBrw11[4]:oFooterFont := oFONT1 aCol_oXBrw11[4]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[4]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[4]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[4]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[4]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw1[4]:bLDClickData := {||} aCol_oXBrw11[5] := oXBrw11:aCols[5] aCol_oXBrw11[5]:nWidth := 70 aCol_oXBrw11[5]:cHeader := "Unidade" aCol_oXBrw11[5]:lHIDE := .F. aCol_oXBrw11[5]:oHeaderFont := oFONT1 aCol_oXBrw11[5]:oDataFont := oFONT1 aCol_oXBrw11[5]:oFooterFont := oFONT1 aCol_oXBrw11[5]:bClrHeader := {|| { 0, 14204813 } } aCol_oXBrw11[5]:bClrFooter := {|| { 0, 15790320 } } aCol_oXBrw11[5]:bClrStd := {|| { 0, 16777215 } } aCol_oXBrw11[5]:bClrSel := {|| { 0, 6579300 } } aCol_oXBrw11[5]:bClrSelFocus := {|| { 0, 10806201 } } *aCol_oXBrw11[5]:bLDClickData := {||} aCol_oXBrw11[2] := oXBrw11:aCols[2] aCol_oXBrw11[2]:lHIDE := .T. aCol_oXBrw11[3] := oXBrw11:aCols[3] aCol_oXBrw11[3]:lHIDE := .T. aCol_oXBrw11[6] := oXBrw11:aCols[6] aCol_oXBrw11[6]:lHIDE := .T. aCol_oXBrw11[7] := oXBrw11:aCols[7] aCol_oXBrw11[7]:lHIDE := .T. oXBrw11:refresh() Poxa.. ficou um post kilométrico... att.

Bom dia amigos, estou terminando um software e gostaria de fazer um arquivo de instalação.. na realidade estou bem familiarizado com o Install Creator, e tenho 90% de chances de usar ele.. o que acontece é que anteriormente eu usava DBF, e meu sistema criava sozinho os DBF´s, quando não encontrava na pasta de instalação, porem agora estou usando a SQLLIB e o MySql. Como faço para incluir no meu instalador o meu banco de dados? Tem outro instalador que, de repente, seria mais aconselhável usar para mandar junto minhas tabelas?? Como os nobres colegas fazem? Att.

Olá a todos do five Gostaria desaber se alguem tem alguma idéia de como poderia nesta função adicionar a opção de salvar o banco também em SQL. Tipo no commit salvando em 2 bancos um em DBF e SQL. repl lograd with vlograd repl cidade with vcidade repl bairro with vbairro repl estado with vestado repl abrevi with vabrevi dbcommit() ....."script de sql " return Desde já me encontro a disposição. Muito obrigado