تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحميل البيانات في combobox
#1
السلام عليكم ............

يوجد لديا مشكلة عندما اقوم بتشغيل البرنامج فهو يقوم بتحميل البيانات الى الكومبو بوكس بشكل طبيعي و لكن عند الخطأ في 

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



   
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة: الوليد ☺
#2
اكتب كود التحميل و اسماء الحقول المراد تحميلها من الجدول واسم الجدول
الرد }}}}
تم الشكر بواسطة: الوليد ☺
#3
اخي كود التحميل هو
PHP كود :
Private Sub login_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
       User_Table_Load
()
 
      ComboBox1.Items.Clear()
 
      ComboBox1.DataSource User_Table
       ComboBox1
.DisplayMember "User_Name"
 
  End Sub 


و قاعدة البيانات هي اكسس ......... و شكرا
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#4
مشاركة مني لكم فهذا كلاس لفورم باداة كومبوبوكس باسم username يتعبا من عمود باسم un  ومربع نص باسم password مربوط بعمود باسم ps
التصريحات العامة:
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim sql As String = String.Empty
   Dim ds As DataSet
   Dim da As OleDb.OleDbDataAdapter

اجراء تعبئة الكومبوبكس باسماء المستخدمين:
كود :
 Private Sub gusers()
       sql = "select un from tb"
       ds = New DataSet
       da = New OleDb.OleDbDataAdapter(sql, con)
       usernam.Items.Clear()
       ds.Clear()
       da.Fill(ds, "tb")
       usernam.DataSource = ds.Tables("tb")
       usernam.DisplayMember = "un"
   End Sub

ضمن حدث تحميل الفورم
كود :
 gusers()
       If con.State = ConnectionState.Open Then
           con.Close()
       End If






دالة التحقق من البيانات
كود :
Private Function isfound(ByVal un As String, ByVal ps As String) As Boolean
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.CommandText = "select count(tid) from tb where un='" & un & "' and ps='" & ps & "'"
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       If cm.ExecuteScalar > 0 Then
           Return True
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       Else
           Return False
           If con.State = ConnectionState.Open Then
               con.Close()
           End If

       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If

   End Function
وضمن زر امر الدخول
كود :
If isfound(usernam.Text, password.Text) = False Then
           MsgBox("Not Found", MsgBoxStyle.Critical, "ERROR")
       Else
           MsgBox("Welcom .. here", MsgBoxStyle.Information, "welcom")
       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If



والتالي كامل الكلاس

كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim sql As String = String.Empty
   Dim ds As DataSet
   Dim da As OleDb.OleDbDataAdapter

   Private Sub gusers()
       sql = "select un from tb"
       ds = New DataSet
       da = New OleDb.OleDbDataAdapter(sql, con)
       usernam.Items.Clear()
       ds.Clear()
       da.Fill(ds, "tb")
       usernam.DataSource = ds.Tables("tb")
       usernam.DisplayMember = "un"
   End Sub

   Private Function isfound(ByVal un As String, ByVal ps As String) As Boolean
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.CommandText = "select count(tid) from tb where un='" & un & "' and ps='" & ps & "'"
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       If cm.ExecuteScalar > 0 Then
           Return True
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       Else
           Return False
           If con.State = ConnectionState.Open Then
               con.Close()
           End If

       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If

   End Function




   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       gusers()
       If con.State = ConnectionState.Open Then
           con.Close()
       End If

   End Sub

   Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.Click
       If isfound(usernam.Text, password.Text) = False Then
           MsgBox("Not Found", MsgBoxStyle.Critical, "ERROR")
       Else
           MsgBox("Welcom .. here", MsgBoxStyle.Information, "welcom")
       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If

   End Sub
End Class

طبعا مسالة التحقق من هل الاتصال مفتوح ام لا مهمة حتى نضمن ان الخطا لا يتعلق بحالة الاتصال
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: الوليد ☺ , raoe-041
#5
السلام عليكم ورحمة الله

