Bettega

Tenho em um computador, o MySQL instalado, funcionando normalmente, com o Zeus. Instalei o MariaDB, e quando tento conectar ao database, recebo a seguinte mensagem : SQL error: Unkown database 'estoque'. Se Eu criar este database no MySQL, consigo conectar mesmo colocando MariaDB-10 no protocolo. Em outro computador, sem o MySQL, quando tento conectar, recebo a seguinte mensagem : Requested database driver was not found. O que devo fazer em cada caso ? Desejo passar a utilizar o MariaDB. Obrigado.

Deu certo. Fiz da seguinte maneira : Query1.Active := false; Query1.Close ; Query1.SQL.Clear ; Query1.SQL.Add ( 'Select * from ' + mArq ) ; if Rb_Igual.Checked then Query1.SQL.Add ( 'where ' + Ed_Campo_F.Text + ' = "' + Ed_Filtro.Text + '" ' ) ; if Rb_Difer.Checked then Query1.SQL.Add ( 'where ' + Ed_Campo_F.Text + ' <> "' + Ed_Filtro.Text + '" ' ) ; if Rb_Maior.Checked then Query1.SQL.Add ( 'where ' + Ed_Campo_F.Text + ' >= "' + Ed_Filtro.Text + '" ' ) ; if Rb_Menor.Checked then Query1.SQL.Add ( 'where ' + Ed_Campo_F.Text + ' <= "' + Ed_Filtro.Text + '" ' ) ; Query1.SQL.Add ( 'order by ' + mIndex ) ; Query1.Active := true ; Query1.Open ; A tua dica foi o que me fez ir no caminho certo. A diferença foi nas aspas duplas. Quando visualizei no showmessage, vi que faltava algo. Obrigado, Bettega.

Obrigado Jhonas. Copiei e colei a tua resposta. Invalid use of keyword Token := Line Number: 1.

Bom dia. Estou tentando fazer um filtro em uma query. Tenho : Uma variável mArq, que é o nome do arquivo a consultar. 4 RadioButton if Rb_Igual .Checked then Inicio.mSinal := ' = ' ; if Rb_Difer .Checked then Inicio.mSinal := ' <> ' ; if Rb_Maior .Checked then Inicio.mSinal := ' >= ' ; if Rb_Menor .Checked then Inicio.mSinal := ' <= ' ; e dois edits Ed_Campo e Ed_Filtro Estou tentando fazer desta forma : Query1.Close ; Query1.SQL.Clear ; Query1.SQL.Add ( 'Select * from ' + mArq ) ; Query1.SQL.Add ( 'where ' + Ed_Campo_F.Text + Inicio.mSinal + Ed_Filtro.Text ) ; Já tentei colocar aspas em várias formas diferentes, mas sempre dá erro. Somente o select sem o where, funciona. Neste caso, a query é para arquivos Paradox. Posteriormente vou fazer para MySQL. Por esta razão, se forem diferentes, favor postar as duas. Obrigado.

Copiei os dados para o diretório do Delphi, e consegui instalar. Obrigado Jhonas

Exato. Já tenho o Delphi XE6 com Zeos. Como posso fazer para especificar o local ?

Estou tentando instalar o Zeos no Delphi 10.2. Baixei a última versão estável do Zeos. ( 7.2.6.1 ) Adiciono todos os paths necessários. Quando vou abrir o ProjectGroup, só encontro o ProjectGrup24.groupproj na pasta do Delphi 10.1. Acredito que seja o mesmo. Quando vou compilar os arquivos bpl, dá erro de compilação no ZDbc240.bpl ( Unit ZOleDB not Found ) e no ZComponent240.bpl ( Never-build package ZDbc must be recompiled ). Não adianta recompilar. Sempre dá erro. Mesmo assim, tento instalar o ZComponentDesign240.bpl, mas também dá erro, e não instala o Zeos. Alguma idéia do que fazer ? Obrigado. Bettega.

