呵呵~~
Dim sqlCnn As New SqlClient.SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "dbName")'连接到SQL数据库
Dim sqlCmd As New SqlClient.SqlCommand("select a,b,c, from table1", sqlCnn)'连接字符串
Dim ds As New DataSet'一个DataSet
Dim da As New SqlClient.SqlDataAdapter'一个SqlDataAdapter
da.Fill(ds, "tempTable")'读数据到ds中的一逐步形成临时表tempTable
Dim a As Integer
Dim b, c As String
'下面枚举临时表tempTable里的全部行
For Each dr As DataRow In ds.Tables("tempTable").Rows
a = dr(0)'第1列的数据
b = dr(1)'第2列的数据
c = dr(2)'第3列的数据
'......你可在在这插入代码处理每一行的数据
Next