Imports System.Data.OleDb
Imports ADODB
Public
Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AdoDBRecToDs("myServerName", "pubs")
End Sub
Private Function AdoDBRecToDs(ByVal Server As String, ByVal DbName As String)
Dim cnn As Connection = New ADODB.Connection()
Dim adors As Recordset = New ADODB.Recordset()
cnn.open("PROVIDER=SQLOLEDB;DATA SOURCE=" & Server & ";" & _
"INITIAL CATALOG=" & DbName & ";INTEGRATED SECURITY=SSPI;")
'Δημιουργία recordset--
'Δήλωση οποιουδήποτε πίνακα στην βάση
Dim sql As String = "select * from authors"
adors.open(sql, cnn, CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, 0)
Dim da As New OleDbDataAdapter()
Dim ds As New DataSet()
'Μεταφορά του recordset στο Dataset
da.Fill(ds, adors, "authors")
'Γέμισμα ενός Grid
grd.DataSource = ds.Tables("authors")
'Τερματισμός σύνδεσης
cnn.Close()
End Function
End
Class