MySQL -zapytanie wielokrotne -przeniesienie danych między dwoma tabelami

Thu, 22 Feb 2018 01:25:14 +0000

Witam. Programuje w Delphi7 i mam taki kod (on działa wyśmienicie ;)


 sql := StrArrayJoin(['INSERT tabAktywne (ob_Id) VALUES (''',sqlResult.FieldByName('ob_Id').AsString,''');'], ' ');

ale chciałbym aby za jednym zamachem przenosił wartości z 8 kolumn naraz, bo teraz przenosi samo ob_Id.
Tutaj przykład dla 2 kolumn, aby bylo wiadomo o co mi miej więcej chodzi


 sql := StrArrayJoin(['INSERT tabAktywne (ob_Id,dok_NrPelny) VALUES (''',sqlResult.FieldByName('ob_Id').AsString' , 'sqlResult.FieldByName('dok_NrPelny').AsString,'''');'], ' ');

i ten kod już nie działa. Po prostu nie ogarniam tych fiflaczków nawiasikow itp "'' ''' ' ' '
Czy ktoś mógłby napisać szablon dla 8 tabel?

Kółko i krzyżyk, Delphi 7, praca domowa

Mon, 08 May 2017 12:46:19 +0000

Witam mam zadaną pracę domową z lekcji programowania ze szkoły, temat brzmi "stwórz program" postanowiłem zrobić minigrę Kółko i Krzyżyk, inspirowałem się filmem Pana Zelenta
'https://www.youtube.com/watch?v=vd0zDG4vwOw&t=376s' .
W filmie jest używany C++ Builder, ja natomiast korzystam z Delphi 7. Zatrzymałem się w połowie materiału filmowego, w momencie używania procedury? Char. Proszę o pomoc w dokończeniu, nie znam większości komend.
Tyle udało mi się wykonać:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ExtDlgs;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Label1: TLabel;
tura: TImage;
Button1: TButton;
OpenDialog1: TOpenDialog;
OpenPictureDialog1: TOpenPictureDialog;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Char image1,image2,image3,image4,image5,image6,image7,image8,image9;
begin
image1:='n' image2:='n' :image3:='n':
image4:='n' :image5:='n' :image6:='n':
image7:='n' :image8:='n' :image9:='n':
kto='o';
end;

end.

Forum Pasja Informatyki - Najnowsze z tagiem delphi7

MySQL -zapytanie wielokrotne -przeniesienie danych między dwoma tabelami

Kółko i krzyżyk, Delphi 7, praca domowa