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

ممكن تساعدوني في برنامجي

مغلق
بدأه محمد عثمان في 24 يناير 2005 · 3 رد · 457 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخي يملك تلفزيون محلي اسمه تلفزيون بيت لحم وطلب مني ان اصمم له برنامج للأرشيف في التلفزيون

اسم البرنامج : الرويد لإدارة الأرشيف التلفزيوني

بعد ان انتهيت من تصميم شاهده اخي وطلب مني التالي :

ان لا يحفظ اتلبرنامج اسم فيلم موجود

وان تكون خاصية البحث عن طريق اسم الفيلم وليس عن التاريخ

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

اخوكم : محمد عثمان

الرويد لادارة الارشيف التلفزيوني.zip

#2

ارجوكم يا شباب بسرعة

:D

#3

أخى الكريم ،،

يبدو أنك لم تحتك كثيراً بجمل SQL للاستعلامات التى تسمى SQL Statements

أولاً عشان تنفذ بحث باسم الفيلم بدلا من التاريخ

SELECT * FROM [Table1] WHERE [Field09] Between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"

استبدل هذا الكود بجمله SQL هذه

SQL = "Select * FROM [Table1] WHERE [Field100] =' & text1.text & " ' "

استبدل Field100 باسم الحقل الخاص باسم الفيلم

استبدل text1.text باسم الفيلم المراد البحث عنه

و الجزء التانى من السؤال فى السكه ;)

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

#4

الجزء الثانى من سؤالك

أنت تريد عدم تكرار تسجيل فيلم مسجل مسبقا

تمام

أنا هكتب الكود من دماغى و لن اجربه الان لضيق الوقت لكن ان شاء الله مظبوط

Dim rs As New ADODB.Recordset
rs.open = "SELECT * FROM [Table1] WHERE [Field00] = '" & text1.text & "'"

If rs.eof then
msgbox "الفيلم غير مسجل من قبل"
'اكتب كود التسجيل
Else
msgbox "الفيلم مسجل ولا يجوز تسجيله مره آخرى"
End If

و طبعا استبدل اسم الحقل Field00 باسم حقل اسم الفيلم ،، و استبدل text1.text باسم الفيلم المراد تسجيله

:rolleyes:

و اى مشاكل انا موجود يا باشا

باى :D

تم تعديل هذه المشاركة بواسطة AHMAD FATHY في 25 يناير 2005 في 02:32

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

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

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