[dubai.eig]

(10-04-17, 10:40 AM)abdualla كتب : أههااااا فهمت عليك

طيب هل المسألة فيها قاعدة بيانات،
اذا تريد ترسل مشروعك اللي بتشتغل عليه على الخاص اطلع عليه يمكن الاقي فيه أشياء جاهزة توفر من الوقت.

صحيح الداتا اسحبها من قاعدة البيانات  SQLite

كود :

     Dim str As String = String.Format("Data Source= DB.s3db")
           Dim con As New SQLiteConnection(str)
           Dim com As String = "select Qso_id,CALLop ,qso_date ,timek ,bands ,modes ,rst_sent ,rst_rcvd FROM DB"
           Dim Adpt As New SQLiteDataAdapter(com, con)
           Dim ds As New DataSet()

           Adpt.Fill(ds, ("DB"))

           DataGridView1.DataSource = ds.Tables("DB").DefaultView
           With DataGridView1
               .RowHeadersVisible = False
               .Columns(0).Visible = False
               .Columns(1).HeaderCell.Value = "Call Sign"
               DataGridView1.Columns(1).Width = "100"

               .Columns(2).HeaderCell.Value = "Date"
               DataGridView1.Columns(2).Width = "100"

               .Columns(3).HeaderCell.Value = "UTC"
               DataGridView1.Columns(3).Width = "70"

               .Columns(4).HeaderCell.Value = "Band"
               DataGridView1.Columns(4).Width = "70"

               .Columns(5).HeaderCell.Value = "Mode"
               DataGridView1.Columns(5).Width = "70"

 

               .Columns(7).HeaderCell.Value = "rst sent"
               DataGridView1.Columns(7).Width = "60"

               .Columns(8).HeaderCell.Value = "rst rcvd"
               DataGridView1.Columns(8).Width = "60"

         

           End With

ال CALLop  هو نفسه      DataGridView1.Columns(1).Name = " Name"

---

(10-04-17, 10:40 AM)abdualla كتب : أههااااا فهمت عليك

طيب هل المسألة فيها قاعدة بيانات،
اذا تريد ترسل مشروعك اللي بتشتغل عليه على الخاص اطلع عليه يمكن الاقي فيه أشياء جاهزة توفر من الوقت.

المشروع حجمه كبير شويه بس مثل ما وضحت اني اسحب الداتا ن القاعدة الى الداتا قريد 

مثل ما واضح فوق واذا محتاج اي شي ثاني امر ان شاءالله اوفرة لك