O q eu to fazendo de errado?
Oi galera, to tentando fazer um programinha para uma biblioteca mas estacionei no seguinte erro:
eu crio o Alias dinamicamente, mas quando clico no botão pra pesquisar usuário ele diz que a tabela não está aberta.
O código é o seguinte:
{Código do botão de consulta}
frmConsulta.dbgdConsulta.DataSource:= frmCadUsuario.dsUsuario;
frmConsulta.ShowModal;
{Código do botão pesquisa}
if dbgdConsulta.DataSource = frmCadUsuario.dsUsuario then
begin
case rgConsulta.ItemIndex of
{Consulta por Código do Usuario}
0: if frmCadUsuario.tabelausuarios.Locate(´Codigo´,edConsulta.Text,[]) then
begin
frmEmprestimo.dbeCodigoUsuario.Text:=
frmCadUsuario.tabelausuarios.FieldValues[´Codigo´];
end;
{Consulta pelo nome}
1: if frmCadUsuario.tabelausuarios.Locate(´Nome´,edConsulta.Text,[])then
begin
frmEmprestimo.dbeCodigoUsuario.text:=
frmCadUsuario.tabelausuarios.FieldValues[´Codigo´];
end; { fim do case dos usuarios!}
Espero ter sido clara, to meio confusa!
Por favor alguma sugestão? To perdida!
Um grande abraço pra todos!
eu crio o Alias dinamicamente, mas quando clico no botão pra pesquisar usuário ele diz que a tabela não está aberta.
O código é o seguinte:
{Código do botão de consulta}
frmConsulta.dbgdConsulta.DataSource:= frmCadUsuario.dsUsuario;
frmConsulta.ShowModal;
{Código do botão pesquisa}
if dbgdConsulta.DataSource = frmCadUsuario.dsUsuario then
begin
case rgConsulta.ItemIndex of
{Consulta por Código do Usuario}
0: if frmCadUsuario.tabelausuarios.Locate(´Codigo´,edConsulta.Text,[]) then
begin
frmEmprestimo.dbeCodigoUsuario.Text:=
frmCadUsuario.tabelausuarios.FieldValues[´Codigo´];
end;
{Consulta pelo nome}
1: if frmCadUsuario.tabelausuarios.Locate(´Nome´,edConsulta.Text,[])then
begin
frmEmprestimo.dbeCodigoUsuario.text:=
frmCadUsuario.tabelausuarios.FieldValues[´Codigo´];
end; { fim do case dos usuarios!}
Espero ter sido clara, to meio confusa!
Por favor alguma sugestão? To perdida!
Um grande abraço pra todos!
Senhorita_allegro
Curtidas 0
Respostas
Ari
08/02/2004
Tenta antes da rotina de clicar no botão colocar
NomedaTabela.Active := True;
NomedaTabela.Active := True;
GOSTEI 0
Tnaires
08/02/2004
Ou ainda:
NomeDaTabela.Open;
NomeDaTabela.Open;
GOSTEI 0