1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Public Class Form3
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim ds As DataSet = New DataSet("Recordset")
Dim da As OleDbDataAdapter = New OleDbDataAdapter
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
cn = New ADODB.Connection
cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TOSHIBA\Desktop\mini projet vb\BD2.mdb;Persist Security Info=False"
cn.Open()
'---------- Execute opens the recordset ----------------
rs = New ADODB.Recordset
rs.Open("select * from notes", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
da.Fill(ds, rs, "notes")
DataGridView1.DataSource = ds.Tables(0).DefaultView |
Partager