+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [مشروع] مساعدة في البرمجة بالاكواد (/showthread.php?tid=25926)
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 06-08-18
اريد استجلاب اسم الزبون من قاعدة البيانات
بالبحث عن اسمه
(06-08-18, 01:17 PM)sulimanalahdl كتب : اريد استجلاب اسم الزبون من قاعدة البيانات
بالبحث عن اسمه
أوالبحث بالرقم ثم طباعة البيانات في التقرير
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 07-08-18
من يتكرم بمساعدتي
يتابع المشاركة من البداية
RE: مساعدة في البرمجة بالاكواد - sendbad100 - 07-08-18
السلام عليكم
اعاني من ضيف في الوقت امام الحاسب.
وانت اضفت مشروع فارغ من الاكواد وقاعدة بيانات فارغة
لذك اضطررت لوضع مثال اخر نزلته من المنتدى وعدلت علية اتمنى ان يفيدك
1- يجب اضافة مكتبات في الرفرينس حسب الصورة المرفقة
من القائمة Project ثم Reference
كي تستطيع استخدام الاتصال بقاعدة البيانات بالكود
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 07-08-18
(07-08-18, 03:26 PM)sendbad100 كتب :السلام عليكماعاني من ضيف في الوقت امام الحاسب.وانت اضفت مشروع فارغ من الاكواد وقاعدة بيانات فارغة
لذك اضطررت لوضع مثال اخر نزلته من المنتدى وعدلت علية اتمنى ان يفيدك
1- يجب اضافة مكتبات في الرفرينس حسب الصورة المرفقة
من القائمة Project ثم Reference
كي تستطيع استخدام الاتصال بقاعدة البيانات بالكود
مشكور اخي سندبادبس طلع عندي هذا الاشكال
ارجو توضيح ذلك
ايضا اريد ان يطبع حسب رقم الفاتورة المسجل
RE: مساعدة في البرمجة بالاكواد - sendbad100 - 08-08-18
السلام عليكم
الخطاء احد ثلاثة اما اسم الجدول خطأ
او اسم السكشن خطأ
اواسم الليبل5 خطأ
او الليبل موجود في سيكشن ثاني
استخدم الشرط HWERE في الاستعلام كما في استعلام العنوان
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 08-08-18
(08-08-18, 12:06 AM)sendbad100 كتب :السلام عليكم
الخطاء احد ثلاثة اما اسم الجدول خطأاو اسم السكشن خطأ
اواسم الليبل5 خطأ
او الليبل موجود في سيكشن ثاني
استخدم الشرط HWERE في الاستعلام كما في استعلام العنوان
بقي اشكال اريد فقط البيانات للرقم الذي تم اختياره في البحث
كما في هذا الكود
هل يمكن تعدل
RE: مساعدة في البرمجة بالاكواد - sendbad100 - 08-08-18
السلام عليكم
هل هذا هو المطلوب
PHP كود :
Private Sub Command1_Click()
'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]
'هنا جلب بيانات التقرير نفسة
If rs.State = adStateOpen Then rs.Close
' If rs.State = adStateOpen Then rs.Close تم استبدال هذا الاستعلام
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic ' هل هذا هو المطلوب 'بهذا الاستعلام
Set DataReport1.DataSource = rs
DataReport1.Show
End Sub
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 08-08-18
(08-08-18, 02:44 AM)sendbad100 كتب :السلام عليكم
هل هذا هو المطلوب
PHP كود :
Private Sub Command1_Click()
'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]
'هنا جلب بيانات التقرير نفسة
If rs.State = adStateOpen Then rs.Close
' If rs.State = adStateOpen Then rs.Close تم استبدال هذا الاستعلام
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic ' هل هذا هو المطلوب 'بهذا الاستعلام
Set DataReport1.DataSource = rs
DataReport1.Show
End Sub
نعم هذا الكود المطلوب
مشكور
الله يعطيك العافية
RE: مساعدة في البرمجة بالاكواد - sulimanalahdl - 15-08-18
(08-08-18, 02:44 AM)sendbad100 كتب :السلام عليكم
هل هذا هو المطلوب
PHP كود :
Private Sub Command1_Click()
'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]
'هنا جلب بيانات التقرير نفسة
If rs.State = adStateOpen Then rs.Close
' If rs.State = adStateOpen Then rs.Close تم استبدال هذا الاستعلام
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic ' هل هذا هو المطلوب 'بهذا الاستعلام
Set DataReport1.DataSource = rs
DataReport1.Show
End Sub
هذا الكود لجلب البيانات بحقل رقمي اريد تعديل الكون لحقل نصي
هل من احد يساعدني في تعديل الكود
RE: مساعدة في البرمجة بالاكواد - sendbad100 - 15-08-18
PHP كود :
rs.Open "SELECT * FROM Tabel1 WHERE [NO] = '" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockPessimistic ' هل هذا هو المطلوب 'بهذا الاستعلام
جرب الاستعلام لم اجربة فقط عدلته على عجل
السلام عليكم
غير الاستعلام هكذا اي تضع النص بين كم في الاستعلام اعلاه ' هنا النص '