Video: Criando rotina para listar Campos da tabela – Curso de criação de uma aplicação para repasse de dados com Delphi – Parte 6

Olá Marco, entramos em contato com o autor para que ele possa te auxiliar, tudo bem ? Peço que aguarde um pouco até que o mesmo possa retornar o contato.

Um abraço.

Olá!

A qual dos 2 executaveis se refere. O Repasse.exe ou o P_repasse.exe?

Fiz os testes com os codigos do video em questão e não apresntou este problema.

Faça um debug no sistema ai e post o trecho do codigo onde ocorre o erro. assim ficará mais facil para te ajudar, pois com as informações prestadas eu não consegui entender o que esta errado ai.

Abs.!

A princípio o problema começa aqui:

procedure TDM_Repasse.DataModuleCreate(Sender: TObject);
begin
Leini;
case iTipoO of
0 : begin // dbf
dbfOrigem.Connected := false;
dbfOrigem.Params.Strings[0] := 'Path='+sPathO;
dbfOrigem.Connected := true;
end;
1 : begin // firebird
fbOrigem.Connected := false;
fbOrigem.Params.Values['Database'] := sPathO;
fbOrigem.Params.Values['User_Name'] := sUsuarioO;
fbOrigem.Params.Values['Password'] := sSenhaO;
fbOrigem.Connected := true;
end;
2 : begin // access
accessOrigem.Connected := false;
accessOrigem.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'DataSource='+sPathO+';'+'Persist Security Info=False';
accessOrigem.Connected := true;
end;
3 : begin // mssql
msSqlOrigem.Connected := false;
msSqlOrigem.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Integrated Security = SSPI;'+
'Persist Security Info=False;'+
'Initial Catalog='+sCatalogoO+';'+
'Data Source='+sUsuarioO;
msSqlOrigem.Connected := true;
end;
4 : begin // mysql
MySqlOrigem.Connected := false;
MySqlOrigem.ConnectionString := 'Provider=MySqlProv;'+
'Persist Security Info=False;'+
'User ID='+sUsuarioO+';'+
'Data Source='+sCatalogoO;
MySqlOrigem.Connected := true;
end;
end;

case iTipoD of
0 : begin // dbf
dbfDestino.Connected := false;
dbfDestino.Params.Strings[0] := 'Path='+sPathD;
dbfDestino.Connected := true;
end;
1 : begin // firebird
fbDestino.Connected := false;
fbDestino.Params.Values['Database'] := sPathD;
fbDestino.Params.Values['User_Name'] := sUsuarioD;
fbDestino.Params.Values['Password'] := sSenhaD;
fbDestino.Connected := true;
end;
2 : begin // access
accessDestino.Connected := false;
accessDestino.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'DataSource='+sPathD+';'+'Persist Security Info=False';
accessDestino.Connected := true;
end;
3 : begin // mssql
msSqlDestino.Connected := false;
msSqlDestino.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Integrated Security = SSPI;'+
'Persist Security Info=False;'+
'Initial Catalog='+sCatalogoD+';'+
'Data Source='+sUsuarioD;
msSqlDestino.Connected := true;
end;
4 : begin // mysql
MySqlDestino.Connected := false;
MySqlDestino.ConnectionString := 'Provider=MSDASSQL.1;'+
'Persist Security Info=False;'+
'User ID='+sUsuarioD+';'+
'Data Source='+sCatalogoD;
MySqlDestino.Connected := true;
end;
end;

end;


Aqui também:

procedure TDM_Repasse.LeIni;
begin
ArqIni := TInifile.Create(ExtractFilePath(Application.ExeName)+'perdata.ini');
iTipoO := ArqIni.ReadInteger('ORIGEM','TIPO_BD',0);
sPathO := ArqIni.ReadString('ORIGEM','PATH','');
sUsuarioO := ArqIni.ReadString('ORIGEM','USUARIO','');
sSenhaO := ArqIni.ReadString('ORIGEM','SENHA','');
sCatalogoO := ArqIni.ReadString('ORIGEM','CATALOGO','');

iTipoD := ArqIni.ReadInteger('DESTINO','TIPO_BD',0);
sPathD := ArqIni.ReadString('DESTINO','PATH','');
sUsuarioD := ArqIni.ReadString('DESTINO','USUARIO','');
sSenhaD := ArqIni.ReadString('DESTINO','SENHA','');
sCatalogoD := ArqIni.ReadString('DESTINO','CATALOGO','');

ArqIni.Free;
end;


Neste evento:
Application.CreateForm(TfrmMigracao, frmMigracao);

"Exception class EStringListError with message 'List index out of bound(0)'"


e aqui gera o erro do dataset:

procedure TfrmMigracao.FormCreate(Sender: TObject);
begin
if not cdsEsquema.Active then
cdsEsquema.CreateDataSet;
cdsEsquema.EmptyDataSet;
end;

"Exception class EDatabaseError with message 'No fields defined. Cannot create dataset'"


Abraços

Uma observação: Deixei tudo em um único executável, dividido em abas... uma aba com a configuração. Um outro form no mesmo executável com a listagem dos dados.

abs

Olá!

Aparentemente não esta criado os campo no ClientDataSet de memoria (CdsEsquema). Como mudou a estrutura do sistema certamente deixou algum detalhe para traz que da forma como esta passando não tenho como saber. Mas pelas caracteristicas apresentadas o problema esta neste ClientDataSet temporario pois parece estar tentando carregar os campos no DbGrid que não existem no mesmo.

Abs.!

Correto, mas ao final da 6a aula o seu exemplo lista as tabelas e campos no listBox sem o datagrid e nao houve nada configurado especificamente no clientdataset. Por isso questiono no final da 6a aula seu exmplo no video trazer as tabela e campos eo meu executado iddentico nao trazer e trazer esses erros.

Abs

Já conferiu as conexões de bancos de dados. Analizando aqui este List index of bounds esta deve estar ocorrendo exatamente quando é passado o comando de conectado igual a true. Se for o erro esta na sua configuração de conexão com o banco. Dai realmente não será listado nada nos listbox pois não foi conectado ao banco.

Abs.!