+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ارسال المعلومات اوتوماتيكيا للقاعدة البيانات (/showthread.php?tid=9375)
ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - bac39 - 06-05-2018
ممكن تصحيح هذا الكود:
كود :
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;وشكرا
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - AX302 - 07-05-2018
(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;RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - Ben.Ja - 07-05-2018
يبل
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;
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - bac39 - 08-05-2018
(07-05-2018, 11:11 PM)Ben.Ja كتب : الكود لم يعمل
وتظهر هذي الرسالة:
Column name or number of supplied values does not match table definition
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - Ben.Ja - 08-05-2018
ما هي مواصفات أعمدة الجدول الذي تريد ادخال البيانات اليه؟ "نوع البيانات"
ما هو العمود الذي تحتاجه؟ "إذا كان فيه اكثر من 1"
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - bac39 - 08-05-2018
(08-05-2018, 06:11 PM)Ben.Ja كتب : id int,
name varchar(20),
lastname varchar(20),
birthday date,
birthplease varchar(20),
phone int;
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - Ben.Ja - 09-05-2018
ما الذي تريد فعله بالضبط؟
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - Delphi4Us - 09-05-2018
تاكد من البيانات التي كتبتها في Memo لانها غير متطابفة مع الحقول ، زكانك تحاول مثلا ادخال تاريخ في مكان رقمي او ما شابه
يعني لابد وان تكون البيانات بنفس ترتيب الحقول بالجدول
RE: ارسال المعلومات اوتوماتيكيا للقاعدة البيانات - bac39 - 09-05-2018
(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;