ممكن تصحيح هذا الكود:
كود :
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;
وشكرا
(06-05-2018, 10:39 PM)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;
وشكرا
كود :
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;
يبل
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;
(07-05-2018, 11:11 PM)Ben.Ja كتب : [ -> ]الكود لم يعمل
وتظهر هذي الرسالة:
Column name or number of supplied values does not match table definition
ما هي مواصفات أعمدة الجدول الذي تريد ادخال البيانات اليه؟ "نوع البيانات"
ما هو العمود الذي تحتاجه؟ "إذا كان فيه اكثر من 1"
(08-05-2018, 06:11 PM)Ben.Ja كتب : [ -> ]id int,
name varchar(20),
lastname varchar(20),
birthday date,
birthplease varchar(20),
phone int;
ما الذي تريد فعله بالضبط؟
تاكد من البيانات التي كتبتها في Memo لانها غير متطابفة مع الحقول ، زكانك تحاول مثلا ادخال تاريخ في مكان رقمي او ما شابه
يعني لابد وان تكون البيانات بنفس ترتيب الحقول بالجدول
(09-05-2018, 12:22 AM)Ben.Ja كتب : [ -> ]ارسال البيانات من form client الى form server ومن form server الى قاعدة بيانات
(09-05-2018, 12:22 AM)Ben.Japrocedure TForm1.ServerSocket1ClientRead(Sender: TObject; كتب : [ -> ] 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;