Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim objconnection As New SqlConnection("Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=True")
Dim objdataadapter As New SqlDataAdapter()
Dim objdataset As New DataSet()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
objdataadapter.SelectCommand = New SqlCommand
objdataadapter.SelectCommand.Connection = objconnection
objdataadapter.SelectCommand.CommandText = "select 字段名1,字段名2'.. from 表名"&"order by 关键字"
objdataadapter.SelectCommand.CommandType = CommandType.Text
objconnection.Open()
objdataadapter.Fill(objdataset, "表名")'检索数据并填充dataset对象
objconnection.Close()
grdAuthorTitles.AutoGenerateColumns = True
grdAuthorTitles.DataSource = objdataset
grdAuthorTitles.DataMember = "表名"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SQLUrl = "select top 100 * from [member]"
Dim Tadapter As OleDbDataAdapter = New OleDbDataAdapter(SQLUrl, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abc.mdb")
Tadapter.Fill(mDS, "member")
dgv.DataSource = mDS.Tables("member")
End Sub