VB.NET===关于ComboBox下拉栏与数据库连接的例程

Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection
Dim sql As String
Dim str As String
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sql = “provider=microsoft.ace.oledb.12.0;data source=C:\DataBasexxx.mdb;”
con = New OleDbConnection
con.ConnectionString = sql
con.Open()
str = “Select * From SPEC”
cmd = New OleDbCommand(str, con)
dr = cmd.ExecuteReader
While dr.Read
ComboBox1.Items.Add(dr(“Product_name”))
End While
End Sub
End Class
声明