Como criar conex�o e DataSet sem usar Datamodule?

Question

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...

Comodelphi · Answer

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;

Rodolpho123 · Answer

Qual � o seu BD?...

Comodelphi · Answer

n�o esqueca do open para o Connection e para o DataSet...

Yankleber · Answer

[quote:79eb53a8c3=�rodolpho123�]Qual � o seu BD?[/quote:79eb53a8c3]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!...

Yankleber · Answer

[quote:8defb9bf5d=�comodelphi�]n�o esqueca do open para o Connection e para o DataSet[/quote:8defb9bf5d]Valeu, amigo!� exatamente o que eu estava procurando...Muito obrigado mesmo!Muito obrigado a todos!...

Yankleber · Answer

[quote:154125b498=�comodelphi�]Var  Conn: TAdoConnection;  tbClientes: TAdoDataSet:Begin  Conn := TAdoConnection(Nil);  Conn.ConnectionString := �Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:windowstemp�;  tbClientes := TAdoDataSet.Create(Nil);  tbClientes.Connection := Conn;  tbClientes.CommandText := �SELECT * FROM CLIENTES�;............  Conn.Free;  tbClientes.Free;End;[/quote:154125b498]PS: Precisa adicionar alguma UNIT especial � cl�usula uses???...

Paulo_amorim · Answer

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 F1ele vai falar qual Unit ele est�essa Unit deve estar na USESIsso � s� necess�rio para os componentes (as instru��es n�o t�m unit diferente)At�+...

F�rum Como criar conex�o e DataSet sem usar Datamodule? #232834