首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

紧急求教解决办法

2011-12-29 
紧急求教在windows窗口中怎么显示数据库表的内容[解决办法]Private Sub Form1_Load(ByVal sender As Objec

紧急求教
在windows窗口中怎么显示数据库表的内容

[解决办法]
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New SqlClient.SqlConnection
conn.ConnectionString = "server=(local);uid=sa;database=ts "
conn.Open()

Dim dg As DataGrid = New DataGrid
With dg
.Left = 6
.Top = 6
.Width = 200
.Height = 400
End With
Me.Controls.Add(dg)

Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter( "SELECT * FROM b ", conn)
Dim ds As DataSet = New DataSet
da.Fill(ds)
dg.DataSource = ds.Tables(0)

End Sub

热点排行