如何将combobox控件和Listbox 关联到数据库？？ - 编程论坛

#2

夜游的鱼2007-10-26 13:47

[IMG]e:\combobox.jpg[/IMG]
[IMG]e:\规格代码表.jpg[/IMG]

[此贴子已经被作者于2007-10-26 13:47:37编辑过]

#3

夜游的鱼2007-10-27 08:33

有高手解答吗?????????????

#4

夜游的鱼2007-11-02 09:51

有高手解答吗???????

#5

coollz2007-11-02 11:20

不明白!

#6

roadway2007-11-02 11:28

用ADO控件不行吗?打开数据库,即使不能直接链接到Listbox,也可以把数据库数据读到变量中,再给它赋值吧.

#7

fairy42007-11-02 11:34

listbox關聯數據庫

Dim strtemp01 As String
Dim datemp01 As SqlClient.SqlDataAdapter
Dim dstemp01 As DataSet
Dim rw01 As DataRow
Dim x, y, z As Integer
Try
strtemp01 = Me.txt.Text.Trim()
If strtemp01 = String.Empty Then
Exit Sub
End If

Me.ListBox1.Items.Clear()
dstemp01 = New DataSet
datemp01 = New SqlClient.SqlDataAdapter("select * from [數據庫] where [條件]='" & strtemp01 & "';", connDB)
datemp01.Fill(dstemp01, "datalist")
z = dstemp01.Tables("datalist").Rows.Count
If z = 0 Then
Exit Sub
End If
For x = 0 To z - 1
rw01 = dstemp01.Tables("datalist").Rows(x)
Me.ListBox1.Items.Add(rw01("字段") ）
Next
Catch ex As Exception

End Try

#8

fairy42007-11-02 11:37

combobox 關聯數據庫
Dim dsTemp01 As DataSet
Dim daTemp01 As OleDb.OleDbDataAdapter
Dim rw01 As DataRow
Dim x, y, z As Integer

dsTemp01 = New DataSet
daTemp01 = New OleDb.OleDbDataAdapter("Select [] from [] where []="" ;", connDB)
daTemp01.Fill(dsTemp01, "DataList")

cmbProductType.Items.Clear()
cmbProductType.Items.Add("")
z = dsTemp01.Tables("DataList").Rows.Count
For x = 0 To z - 1
rw01 = dsTemp01.Tables("DataList").Rows(x)
cmbProductType.Items.Add(ReadStr(rw01("")))
Next
cmbProductType.SelectedIndex = -1

connDB為連接數據庫函數