Op het internet heb ik onderstaande code gevonden.
Nu krijg ik de code niet goed werkend, het lijkt erop dat B niet de waarde True krijgt.
Ik krijg namelijk gelijk de ShowMessage('Er kon geen data overgedragen worden...........');
Iemand een idee ?
Code:procedure TForm1.Button1Click(Sender: TObject); var B : Boolean; begin // Select the excel file and read in the data Button1.Enabled := False; // switch off if OpenDialog1.Execute then begin // selecteer de file Label4.Text := 'File name: ' + ExtractFileName(OpenDialog1.FileName); // show filename Label3.Text := ''; // make sums clear ComboBox1.Items.Clear; ComboBox2.Items.Clear; BindSourceDB1.DataSet := nil; // no connection to the grid AniIndicator1.Visible := True; AniIndicator1.Enabled := True; try B:= DataModule2.OpenExcel(OpenDialog1.FileName, Application); except end; // Did not work? AniIndicator1.Enabled := False; AniIndicator1.Visible := False; if B then begin BindSourceDB1.DataSet:= DataModule2.ClientDataSet1; // the combobox receives the data fields as a list DataModule2.ClientDataSet1.Fields.GetFieldNames(ComboBox1.Items); DataModule2.ClientDataSet1.Fields.GetFieldNames(ComboBox2.Items); end else ShowMessage('Er kon geen data overgedragen worden...........'); end; Button1.Enabled := True; // swicht on end;
Bookmarks