16,552
社区成员
发帖
与我相关
我的任务
分享
Using connection As OleDbConnection = New OleDbConnection( _
"Provider=MSDataShape;Data Provider=SQLOLEDB;" & _
"Data Source=(local);Integrated " & _
"Security=SSPI;Initial Catalog=northwind")
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter( _
"SELECT CustomerID, CompanyName FROM Customers " , connection)
Dim customers As DataSet = New DataSet()
adapter.Fill(customers, "Customers")
End Using