Como criar conexão e DataSet sem usar Datamodule?
Oi pessoal!
Gostaria de saber se existe como criar uma conexão com banco de dados e em seguida criar um DataSet declarando tudo por dentro do fonte ao invés de usar o DataModule, e como fazer, da mesma forma, para destruir o DataSet e finalizar a conexão após sua utilização.
Será que alguém sabe essa???
Obrigado!
Gostaria de saber se existe como criar uma conexão com banco de dados e em seguida criar um DataSet declarando tudo por dentro do fonte ao invés de usar o DataModule, e como fazer, da mesma forma, para destruir o DataSet e finalizar a conexão após sua utilização.
Será que alguém sabe essa???
Obrigado!
Yankleber
Curtidas 0
Respostas
Comodelphi
17/05/2004
Var
Conn: TAdoConnection;
tbClientes: TAdoDataSet:
Begin
Conn := TAdoConnection(Nil);
Conn.ConnectionString := ´Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\windows\temp´;
tbClientes := TAdoDataSet.Create(Nil);
tbClientes.Connection := Conn;
tbClientes.CommandText := ´SELECT * FROM CLIENTES´;
...
...
...
...
Conn.Free;
tbClientes.Free;
End;
Conn: TAdoConnection;
tbClientes: TAdoDataSet:
Begin
Conn := TAdoConnection(Nil);
Conn.ConnectionString := ´Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\windows\temp´;
tbClientes := TAdoDataSet.Create(Nil);
tbClientes.Connection := Conn;
tbClientes.CommandText := ´SELECT * FROM CLIENTES´;
...
...
...
...
Conn.Free;
tbClientes.Free;
End;
GOSTEI 0
Rodolpho123
17/05/2004
Qual é o seu BD?
GOSTEI 0
Comodelphi
17/05/2004
não esqueca do open para o Connection e para o DataSet
GOSTEI 0
Yankleber
17/05/2004
Qual é o seu BD?
Bem, até onde eu sei, não faz muita diferença qual o BD, certo?
A única coisa que muda é a string de conexão... estou certo?
(Desculpe se estiver falando besteira, é que em VB, se você estiver usando ANSI SQL, é possível trocar de servidor de banco de dados, simplesmente mudando a string de conexão e fazer com que o programa funcione sem problema algum, então imagino que o Delphi seja igualmente flexível).
Mas respondendo sua pergunta, gostaria que minha aplicação fosse compatível com MSSQL, Interbase e MySQL.
Grato!
GOSTEI 0
Yankleber
17/05/2004
não esqueca do open para o Connection e para o DataSet
Valeu, amigo!
É exatamente o que eu estava procurando...
Muito obrigado mesmo!
Muito obrigado a todos!
GOSTEI 0
Yankleber
17/05/2004
Var
Conn: TAdoConnection;
tbClientes: TAdoDataSet:
Begin
Conn := TAdoConnection(Nil);
Conn.ConnectionString := ´Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\windows\temp´;
tbClientes := TAdoDataSet.Create(Nil);
tbClientes.Connection := Conn;
tbClientes.CommandText := ´SELECT * FROM CLIENTES´;
...
...
...
...
Conn.Free;
tbClientes.Free;
End;
PS: Precisa adicionar alguma UNIT especial à cláusula uses???
GOSTEI 0
Paulo_amorim
17/05/2004
Olá
Pra isso tem o Help do Delphi.
p.ex. No teu código, onde tem um TADODataSet, posicione o cursor sobre a palavra e pressione F1
ele vai falar qual Unit ele está
essa Unit deve estar na USES
Isso é só necessário para os componentes (as instruções não têm unit diferente)
Até+
Pra isso tem o Help do Delphi.
p.ex. No teu código, onde tem um TADODataSet, posicione o cursor sobre a palavra e pressione F1
ele vai falar qual Unit ele está
essa Unit deve estar na USES
Isso é só necessário para os componentes (as instruções não têm unit diferente)
Até+
GOSTEI 0