• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

m.aljoul

اعضاء
  • عدد المشاركات

    239
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

7 عادي

عن m.aljoul

  • الرتبة
    عضو

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Syria
  1. السلام عليكم ورحمة الله تعالى وبركاته إخواني الكرام #مساقات_أونلاين بكل الود والمحبة ندعوكم لزيارة قناتنا على #اليوتيوب, نقدم محتوى تعليمي للشباب العربي. ما زلنا في البداية, نحتاج لدعمك لنستمر في العطاء, كما نحتاج لتزويدنا بملاحظاتكم للرقي بالمحتوى أكثر. إن أعجبك المحتوى اشترك معنا في القناة على الرابط: https://goo.gl/o7UXBp ومتابعة حساباتنا على: للاشتراك في القناة: https://goo.gl/VVhQSB حسابنا على تويتر: https://twitter.com/MasaqatOnline صفحتنا على الفيسبوك: https://www.facebook.com/MasaqatOnline انضم لمجموعتنا على الفيسبوك: https://www.facebook.com/groups/Masaq... تابع جديد القناة على التيليغرام: https://t.me/MasaqatOnline للطلبات والمراسلة: [email protected] لكم التحية والسلام عليكم ورحمة الله تعالى وبركاته
  2. السلام عليكم أحاول الاتصال بقاعدة بيانات sdf عن طريق الكود التالي ولكن لا يعطي نتيجة: Imports System.Data.SqlServerCe Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim scon As SqlCeConnection = New SqlCeConnection(My.Settings.ttdbConnectionString) Dim ceda As SqlCeDataAdapter = New SqlCeDataAdapter("Select * from tbl1", scon) Dim ds As New DataSet ceda.Fill(ds, "tbl1") MsgBox(ds.Tables("tbl1").Rows.Count) End Sub End Class وأمر آخر: عند الاتصال بقواعد بيانات ما في برنامج سابق لي, ألاحظ وجود توليد لكود اتصال في ملف App + Settings ما الغاية منهم طالما أني أضع سلسلة الاتصال الصحيحة؟
  3. أرجو من المختصين إفادتي بإجابة شافية بارك الله بكم
  4. السلام عليكم عندي عنصر كومبو بوكس أقوم بتعبئته بعناصر من جدول من قاعدة بيانات أثناء فتح الفورم وأيضاً أقوم بتعبئة Checkbox list أيضاً من جدول آخر بقاعدة البيانات وكان كل شيء يعمل بدون مشاكل ولكن عندما قمت بتغيير جملة الاستعلام للكومبو بوكس من" MyMod.Me_CboFill(Me.CboAct, "Select * From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Act_Ar", "Act_ID") إلى: MyMod.Me_CboFill(Me.CboAct, "Select Act_ID & '.' & Act_Ar As Cat From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Cat", "Act_ID") ظهرت المشكلة وهي أنه تم تعبئة الكومبو بوكس ولكن لم تتم تعبئة الـ Checkbox list ويعطيني رسالة الخطأ: Cannot bind to the new value member وفيما يلي كود دالة التعبئة لل Checkbox list: Public Sub Me_ChkFill(ByVal Chk As CheckedListBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String) Chk.DataSource = Nothing Dim Da As New OleDbDataAdapter(Sql, Conn) Dim Dt As New DataTable Da.Fill(Dt) If Dt.Rows.Count = 0 Then Exit Sub Chk.DataSource = Dt Chk.DisplayMember = Dm Chk.ValueMember = Vm End Sub وفيما يلي كود دالة التعبئة للكومبو بوكس: Public Sub Me_CboFill(ByVal Cbo As ComboBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String) Cbo.DataSource = Nothing Dim Da As New OleDbDataAdapter(Sql, Conn) Dim Dt As New DataTable Da.Fill(Dt) If Dt.Rows.Count = 0 Then Exit Sub Cbo.DataSource = Dt Cbo.DisplayMember = Dm Cbo.ValueMember = Vm End Sub أرجو المساعدة حيث أني لم أجد أي جواب مساعد وهذه أول مرة تعترضني مشكلة من هذا النوع!
  5. اعتتقد ان هذا الامر غريب "ما تطلب" انت فعلاً عند الضغط على زر معين تولد الحدث لهذا الزر   اعتقد انك يجب ان توضح اكثر
  6. وضعتها ولكن لم ينجح الامر
  7. المشكلة اني لا اعرف أين اضع قاعدة البيانات
  8. موجودة داخل مجلد السوليوشن
  9. الله أكبر كل هذه المشاهدات ولا مساعدة
  10. أخي الكريم   برأيي لا تعتمد على Inputbox الجاهزة إذا كنت تريد التعديل فيها   أرى أن تصنع inputbox خاصة بك , يمكن أن تجد طريقة على الرابط التالي:   http://www.dreamincode.net/forums/topic/103846-custom-inputbox/   وبإمكانك البحث لتجد عشرات الطرق الأخرى   بالتوفيق إن شاء الله
  11. فيما يلي حل بدائي: Dim x1, x2, x3, x4 As Integer Dim rrr() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17} For i As Integer = 0 To rrr(3) x1 = x1 + rrr(i) Next MsgBox(x1) For ii As Integer = rrr(4) To rrr(8) x2 = x2 + rrr(ii) Next MsgBox(x2) For iii As Integer = rrr(9) To rrr(13) x3 = x3 + rrr(iii) Next MsgBox(x3) For iiii As Integer = rrr(14) To rrr(15) x4 = x4 + rrr(iiii) Next MsgBox(x4) MsgBox(x1 + x2 + x3 + x4)
  12. أرفق مثال أخي الكريم ليتم مساعدتك بشكل أفضل ضمنه
  13. أين أنتم يا خبراء المنتدى