sql

[karim orooji]

Imports System.Data.SqlClient

Imports System.Data

Public Class Form1
Dim ds As New DataSet
Dim bs As New BindingSource
Dim dta As New SqlDataAdapter("select * from k", "server=localhost;integrated security=sspi;initial catalog=karim;")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ds.Clear()
dta.Fill(ds, "k")
bs.DataSource = ds
bs.DataMember = "k"

dg1.AutoGenerateColumns = True

dg1.DataSource = bs
dg1.DataMember = "k"

End Sub
End Class



با سلام به دوستان برنامه اين برنامه چرا مشكل ميگيره
كمكم كنيد


با تشكر

[anooshiran]

سلام دوست عزيز

در كد زير مشكلت حل شده است



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ds.Clear()
dta.Fill(ds, "k")
bs.DataSource = ds
bs.DataMember = "k"
With dg1
.AutoGenerateColumns = True
.DataSource = bs.DataSource
.DataMember = "k"
End With
End Sub



ولي برايم جاي تعجب است كه چرا از BindinigSource استفاده كرده اي در حالي كه هيچ نيازي به آن نداري . كد زير را هم امتحان كن



Public Class Form1
Dim ds As New DataSet
Dim dta As New SqlDataAdapter("select * from k", "server=localhost;integrated security=sspi;initial catalog=karim;")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ds.Clear()
dta.Fill(ds, "k")
With dg1
.AutoGenerateColumns = True
.DataSource = ds
.DataMember = "k"
End With
End Sub
End Class