Jhonas, obrigado por sua resposta. Consegui contornar o problema, verificando se os dados foram atualizados, e só então fazer o applyupdate. Se o problema persistir em outras rotinas vou tentar fazer o downgrade do Zeos. Obrigado novamente.

Estou utilizando Delphi X6 / MySql 5 / Zeos 7.2.6 Tenho esta rotina em um programa, e está funcionando perfeitamente. zTable.Filter := 'CODBANC = ''' + mBanco + ''' '; zTable.Filtered := True ; zTable.IndexFieldNames := 'PREVPARA, D_C, ID' ; zTable.Open ; mSaldo := 0 ; zTable.First ; while not zTable.eof do begin mSaldo := mSaldo + zTable.FieldByName ( 'VALORC' ).AsFloat - zTable.FieldByName ( 'VALORD' ).AsFloat ; zTable.Edit ; zTable.FieldByName ( 'SALDO' ).AsFloat := mSaldo ; zTable.ApplyUpdates ; zTable.Next ; end; zTable.Filtered := False ; zTable.Close ; Quando coloquei a mesma rotina em outro programa, recebo a seguinte mensagem: 0 record(s) updated. Only one record should have been updated. Já tentei de tudo, mas não consigo resolver. No Portal Zeos Lib, tem o seguinte: For Zeos 7.2 please add the following line to your TZConnection. Properties: CLIENT_FOUND_ROWS=1 This will enable the CLIENT_FOUND_ROWS option which will change the behaviour of MySQL according to the documentation in the link https://dev.mysql.com/doc/refman/8.0/en/mysql-affected-rows.htm. Não sei como fazer isto. Obrigado.

Boa tarde. Tenho a seguinte rotina para alterar a cor do DBGrid, quando a categoria do cadastro for 'Conveniado'. procedure TF_Cadastrados.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if not (gdSelected in State) then Begin if DM1.Tb_Cadastrados.FieldByName ( 'SAU_CATEG' ).AsString = 'Conveniado' then begin DBGrid1.Canvas.Brush.Color := clYellow ; DBGrid1.Canvas.FillRect ( Rect ) ; DBGrid1.DefaultDrawDataCell ( Rect, Column.Field, State ) ; end; end; end; Está funcionando normalmente, porém os campos que estavam centralizados perdem o alinhamento, ficando as strings alinhadas à esquerda, e os numéricos alinhados à direita. Como fazer para manter o alinhamento centralizado ? Obrigado.

No meu comentário acima, esqueci de dizer que estou utilizando o MySQL com Zeos, e a função SQLHourGlass é do Zeos, e não do MySQL. Por esta razão este problema pode ocorrer também com outros bancos de dados que utilizem o Zeos.

Eu estava tendo problemas de velocidade com o MySQL, até que desabilitei o SQLHourGlass. Parece outro sistema. Fica a dica.

Jhonas, muito obrigado pela sua resposta. Eu achava que tinha ido pelo caminho errado ao escolher o MySQL, agora vejo que é só uma questão de adaptação. Vou retornar com outras perguntas com relação ao desenvolvimento em MySQL, mas por enquanto só posso agradecer. Bettega

Eu tenho um sistema em Paradox, e estou passando para MySQL. Para montar o arquivo, em Paradox, com 50.000 registros, leva 01:20 minutos. No MySQL levou 06:00 minutos. Utilizando os mesmos comandos, ou seja Insert, Campos ApplyUpDates. Vou Tentar utilizar os comandos diretos para ver se fica mais rápido. Eu utilizo muito o DBGrid, abrindo o arquivo inteiro, tanto em Table como em Query. No MySQL, quando acesso rapidamente os registros para baixo ficam muito lentos, o que não acontece com o Paradox. Por esta razão, achei que o Firebird seria uma opção mais rápida. Aguardo os seus comentários, Obrigado.

Pretendo iniciar a utilização do Firebird com Delphi XE6 para cima, e Zeos. Qual versão do Firebird devo instalar ? Obrigado.