Dim mysqlconn As SqlConnection
'取得在全局web.config中设定的数据库连接串
Dim connstring As String = ConfigurationSettings.AppSettings("connstring")
mysqlconn = New SqlConnection(connstring)
mysqlconn.Open()
'创建一个dataset对象,并绑定datagrid控件
Dim objCmd As New SqlDataAdapter("select * from ly1 ", mysqlconn)
Dim ds As New DataSet
objCmd.Fill(ds, "ly1")