درج در بانک sql

[msda523]

من یک بانک در اس کیو ال درست کردم و با دلفی به اون وصل شدم .
با چه دستوراتی باید یک رکورد جدید به بانک اضافه کنم ؟

[SYNDROME]

من یک بانک در اس کیو ال درست کردم و با دلفی به اون وصل شدم .
با چه دستوراتی باید یک رکورد جدید به بانک اضافه کنم ؟

با چه ابزار و چه روشی وصل شدی؟
یکی از روشهای اضافه کردن رکورد با ADO به شکل زیر است.

ADO.Insert;

ADO.FieldByName('FieldNamed').Asstring := Value;

ADO.Post;

می توانی از دستور Insert Into خود SQL هم استفاده کنی
موفق باشید

[delphiprog3000]

در ادامه صبحتهای آقای Syndrome استفاده از دستورات sql را میتوانید از کد زیر استفاده کنید.

with Adodataset do

    Begin

     Close;

     CommandText:='insert into tablename([id,name]) Values ('+QuotedStr(txtid.Text)+','+QuotedStr(txtname.Tex  t)+')';

     Execute;

    End;

در ضمن میتونی از Storeprocedure هم استفاده کنی.که اونم مفیده.

وبرای استفاده باید پروسجرتو در Sql بسازی و در دلفی با شی Adostoreproc با پروسیجرت ارتباط برقرار کنی.
یه نمونه از اون هم میزارم

with Adostoredproc1 do

    Begin

      Parameters.ParamByName('@id').Value:=trim(txtid.Te  xt);

      Parameters.ParamByName('@name').Value:=trim(txtnam  e.text);

      Parameters.ParamByName('@family').Value:=trim(txtf  amily.text);

      Parameters.ParamByName('@tel').Value:=trim(txttel.  text);

      ExecProc;

    End;

[delphiprog3000]

و این هم درج با شی Adoquery :

var

str1:string;



begin

str1:='insert into tbluser([id],[name],family,tel,mobile,[address],[time],[date]) values ('+QuotedStr(txtid.Text)+','+QuotedStr(txtname.Tex  t)+','+QuotedStr(txtfamily.Text)+','+QuotedStr(txt  tel.Text)+','+QuotedStr(txtmobile.Text)+','+Quoted  Str(txtaddress.Text)+','+QuotedStr(Time1)+','+Quot  edStr(Str3)+')';



  with Adoquery1 do

     begin

       Close;

       SQL.Text:=str1;

       ExecSQL;

     end;

end;

موفق باشید..............