Başlangıç > Kodlar > Delphi’de MYSQL veri tabanına insert into ile kayıt eklemek

Delphi’de MYSQL veri tabanına insert into ile kayıt eklemek

MYSQL veri tabanına INSERT INTO ILE yeni kayıt açmak

procedure TKASA_FORM.YeniClick(Sender: TObject);
VAR HK,HA,KK,Q:STRING;
begin
Q:="; KK:=";HK:='K'; HA:=";
HA:=HAREKET.Text;
KK:= KASA_MASTER.FIELDBYNAME('KASA_KODU').AsString;
KASA_HAREKET.Close;
KASA_HAREKET.SQL.CLEAR;
Q:=' INSERT INTO CARIHAR (BA,KASA_KODU,HK,hartip,HARADI,ACIKLAMA)  VALUES('+'"'+BA.TEXT+'"'+','+'"'+KK+'"'+','+'"'+HK+'"'+','+'"'+HAREKET.TEXT+'"'+','+'"'+HAREKET.TEXT+'"'+','+'"'+HAREKET.TEXT+'")';
KASA_HAREKET.SQL.ADD(Q);
KASA_HAREKET.EXECSQL;

KASA_HAREKET.close;
KASA_HAREKET.sql.clear;
KASA_HAREKET.Sql.Add('select * from CARIHAR');
KASA_HAREKET.Sql.Add('order by SIRANO DESC');
KASA_HAREKET.open;
END;


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: