16-08-13, 10:11 PM
PHP كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data sours = " & Application.StartupPath & "/mydata.mdb"
Dim conn As New OleDbConnection(constr)
Dim dataset1 As New DataSet
Dim sqlstr As String = "select * from table1"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
dataadapter1.Fill(dataset1, "table1")
conn.Close()
End Sub
End Class