....
query2.sql.add('insert into bilgi,ders,not'),
hocam yapmak istediğim şu. bir formda edit kutuları var. bazı kutulardaki
veriler bilgi tablosuna , bazıları ders (bunlar örnektir) tablosuna kayıt edilmeli.( dbase ve sql kullanıyoum).
yukarıdaki gibi kod yazılabilir mi. olmadı da. ilgilenenler varsa sevinirim . hepinize kolya gele.
ayrıca Fahrettin abimize özel selamlarımı iletirim. keşke örnekleri biraz daha çogaltsaydı...
sql de kayıt
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Aşağıdaki yapıyı aynen kullanın.Sorunsuz çalışacaktır. Field Değerlerine dikkat edin. Params ile aldığını fieldın yapısı edit ile gönderdiğiniz yapıya uymalı. İki string ve bir tanede integer değer düşünerek nasıl yazılması gerektiğini anlattım aşağıda. Bu yapı delphinin tavsiye ettiği yapıdır. Try except bloklarını mutlaka kullanın ki Query bir hata döndürdüğünde program kilitlenmesin ve ne hata geldiğini görebilesiniz.
Sevgiler...
Try
Query2.Close;
Query2.Unprepare;
Query2.SQL.Clear;
Query2.SQL.Add('Insert into tablo_adı (adı,soyadı,telefonu)');
Query2.SQL.Add('Values(a1,a2,a3)');
Query2.Prepare;
Query2.Params[0].Asstring:=Edit1.Text;
Query2.Params[1].Asstring:=Edit2.Text;
Query2.Params[2].AsInteger:=StrToInt(Edit3.Text);
Query2.ExecSQL;
Except
On Except to raise;
End;
Sevgiler...
Try
Query2.Close;
Query2.Unprepare;
Query2.SQL.Clear;
Query2.SQL.Add('Insert into tablo_adı (adı,soyadı,telefonu)');
Query2.SQL.Add('Values(a1,a2,a3)');
Query2.Prepare;
Query2.Params[0].Asstring:=Edit1.Text;
Query2.Params[1].Asstring:=Edit2.Text;
Query2.Params[2].AsInteger:=StrToInt(Edit3.Text);
Query2.ExecSQL;
Except
On Except to raise;
End;
Geçip gideriz bizde ağızsız,dilsiz ve sorgusuz
İstanbul gibi düşeriz iki kıtaya birden...
En aşağılık düş, en büyük sevdadan belki
Erkek ölümler; bir uzun iç çekişle büyür göğsümüz
İstanbul gibi düşeriz iki kıtaya birden...
En aşağılık düş, en büyük sevdadan belki
Erkek ölümler; bir uzun iç çekişle büyür göğsümüz
o zaman 2 Query koy iki tabloyada ayrı ayrı kaydet. bu yazdığım rutini 2 defa peşpeşe yaz iki ayrı tabloya ayrı ayrı kaydet.
Geçip gideriz bizde ağızsız,dilsiz ve sorgusuz
İstanbul gibi düşeriz iki kıtaya birden...
En aşağılık düş, en büyük sevdadan belki
Erkek ölümler; bir uzun iç çekişle büyür göğsümüz
İstanbul gibi düşeriz iki kıtaya birden...
En aşağılık düş, en büyük sevdadan belki
Erkek ölümler; bir uzun iç çekişle büyür göğsümüz
Try
Query2.Close;
Query2.Unprepare;
Query2.SQL.Clear;
Query2.SQL.Add('Insert into tablo_adı (adı,soyadı,telefonu)');
Query2.SQL.Add('Values(a1,a2,a3)');
Query2.Prepare;
Query2.Params[0].Asstring:=Edit1.Text;
Query2.Params[1].Asstring:=Edit2.Text;
Query2.Params[2].AsInteger:=StrToInt(Edit3.Text);
Query2.ExecSQL;
Except
On Except to raise;
End;
***
sair kardeş
zannedersem yukardaki kod da bir hata var
çünkü parametrelerden önce : (iki nokta) konması gerekmiyormu.
Query2.Close;
Query2.Unprepare;
Query2.SQL.Clear;
Query2.SQL.Add('Insert into tablo_adı (adı,soyadı,telefonu)');
Query2.SQL.Add('Values(a1,a2,a3)');
Query2.Prepare;
Query2.Params[0].Asstring:=Edit1.Text;
Query2.Params[1].Asstring:=Edit2.Text;
Query2.Params[2].AsInteger:=StrToInt(Edit3.Text);
Query2.ExecSQL;
Except
On Except to raise;
End;
***
sair kardeş
zannedersem yukardaki kod da bir hata var
çünkü parametrelerden önce : (iki nokta) konması gerekmiyormu.
teşekkürler
sağlıcakla kalın
sağlıcakla kalın