السلام عليكم
إلى الخبراء في قواعد البيانات
أنا أصمم برنامج محاسبة , وهناك قاعدة بيانات تحتوي على جدول فيه الحقول التالية : رقم السلعة , أسم السلعة , سعر السلعة
أريد إدخل رقم السلعة في صندوق نص ومن ثم إخراج نتائج البحث ( رقم السلعة , أسم السلعة , سعر السلعة ) في أداة الFlexGrid
ومن ثم طباعة كل شيء في الFlexGrid في فورم أخرى
وأنا أكون شاكر إذا أرفق مثال مع الشرح :) :)
والسلام
تم تعديل هذه المشاركة بواسطة عمار زاهدة في 6 مايو 2006 في 17:40
هل بحثت في المنتدى قبل طرح هذا الـ "طلب"
>_<
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
لم أبحث
هل يوجد رابط إذا كنت تعرف
شكرا على الرد و شكرا على المثال
ولكن ممكن طباعة نتائج البحث على فورم ثانية
وشكرا
السلام عليكم ورحمة الله تعالى وبركاته ....
ياأخي الكريم إذا كنت تريد أن يكون برنامجك منسق بطريقة جيدة أي إمكانية إستخراج كل ماتريده في لحة واحدة يجب عليك إستعمال الإستعلام أكثر من أي شيء آخر ففي هذ ا المثال الخاص بك تستعمل الكود التالي ليعطيك نتائج بحثك .
موفق إن شاء الله
الحاج نقبيل
برمجة عامة .
dim cn as new adodc.connection
dim rc as new adodc.roccordset
'-----------
private sub find_onclick()
if isnumeric(codetxt.text) then
rc.open "select * from stock where CODE = " & codetxt.text , cn
set datagrid1.datasource = rc
end if
'GOOD LUCK AMAR '
end sub
dim cn as new adodc.connection dim rc as new adodc.roccordset '----------- private sub find_onclick() if isnumeric(codetxt.text) then rc.open "select * from stock where CODE = " & codetxt.text , cn set datagrid1.datasource = rc end if 'GOOD LUCK AMAR ' end sub
السلام عليكم ورحمة الله تعالى وبركاته ....
ياأخي الكريم إذا كنت تريد أن يكون برنامجك منسق بطريقة جيدة أي إمكانية إستخراج كل ماتريده في لحة واحدة يجب عليك إستعمال الإستعلام أكثر من أي شيء آخر ففي هذ ا المثال الخاص بك تستعمل الكود التالي ليعطيك نتائج بحثك .
موفق إن شاء الله
الحاج نقبيل
برمجة عامة .
dim cn as new adodc.connection
dim rc as new adodc.roccordset
'-----------
private sub find_onclick()
if isnumeric(codetxt.text) then
rc.open "select * from stock where CODE = " & codetxt.text , cn
set datagrid1.datasource = rc
end if
'GOOD LUCK AMAR '
end sub
السلام عليكم ورحمة الله تعالى وبركاته ....
ياأخي الكريم إذا كنت تريد أن يكون برنامجك منسق بطريقة جيدة أي إمكانية إستخراج كل ماتريده في لحة واحدة يجب عليك إستعمال الإستعلام أكثر من أي شيء آخر ففي هذ ا المثال الخاص بك تستعمل الكود التالي ليعطيك نتائج بحثك .
موفق إن شاء الله
الحاج نقبيل
برمجة عامة .
dim cn as new adodc.connection
dim rc as new adodc.roccordset
'-----------
private sub find_onclick()
if isnumeric(codetxt.text) then
rc.open "select * from stock where CODE = " & codetxt.text , cn
set datagrid1.datasource = rc
end if
'GOOD LUCK AMAR '
end sub
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…