Dim myConnection As New SqlConnection()
Dim myDataAdapter As New SqlDataAdapter()
Dim myDataSet As New DataSet()
myConnection.ConnectionString = "initial catalog=pubs;integrated security=SSPI;persist security info=False;workstation id=IBM;packet size=4096"
myDataAdapter.SelectCommand = New SqlCommand()
myDataAdapter.SelectCommand.Connection = myConnection
myDataAdapter.SelectCommand.CommandText = "Select au_lname,au_fname,title,price From authors,titleauthor,titles" & _
" where authors.au_id=titleauthor.au_id and titleauthor.title_id=titles.title_id Order By au_lname,au_fname"
myDataAdapter.SelectCommand.CommandType = CommandType.Text
'myConnection.Open()
'myDataAdapter.SelectCommand.ExecuteNonQuery()
myDataAdapter.Fill(myDataSet, "aa"
'myConnection.Close()
grdAuthorTitles.DataSource = myDataSet
grdAuthorTitles.DataMember = "aa"
我已将打开/关闭连接注销,为何还能够得到数据填充表格?
|