ما شاء الله شكل نافذة تسجيل الدخول جميلة، وفكرة ComboBox فيها الأسماء حلوة.
الرد }}}}
تم الشكر بواسطة: raoe-041
#6
اخي سعود بارك الله فيك و لكن لو بالامكان حل مشكلتي عندي كل شيء شغال يقوم بالتحميل اول مرة و لكن عند وجود في خطأ في الرقم السري لا يحمل البيانات مرة اخرة

و شكرا لتعاونك ...............
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة: سعود
#7
هلا اخي الكريم
اكتب كل الاجراءات اللتي تستخدم تحميل البيانات مثل User_Table_Load و غيرها
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
اخي سعود بارك الله فيك و نفعك بعلمك ............

كود التدقيق هو .....
PHP كود :
User_Table.Clear()
 
       daUsertable = New OleDbDataAdapter("select * from User_Table where  pass ='" TextBox2.Text "'"connAccess2010)
 
       daUsertable.Fill(User_Table)

 
       If User_Table.Rows.Count <> 0 Then
            p_permation 
User_Table.Rows(0).Item("Permation_id")
 
              )
 
           start_form.Show()
 
           Me.Hide()
 
       Else
            MsgBox
("اسم المستخدم او كلمة السر خاطئة")

 
         
        End 
If 

بالاضافة الى كود تحميل البيانات في combobox
الموجود سابقا في المشاركة ....

اما فيما يخص ال User_Table_Load

فهذا هو الكود .......... و انا عامله في موديول  ......

PHP كود :
Public Sub User_Table_Load()
 
       User_Table.Clear()
 
       daUsertable = New OleDbDataAdapter("select *from User_Table"connAccess2010)
 
       daUsertable.Fill(User_Table)

 
   End Sub 

و ياريت تحل المشكلة ضمن استطاعتك و الله يجزاك الخير ..............

و احب اشكر اخي الوليد على الاطراء ..........و برنامج صلاحيات المستخدم على حسابك لو تريد ....
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#9
كود :
"select * from User_Table where  pass ='" & TextBox2.Text & "'"
اخي الكريم جملة الاستعلام هذه تحتاج منك اعادة نظر!
لما لا يكون الاستعلام عن اسم المستخدم وكلمة المرور؟
يعني المستخدم يختار الاسم الخاص به ثم يكتب كلمة المرور فيكون الاستعلام عن الاثنين ...

الشي الاخر اذا لم اكن فهمت الكود خطا وهو انني وجدت تعارض بين الكود التالي:
كود :
daUsertable = New OleDbDataAdapter("select * from User_Table where  pass ='" & TextBox2.Text & "'", connAccess2010)

وبين
كود :
 daUsertable = New OleDbDataAdapter("select *from User_Table", connAccess2010)

(ان كان فهمي صحيح) فتاكد من طريقة كتابة الكود
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
اخي الكريم سعود اولا بارك الله فيك
ثانيا انا لمى استخدم الاستعلام عن الاثنين عن الاسم و الرقم  يظهر لي رسالة الخطأ مباشرة و لا يدخل الى البرنامج و هذا هو الكود .........


PHP كود :
daUsertable = New OleDbDataAdapter("select * from User_Table where user_name like'" ComboBox1.Text "' and pass ='" TextBox2.Text "'"connAccess2010
 
اما عن التعارض فلا يوجد لدي اي مشكلة بينهم المشكلة هي فقط عدم تحميل البيانات مرة اخرة و لو  اردت استطيع ارسال البرنامج اليك على الايميل ..........
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 36 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 40 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 355 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 82 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  تسمية قاعدة البيانات قبل انشائها aiman 3 176 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 145 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  [VB.NET] الفيجوال بيسك لا يحفظ البيانات محمد خلف زكي 1 215 02-08-16, 05:54 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 387 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان
  مساعدة بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 24 755 17-06-16, 03:05 AM
آخر رد: رهف العريفي
Sad مشكلة عدم حفظ البيانات في قاعدة البيانات wrd 10 540 10-06-16, 10:20 PM
آخر رد: ابو ليلى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم