17-10-12, 05:45 PM
كاتب الموضوع : AhmedEssawy
كود :
' ----------------------------------------
' Required Imports :
'
' System
' System.Data
' System.Data.OleDb
' Microsoft.VisualBasic
' ----------------------------------------
Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AccessFile.mdb;Persist Security Info=False"
Dim cmd As String = "Select * from Topics"
Dim adapter As New OleDbDataAdapter(cmd, conn)
Dim topics As New DataSet
adapter.Fill(topics)