ComboBox===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
声明
我也是个初学者，我会把自己觉得有用的小的技巧总结一下，觉得有用的可以看看，小白也可以看一下，学习一下，有大佬可以赐教的话更好！不喜勿喷谢谢！
声明*
设计视图，运行截图如下：