27-09-13, 01:05 PM
شكرا لكم وهذا الكود للاستفادة
كود :
Dim currentDate As DateTime = DateTime.Now
Dim da As SqlDataAdapter
Dim sqlconn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\m7md\Documents\Visual Studio 2008\Projects\Cars\Cars\cars.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cm As String = ("select * from tbl_cars ")
Dim ds As New DataSet
da = New SqlDataAdapter(cm, sqlconn)
ds.Clear()
DataGridView1.DataSource = Nothing
da.Fill(ds, "tbl_cars")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "tbl_cars"
DataGridView1.Columns(0).Width = 50
DataGridView1.Columns(1).Width = 200
DataGridView1.Columns(1).Width = 200
DataGridView1.Columns(3).Width = 200
DataGridView1.Columns(4).Width = 200
DataGridView1.Columns(0).HeaderText = "N"
DataGridView1.Columns(1).HeaderText = "TYPE"
DataGridView1.Columns(2).HeaderText = "Gender"
DataGridView1.Columns(3).HeaderText = "COLOR"
DataGridView1.Columns(4).HeaderText = "PRICE"