主题:datagrid显示多次查询结果
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnStr As String = "server=×.×.×.×;Initial Catalog=app;Integrated Security=false;Uid=sa;Password=;"
Dim cn = New SqlConnection(cnStr)
Dim da = New SqlDataAdapter("SELECT descr FROM jd WHERE id=95", cn)
Dim ds = New Data.DataSet()
If da.Fill(ds, "jd") = 0 Then
MessageBox.Show("无!", "西北", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Else
da.Fill(ds, "jd")
DataGrid1.DataSource = ds.Tables("jd")
cn.Close()
cn.Dispose()
DataGrid1.Refresh()
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub
Dim cnStr As String = "server=×.×.×.×;Initial Catalog=app;Integrated Security=false;Uid=sa;Password=;"
Dim cn = New SqlConnection(cnStr)
Dim da = New SqlDataAdapter("SELECT descr FROM jd WHERE id=95", cn)
Dim ds = New Data.DataSet()
If da.Fill(ds, "jd") = 0 Then
MessageBox.Show("无!", "西北", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Else
da.Fill(ds, "jd")
DataGrid1.DataSource = ds.Tables("jd")
cn.Close()
cn.Dispose()
DataGrid1.Refresh()
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub