实例120读取Access库的数据

1.添加数据源northwind.mdb

2.设计一个窗体

3.写代码

Imports System.Data.OleDb
Public Class Form1
    Public Function GetConnection() As OleDbConnection
        Return New OleDbConnection(My.Settings.northwindConnectionString)
    End Function
    Private myConn As OleDbConnection

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myConn = GetConnection()
        myConn.Open()
        Dim strSql As String = "Select 姓氏,名字,职务 From 雇员"
        Dim myComm As New OleDbCommand(strSql, myConn)
        Dim myreader As OleDbDataReader = myComm.ExecuteReader()
        Dim iCounter As Integer
        While myreader.Read
            For iCounter = 0 To myreader.FieldCount - 1
                '方法1
                'ListBox1.Items.Add(myreader(0).ToString