Delphi Forum

ben ilk basta tablo adini yayinevi=' yayinevi ' diye bi sabit verdim.yani basina ve sonuna bosluk koydum..orda hata vermiyo..

procedure SorguCalis(Sorgu : TAdoQuery; SQLStr : String);
begin
with Sorgu do
begin
Active := False;
SQL.Clear;
SQL.Add(SQLStr);

if LowerCase(Copy(SQLStr , 1 , Length('select'))) = 'select' then
Active := True
else
ExecSQL;
end;{with}
sorgu calis proceduru de bunu yapiyo..

Afedersiniz..tesekkur ediyorum..
SQLStr:String;
begin
SQLStr := 'INSERT INTO'+Yayinevi +'(YNo,YName,YAdress,YPhone,YHTTP,YEmail) VALUES (';
SQLStr := SQLStr+QuotedStr(edtYno.Text)+',';
SQLStr := SQLStr+QuotedStr(edtYname.Text)+',';
SQLStr := SQLStr+QuotedStr(edtYadr.Text)+',';
SQLStr := SQLStr ...

ben amator delphi7 kullanicisiyim..database e yani basladim.delphide sql serveri kullaniyorum daha dogrusu kullanmaya calisyorum:)mesala bi kayit giren ekleyen,silen basit bi program yapiyorum.adoconnection,adoquery,datasource kullaniyorum.kod hissesini tamamladim.lakin exesinde insert yaparken run ...