ارسال المعلومات اوتوماتيكيا للقاعدة البيانات

[bac39]

ممكن تصحيح هذا الكود:

كود :

var i:integer;  for i := 1 to memo1.Lines.Count -1 do begin        ADOQuery1.SQL.Add('insert into info values ('+memo1.Lines[i]+' ');        ADOQuery1.ExecSQL; end;

وشكرا

[AX302]

ممكن تصحيح هذا الكود:

كود :

var i:integer;  for i := 1 to memo1.Lines.Count -1 do begin        ADOQuery1.SQL.Add('insert into info values ('+memo1.Lines[i]+' ');        ADOQuery1.ExecSQL; end;

وشكرا

---

كود :

var i:integer; for i := 0 to memo1.Lines.Count -1 do begin       ADOQuery1.SQL.Clear;       ADOQuery1.SQL.Add('insert into info values ('+memo1.Lines[i]+' ');       ADOQuery1.ExecSQL; end;

[Ben.Ja]

يبل

PHP كود :

var
i:integer;
for i := 0 to memo1.Lines.Count -1 do
begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('insert into info values ('+QuotedStr(memo1.Lines[i])+') ');
      ADOQuery1.ExecSQL;
end; 


---

آسف هكذا, هكذا سيكون كل سطر من الmemo في سجل وحده في الجدول

PHP كود :

Var
i:integer;

Begin
for i := 0 to memo1.Lines.Count -1 do
begin
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('insert into info values ('+QuotedStr(memo1.Lines[i])+') ');
     ADOQuery1.ExecSQL;
end; 
end; 


[bac39]

الكود لم يعمل 
وتظهر هذي الرسالة:
Column name or number of supplied values does not match table definition

[Ben.Ja]

ما هي مواصفات أعمدة  الجدول الذي تريد ادخال البيانات اليه؟ "نوع البيانات"
ما هو العمود الذي تحتاجه؟ "إذا كان فيه اكثر من 1"

[bac39]

id int,
name varchar(20),
lastname varchar(20),
birthday date,
birthplease varchar(20),
phone int;

[Ben.Ja]

ما الذي تريد فعله بالضبط؟

[Delphi4Us]

تاكد من البيانات التي كتبتها في Memo لانها غير متطابفة مع الحقول ، زكانك تحاول مثلا ادخال تاريخ في مكان رقمي او ما شابه

---

يعني لابد وان تكون البيانات بنفس ترتيب الحقول بالجدول

[bac39]

ارسال البيانات من form client الى form server ومن form server الى قاعدة بيانات 

---

  Socket: TCustomWinSocket);
  var
  i : integer;
begin
Memo1.Lines.Add(Socket.RemoteHost + ' : ');
Memo1.Lines.Add(Socket.ReceiveText);

   for i := 1 to  memo1.Lines.Count -1 do
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into conn values ('+[size=small]QuotedStr([/size]memo1.Lines[i])+') ');
    ADOQuery1.ExecSQL;
  end;