Conexão MySQL sem componente
18/04/2013
0
Gostaria de saber como fazer uma Conexão MySQL sem usar componente. Tipo zeos, dbexpress. Sem usar isso.
Conexão via código mesmo.
Alguma orientação?
Grato!
Carlos Rocha
Carlos Rocha
Posts
18/04/2013
Carlos Rocha
Apenas via código mesmo.
Tipo usando alguma unit nativa no delphi ou no lazarus.
Assim:
Declaro na clausula uses, a unit de conexão do delphi (ou lazarus) com o MySQL.
Após isso declaro uma variável do tipo da unit declarada.
E a partir daí eu monta a conexão via código.
A ideia eu tenho;. Mas não sei qual código usar.
18/04/2013
Joel Rodrigues
Você pode instanciar os mesmos componentes via código, TSQLConnection, TZConnection, etc.
18/04/2013
Carlos Rocha
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, mysql55conn; type { TForm1 } TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; conexao: mysql55conn.TMySQL55Connection implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin { conexao.Close; conexao.HostName:='localhost'; conexao.port:=3306; conexao.UserName:='vini'; conexao.Password:='alugue'; conexao.DatabaseName:='alugueis'; conexao.Open; } end; end.
Mas esta dando erro na hora de executar o close dentro do Formcreate
Comentei o conexão.Close e o erro continua
Erro?
Projeto teste elevou classe de execução' External:SIGSEGV'
18/04/2013
Joel Rodrigues
18/04/2013
Joel Rodrigues
Form1 := TForm1.Create(Application);
Deve haver o construtor Create nessa classe, verifique.
18/04/2013
Joel Rodrigues
18/04/2013
Joel Rodrigues
conexao := mysql55conn.TMySQL55Connection.Create
Clique aqui para fazer login e interagir na Comunidade :)