UC知道vb.net的小小问题。
来源：百度知道 编辑：UC知道 时间：2024/05/16 13:48:32
Imports System.Data.SqlClient
Public Class Form3
Dim ds As New DataSet
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaximumSize = Me.Size
Me.MinimumSize = Me.Size
Dim cn As New SqlConnection
cn.ConnectionString = "data source=224CD2C2371B430;user id=sa;password=sa;initial catalog=xuexi"
cn.Open()
Dim cmd As New SqlCommand
cmd.CommandText = "select *from xuexi"
cmd.Connection = cn
Dim adp As New SqlDataAdapter
adp.Fill(ds, "a")
DataGridView1.DataSource = ds.Tables("a")
cn.Close()
End Sub
End Class
连接数据库后，提示错误。
（在调用“Fill”前，SelectCommand 属性尚未初始化。）
是怎么回事？
Public Class Form3
Dim ds As New DataSet
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaximumSize = Me.Size
Me.MinimumSize = Me.Size
Dim cn As New SqlConnection
cn.ConnectionString = "data source=224CD2C2371B430;user id=sa;password=sa;initial catalog=xuexi"
cn.Open()
Dim cmd As New SqlCommand
cmd.CommandText = "select *from xuexi"
cmd.Connection = cn
Dim adp As New SqlDataAdapter
adp.Fill(ds, "a")
DataGridView1.DataSource = ds.Tables("a")
cn.Close()
End Sub
End Class
连接数据库后，提示错误。
（在调用“Fill”前，SelectCommand 属性尚未初始化。）
是怎么回事？
在Dim adp As New SqlDataAdapter
后加上一句adp.selectCommand=cmd;
Dim cmd As New SqlCommand
cmd.CommandText = "select * from xuexi"
cmd.Connection = cn
Dim adp As New SqlDataAdapter
adp.SelectCommand = cmd 'this line is needed
adp.Fill(ds, "a")
DataGridView1.DataSource = ds.Tables("a")