回 帖 发 新 帖 刷新版面

主题: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

回复列表 (共1个回复)

沙发


我来回复

您尚未登录,请登录后再回复。点此登录或注册