Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Form mit mehreren DataSources

  Alt 20. Dez 2007, 16:23
Datenbank: MySQL • Version: 5.0.41 • Zugriff über: MySQLDAC
aloah...


bekomme ich ein problem, wenn eine form mehrer datasources hat???

Delphi-Quellcode:
procedure Tlogpic_form.bitbtn_createClick(Sender: TObject);

begin

  Try
    With (dbm.main_data) Do
    Begin
      Active := False;
      datsrc_maindata := nil;
      Application.ProcessMessages;
      SQL.Clear;

      SQL.Add('Select '
             +'PSKSPN, PSKMPN, PSKPNT, PSKTON, PSKCNR, PSKVNR, '
             +'PCKSPN, PCKITM, PCKORT, PCKBEZ, PCKANR, PCKFBE, PCKCUP, '
             +'MATANR, MATCUP, MATDIM '
             +'From LOGPSK '
             +'Left Outer Join LOGPCK '
             +'On PSKSPN = PCKSPN '
             +'Left Outer Join LOGMAT '
             +'On PCKANR = MATANR '
             +'And PCKCUP = MATCUP '
             +'where PSKSPN = "'+ dbm.No_LOGPIC.FieldByName('PICSPN').Text +'"');

      //datsrc_maindata.DataSet := dbm.main_data;
      Active := True;

      //dbgrid_maindata.Columns[0].Field := dbm.main_data.FieldByName('PSKSPN');
      //dbgrid_maindata.Columns[1].Field := dbm.main_data.FieldByName('PSKMPN');
      //dbgrid_maindata.Columns[2].Field := dbm.main_data.FieldByName('PSKPNT');
      //dbgrid_maindata.Columns[3].Field := dbm.main_data.FieldByName('PSKTON');
      //dbgrid_maindata.Columns[4].Field := dbm.main_data.FieldByName('PSKCNR');
      //dbgrid_maindata.Columns[5].Field := dbm.main_data.FieldByName('PSKVNR');
      //dbgrid_maindata.Columns[6].Field := dbm.main_data.FieldByName('PCKITM');
      //dbgrid_maindata.Columns[7].Field := dbm.main_data.FieldByName('PCKORT');
      //dbgrid_maindata.Columns[8].Field := dbm.main_data.FieldByName('PCKBEZ');
      //dbgrid_maindata.Columns[9].Field := dbm.main_data.FieldByName('PCKANR');
      //dbgrid_maindata.Columns[10].Field := dbm.main_data.FieldByName('PCKFBE');
      //dbgrid_maindata.Columns[11].Field := dbm.main_data.FieldByName('PCKCUP');
      //dbgrid_maindata.Columns[12].Field := dbm.main_data.FieldByName('MATDIM');
    End
  Except
    MessageDlg('Error while getting Datas from DB!', mtError, [mbOK], 0);
  End;

  ShowMessage(dbm.main_data.FieldByName('MATDIM').AsString);

end;
wenn ich die hier deaktivierten befehle aktiviere, und mein programm laufen lasse, dann bekomme ich
eine exception(siehe anhang) wenn ich die query komponente (dbm.maindata) auf true setzen möchte...

kann das daran liegen, das ich mehrer datasources auf der form habe die auch zum teil aktiv sind???

oder woran könnte es liegen???
Miniaturansicht angehängter Grafiken
db_exception_137.jpg  
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat