نوشته شده توسط
majid534
میشه لطف کنید و اصلاح شدش رو بهم بگید؟
من به ترتیب زیر عمل کردم اما هنوز یک خط ارور دارم
ADOCommand1.CommandText:='update XXxXX'
,'set XXX73=' +Edit3.Text
,'Where XXX02=' +Edit1.Text
,'and XXX15=' +Edit2.Text
,'and XXX01 = 1';
ADOCommand1.Execute;
سپاس
متن خطا رو بزارید
ADOCommand1.CommandText := 'insert into table_1(Field_1, Field_2, Field_3) values(:A_Field_1, :A_Field_2, :A_Field_3)';
ADOCommand1.Parameters.FindParam('A_Field_1').Valu e := '100';
ADOCommand1.Parameters.FindParam('A_Field_2').Valu e := '200';
ADOCommand1.Parameters.FindParam('A_Field_3').Valu e := '300';
ADOCommand1.Execute();