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 :)
