درج در بانک 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;
موفق باشید..............