الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة تحميل الرقم المنقوط من قاعدة البيانات

مغلق
بدأه g-amine في 10 يونيو 2006 · 9 رد · 802 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني الأعزاء السلام عليكم

عندي سؤال و هو

لدي ComboBox و عند اتصاله بقاعدة البيانات لا يستطيع تحميل العمود المخصص و ذلك لوجود نقطة (.) في هذه البيانات

كيف استطيـع ذلك علما أني أستخدم Delphi 7 و قاعدة البيانات ذات الإمتداد DBF

و ان كان يتطلب كود أرجو تقديمه لي

و الشكر الجزيل لكم جميعا

#2

السلام عليكم

اخي الكريم سوئلك غير وضح

اذا كانت تريد مائل ComboBox من قاعدة البيانات جرب هذا الكود

 With Query1 Do 
  Begin
	Close;
	sql.Clear;
	sql.Add('select * from TableName');
	open;
	  ComboBox1.Text := '';
	  ComboBox1.Items.Clear;
		While Not Query1.Eof Do 
		 Begin
		  ComboBox1.Items.Add(FieldByName('ID_Name').AsString);
		  Next;
		 End;
  End;

تم تعديل هذه المشاركة بواسطة سيف الدين 2 في 11 يونيو 2006 في 09:46

..................بسم الله الرحمن الرحيم..................

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان

.............................................................................................................................

لنبدا دورة دلفي

سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال

التحكم بمنفذ الطابعة عن طريق الدلفي

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

هيا لنبدأ بالApi

أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة

مكتبه الأكواد, أكواد وبرامج دلفي

.............................................................................................................................

18_07_05_10_53_18_1121752398da3wa_18.gif

#3

أولا أخي شكرا لك على الرد ولكن..

لقد استخدمت نفس الطريقة تقريبا و لكن باستخدام Table

  Form7.ComboBox3.Clear;
  Form7.Table2.Filtered:=false;
  Form7.Table2.First;
  while not Form7.Table2.Eof do
  begin
  Form7.combobox3.Items.Add(formatfloat('',Form7.Table2.Fields[0].asfloat));
  Form7.Table2.Next;
  end;

ولكن في البيانات لدي مثلا رقم 4103.3.2 عند تطبيق الأمر يظهر لي خطأ بتحميل هذا العدد إلى الـ ComboBox لوجود (.) و مع أنه توجد اسطر أخرى بها أرقام تفصل بينها نقاط إلا أنه يخبرني عن أولها فقط

آسف إذا كنت أطلت و شكرا لك :rolleyes:

تم تعديل هذه المشاركة بواسطة g-amine في 11 يونيو 2006 في 12:16

#4

السلام عليكم

اخي الكريم الغي formatfloat وسف تعمل إن شاء الله

..................بسم الله الرحمن الرحيم..................

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان

.............................................................................................................................

لنبدا دورة دلفي

سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال

التحكم بمنفذ الطابعة عن طريق الدلفي

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

هيا لنبدأ بالApi

أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة

مكتبه الأكواد, أكواد وبرامج دلفي

.............................................................................................................................

18_07_05_10_53_18_1121752398da3wa_18.gif

#5
اقتباس
ولكن في البيانات لدي مثلا رقم 4103.3.2 عند تطبيق الأمر يظهر لي خطأ بتحميل هذا العدد إلى الـ ComboBox لوجود (.)

السلام عليكم

4103.3.2 ما نوع الحقل String ام Real ؟

لماذا التحويل ل Float ثم String في ما كتبته ؟

Form7.combobox3.Items.Add(formatfloat('',Form7.Table2.Fields[0].asfloat));

لما ذا لم تستحم مباشرة ؟

Form7.combobox3.Items.Add(Form7.Table2.Fields[0].asString);
d4baa0.gif
#6

سوف أجرب أخي و أرد عليك

#7

شكرا

لقد نجحت طريقتك و لكن لا أدري لماذا هل يمكن أن تشرحي لي

شكرا لك جدا جدا

#8

أخواني مشكلة أخرى عند البحث تصادفني نفس المشكلة و أنا أستخدم للبحث هذا الكود

  If ComboBox3.Text='' Then ShowMessage('Where is the ligne...Sir !!?');
  If ComboBox3.Text<>'' Then
 begin
  Table3.Filtered:=false;
  Table3.Filter:='LIGNE='+ComboBox3.Text;
  Table3.Filtered:=true;
  Table3.First;
 end; 
 If Table3.Fields[1].AsString='' Then ShowMessage('Ligne  !!?')

كيف يمكن له أن يتجاهل النقطة و يبحث

لا أدري متى ستنتهي مشاكل هذه النقطة..

#9
Table3.Filter:='LIGNE='+QuotedStr(ComboBox3.Text);
d4baa0.gif
#10

أبهرتني أخي محمد عبد العزيز كل حلولك فعالة

شكرا جزيلا لك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…