Dim conn As New SqlConnection
'取连接字符串
strConnectionString = ConfigurationSettings.AppSettings("Connectionstring")
'给数据库一个连接字符串
conn.ConnectionString = strConnectionString
'定义一个DataAdapter
Dim da As New SqlDataAdapter("sql语句", conn)
'定义一个DataSet,用来接受数据
Dim ds As New DataSet
'取数据
Try
'打开连接
conn.Open()
'填充数据
da.Fill(ds, "数据库名")
Dim Mycurre As CurrencyManager
Dim MyGrid As DataGridTableStyle
Mycurre = CType(Me.BindingContext(ds, "数据库名"), CurrencyManager)
MyGrid = New DataGridTableStyle(Mycurre)
Me.DataGrid1.TableStyles.Clear()
Me.DataGrid1.TableStyles.Add(MyGrid)
Me.DataGrid1.DataSource = ds.Tables("数据库名")
Dim colStyle As GridColumnStylesCollection
colStyle = Me.DataGrid1.TableStyles(0).GridColumnStyles
colStyle(0).Width = 86
colStyle(1).Width = 501
colStyle(2).Width = 86
colStyle(3).Width = 86
colStyle(4).Width = 86
Me.DataGrid1.ReadOnly = True
Catch ex As Exception
MessageBox.Show("error")
Finally
'当前连接没有关闭则关闭
If (conn.State <> ConnectionState.Closed) Then
conn.Close()
End If
End Try
conn.Close()