学习VB.NET ,请教各位了!

[TT老老]

写了贴就知道会有很多人会骂的:（我只会用控件显示数据啦，现在想用手动写代码方法实现）
现在我只知道如何联接到数据库(可能也是不对的啦)
Public Sub Connection_Sql()
Dim Conn As SqlClient.SqlConnection
Conn = New SqlClient.SqlConnection
Dim State_Conn As String
Conn.ConnectionString = " workstation id=ISA_SERVER;packet size=4096;user id=sa;data source=10.4.5.2;persist security info=True;initial catalog=Northwind;password=thf;Connect Timeout=10"
Try
State_Conn = Conn.State()
Conn.Open()
State_Conn = Conn.State()
MessageBox.Show("数据库连接成功！连接状态是：" & State_Conn)
Catch ex As Exception
MessageBox.Show("对不起，连接失败！连接状态是：" & State_Conn)
Finally
Conn.Close()
End Try
End Sub
1、如何查询数据库中的内容生成数据集？
2、如何显示在DATAGRID中？
多谢各位了：（只要留下代码，本人感激不尽！在此先谢谢了，）

[feihu_02]

Dim deptSQL As String
Dim ds As New DataSet
dim dv1 as dataview
dim strconn as string
strConn = " workstation id=ISA_SERVER;packet size=4096;user id=sa;data source=10.4.5.2;persist security info=True;initial catalog=Northwind;password=thf;Connect Timeout=10"
deptSQL = "Select Cmid,Cdepartment as Department from customization where cdepartment<>'' "
dim cmd as new sqlcommand(deptSQL,strconn)
dim da as new sqlDataAdapter(cmd)
da.fill(ds)
dv1.Table = ds.Tables("Customization")
dataGrid1.SetDataBinding(dv1, Nothing)

[Overriding]

建议楼主多看看书或者教程，这种问题真的不该提问,因为每本讲.net的书上都会有这些方面的介绍！

[tl_pear]

Dim Conn As SqlClient.SqlConnection

Conn = New SqlClient.SqlConnection
Dim State_Conn As String
Conn.ConnectionString = " workstation id=ISA_SERVER;packet size=4096;user id=sa;data source=10.4.5.2;persist security info=True;initial catalog=Northwind;password=thf;Connect Timeout=10"

dim ds as new dataset
dim cmd as new sqlcommand("select * from 你要查的表名",conn)
dim da as new sqlDataAdapter(cmd)
da.fill(ds)
datagrid1.datasourcr=ds.tables(0)

[TT老老]

再次谢谢
ancyf(凡瑞)
tl_pear(飘叶寻梦)
feihu_02(飞狐)
zhanqiangz(闲云野鹤－Overriding)
等帮助我的朋友们！

谢谢了。。：）

[fanruinet]

见Quickstart中的教程
http://chs.gotdotnet.com/QuickStart/aspplus/default.aspx?url=/quickstart/aspplus/doc/webdataaccess.aspx

例如生成数据集：
Dim myConnection As New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
Dim myCommand As New SqlDataAdapter("select * from Authors", myConnection)

Dim ds As New DataSet()
myCommand.Fill(ds, "Authors")
显示在DataGrid中：
MyDataGrid.DataSource=ds.Tables("Authors").DefaultView
MyDataGrid.DataBind()