ADOTable
28/01/2006
0
Bem problema agora é com as ADOTable.
Tenho um form e nele tem varios ADOTable´s e gostaria de fazer uma procedure para contar essas tabelas e abri-las!
Alguem tem alguma idéia??
Caezar
Posts
28/01/2006
Macario
exemplo no onCreate do form:
espero que ajude.
28/01/2006
Caezar
Obs:
[b:2d5b736a71]Util.strConex[/b:2d5b736a71] [i:2d5b736a71]é uma variavel que guarda a sting de conexão.[/i:2d5b736a71]
procedure TformMain.abreTabelas(formSolicitante:TForm);
var
msg:string;
iCont:Integer;
begin
for iCont:=0 to formSolicitante.ComponentCount-1 do
begin
if formSolicitante.Components[iCont] is TADOTable then
begin
TADOTable(formSolicitante.Components[iCont]).Active:=false;
TADOTable(formSolicitante.Components[iCont]).ConnectionString:=Util.strConex;
ShowMessage(TADOTable(formSolicitante.Components[iCont]).Name);
ShowMessage(TADOTable(formSolicitante.Components[iCont]).ConnectionString);
Try
TADOTable(formSolicitante.Components[iCont]).Active:=True;
except
on E:Exception do
begin
msg := ´Não foi possível abrir as tabelas do ´;
msg := msg + ´sistema : (´ + E.Message + ´)!´;
MessageDlg(msg, mtError, [mbOk],0);
exit;
end;
end;
end;
end;
end;Eu analizei o código atravéz do dois ShowMessage´s, e a tabela recebe corretamente a string de conexão atravéz do Util.strConex mas na hora que ele tenta ativar a tabela dá o seguinte erro:
[b:2d5b736a71]Missing Connection or ConnectionString.[/b:2d5b736a71]
28/01/2006
Martins
29/01/2006
Macario
não conheço muito sobre conexão via ADO, quando você esta passando o ADOConnection? o banco esta ativo? a conexão com o banco ja esta ativa?
29/01/2006
Martins
Tudo bem, então veja seu AdoConnection, como ele se chama?
Ele está devidamente configurado?
Clique aqui para fazer login e interagir na Comunidade :)
