تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب مساعدة في حل مشكلة
#1
السلام  عليكم  ورحمة الله  وبركاته  الاخوة  الاعزاء الكرام  وفقكم  الله  لكل  خير  

  اليوم  انا  حبيت  اقوم  بعمل برنامج للمحل  الخاص بي  وهو يتكون  من  3 جداول  الاول  المواد  وتتكون  من (اسم المعرف  ، واسم المادة ، وسعر البيع ،وسعر الراء ، والكمية  ، وتاريخ  الاضافة  ) وقمت بعمل  البرنامج  علىmysql و vb.net  الاضافة  تمام  والجدول  الاخر  هو خاص بالمشرفين وفيه  حوق  الاسم  والباسوورد  والصفه  
ووالثالث  هو  خاص بالفاتورة  وفيها  (  اسم العميل  واسم المادة وسعر  لبيع  وتاريخ الفاتورة  
طبعا  انا كملت لحد  الان اضافة  المشرفين  واضافة  المواد  ولكن لما  اجي اسوي  استعراض  للمواد  الداتا جيدر  لايظهر  لي  شي  علما  دققت  الكود  اكثر  من  مرة  لم  اجد فيه  اي  خطا  ولا اعرف  السبب  اليكم  الكود  
واطلب  منكم السماح  عن  الاطالة  

PHP كود :
 Sub fillDGV()
        Dt.Rows.Clear()


        adapter = New MySqlDataAdapter("select * from projact"con)

        adapter.Fill(Dt)

        Me.Dvcustmar.DataSource Dt
        Dvcustmar
.Columns(0).HeaderText "التسسلسل"
        Dvcustmar.Columns(1).HeaderText "اسم المادة"
        Dvcustmar.Columns(2).HeaderText "سعر الشراء"
        Dvcustmar.Columns(3).HeaderText "سعر البيع"
        Dvcustmar.Columns(4).HeaderText "تاريخ الاضافة"
        Dvcustmar.Columns(5).HeaderText "الكمية المتوفرة"
      

        Dvcustmar
.Refresh()


    End Sub 
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Dvcustmar.CancelEdit()
 
           Dvcustmar.Columns.Clear()
 
           Dvcustmar.DataSource Nothing

Dvcustmar
.Columns.Add("""التسسلسل")
 
      Dvcustmar.Columns.Add("""اسم المادة")
 
      Dvcustmar.Columns.Add("""سعر الشراء")
 
      Dvcustmar.Columns.Add("""سعر البيع")
 
      Dvcustmar.Columns.Add("""تاريخ الاضافة")
 
      Dvcustmar.Columns.Add("""الكمية المتوفرة")
 

 
 
    Dim sqlstring 
As String "Select top * FROM projact"
 
      'فحص الاتصال بقاعدة البيانات
       If SQL.conn.State = ConnectionState.Open Then
           SQL.conn.Close()
       End If
       SQL.conn.Open()
       Dim adt As New SqlDataAdapter(sqlstring, SQL.conn)
       Dim dt As New DataTable
       adt.Fill(dt)
       Dim i As Integer
       For i = 0 To dt.Rows.Count - 1
           Dvcustmar.Rows.Add()
           Dvcustmar.Rows(i).Cells(0).Value = dt.Rows(i).ItemArray(0)
           Dvcustmar.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(1)
           Dvcustmar.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(2)
           Dvcustmar.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(3)
           Dvcustmar.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(4)
           Dvcustmar.Rows(i).Cells(5).Value = dt.Rows(i).ItemArray(5)
      
       Next
       SQL.conn.Close() 
الرد }}}
#3
(03-12-17, 07:19 PM)Rabeea Qbaha كتب :
PHP كود :
Dvcustmar.CancelEdit()
 
           Dvcustmar.Columns.Clear()
 
           Dvcustmar.DataSource Nothing

Dvcustmar
.Columns.Add("""التسسلسل")
 
      Dvcustmar.Columns.Add("""اسم المادة")
 
      Dvcustmar.Columns.Add("""سعر الشراء")
 
      Dvcustmar.Columns.Add("""سعر البيع")
 
      Dvcustmar.Columns.Add("""تاريخ الاضافة")
 
      Dvcustmar.Columns.Add("""الكمية المتوفرة")
 

 
 
    Dim sqlstring 
As String "Select top * FROM projact"
 
      'فحص الاتصال بقاعدة البيانات
       If SQL.conn.State = ConnectionState.Open Then
           SQL.conn.Close()
       End If
       SQL.conn.Open()
       Dim adt As New SqlDataAdapter(sqlstring, SQL.conn)
       Dim dt As New DataTable
       adt.Fill(dt)
       Dim i As Integer
       For i = 0 To dt.Rows.Count - 1
           Dvcustmar.Rows.Add()
           Dvcustmar.Rows(i).Cells(0).Value = dt.Rows(i).ItemArray(0)
           Dvcustmar.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(1)
           Dvcustmar.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(2)
           Dvcustmar.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(3)
           Dvcustmar.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(4)
           Dvcustmar.Rows(i).Cells(5).Value = dt.Rows(i).ItemArray(5)
      
       Next
       SQL.conn.Close() 

اخي  العزيز  شكرا لك  على ردك  لقد قمت  بتعديل  ما يلزم  انا  اعمل  على  MYSQL والكود  وصل  بغير قاعدة  وع  هذا  قمت باجراء  تعديلات  المطلوبة ولكن  نفس  المشكلة لم  يظهر  لي  ما اصبو  اليه  وشكرا لك
الرد }}}
تم الشكر بواسطة:
#4
جرب ان اعرض البيانات بدون التعديل علو ال header 

اذا لم تظهر البيانات تاكد من جمله الاتصال 


كود :
'فحص الاتصال بقاعدة البيانات
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim strSQL As String = "SELECT * FROM projact"

           Dim da As New OleDbDataAdapter(strSQL, con)
           Dim ds As New DataSet
           da.Fill(ds, "projact")
           DataGridView1.DataSource = ds.Tables(0)
           con.Close()
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
كودك صحيح ،، ولكن :

1- تأكد من الاتصال صحيح وتم بنجاح .
2- تأكد من الجدول غير فارغ من البيانات .
الرد }}}
تم الشكر بواسطة:
#6
(03-12-17, 09:07 PM)حريف برمجة كتب : كودك صحيح ،، ولكن :

1- تأكد من الاتصال صحيح وتم بنجاح .
2- تأكد من الجدول غير فارغ من البيانات .

اخي  الاعاتقد  ان  هنالك  مشكلة  في  كود  الاتصال  لاني  مجرد  ما  غيرت  اسم  الجدول  ظهرت  لي بيانا ت الجدول  الاخر  فقط  هذا الجدول  لا  تظهر بيباناته  علما  ان  فيه  مدخلات  كثيرة  ولا اعرف  السبب
الرد }}}
تم الشكر بواسطة:
#7
تاكد من التسميه 
وتاكد من ال capital letter في اسم الجدول
الرد }}}
تم الشكر بواسطة:
#8
(03-12-17, 09:22 PM)Rabeea Qbaha كتب : تاكد من التسميه 
وتاكد من ال capital letter في اسم الجدول

حاولت  اخي  نفس  الشي
الرد }}}
تم الشكر بواسطة:



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


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