积极答复者
谁帮我写一段纯代码

问题
-
我想用DATASET方式读取数据库并显示出来,用纯代码方式写。设计器里面只作UI设计。
- 已移动 Sheng Jiang 蒋晟Moderator 2011年3月30日 3:58 (发件人:Visual Basic)
答案
-
#Region "绑定数据并显示数据" Private Sub FillData() Dim GetTableString As String = "Select * From 表名“ Dim StrConn As SqlConnection Dim objDS As DataSet Dim objAdapter As SqlDataAdapter Dim table As DataTable Try StrConn= New SqlConnection("Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=SSPI;Connection Timeout=15") '连接字符串请参考MSDN上的帮助 StrConn.Open() Dim objAdapter As New SqlDataAdapter(GetTableString, StrConn) Dim objDS As New DataSet objAdapter.Fill(objDS) objAdapter.Dispose() StrConn.Close() table = objDS.Tables(0) DataGridView1.DataSource = table Catch ex As SqlClient.SqlException MessageBox.Show(ex.Message) End Try End Sub #End Region
- 已标记为答案 IT-民工 2011年3月30日 3:33
全部回复
-
#Region "绑定数据并显示数据" Private Sub FillData() Dim GetTableString As String = "Select * From 表名“ Dim StrConn As SqlConnection Dim objDS As DataSet Dim objAdapter As SqlDataAdapter Dim table As DataTable Try StrConn= New SqlConnection("Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=SSPI;Connection Timeout=15") '连接字符串请参考MSDN上的帮助 StrConn.Open() Dim objAdapter As New SqlDataAdapter(GetTableString, StrConn) Dim objDS As New DataSet objAdapter.Fill(objDS) objAdapter.Dispose() StrConn.Close() table = objDS.Tables(0) DataGridView1.DataSource = table Catch ex As SqlClient.SqlException MessageBox.Show(ex.Message) End Try End Sub #End Region
- 已标记为答案 IT-民工 2011年3月30日 3:33