我想使用组合框选择的值作为查询从mysql数据库中提取另一个数据。假设组合框选择了值作为ID。那么我将使用该ID提取与此ID相关的其他详细信息，例如供应商，成本等，以显示在标签选项中。我使用了以下代码，但是它不起作用。
sqlQa =“从matcat_select中选择描述，其中BOF类似于“ MAIN”；”
rs.Open sqlQa，oConn，adOpenStatic
与rs
'Set .ActiveConnection = Nothing 'Disconnect the recordset.
k = .Fields.Count
'Populate the array with the whole recordset.
vaData = .GetRows
End With
'操纵组合框的属性并显示表单。
With UserForm1
With .ComboBox1
.Clear
.BoundColumn = k
.List = Application.Transpose(vaData)
.ListIndex = -1
End With
End With
'操纵组合框的属性并显示表单
设置rs1 = CreateObject（“ ADODB.Recordset”）
sqlQb =“从matcat_select中选择EOF，其中描述='”＆ComboBox1.Value＆“';”
rs1。打开sqlQb，oConn
虽然不是rs1.EOF
Label6.Caption = rs1（“ EOF”）
rs1.MoveNext
温德
如果我错了，请检查我的代码并纠正我。另外，每次我通过vba在mysql中进行查询时，是否都需要建立连接？
If Not rs1.EOF Then
Label6.Caption = rs1("EOF")
Else
Label6.Caption = ""
End If
试试这个
While Not rs1.EOF
Label6.Caption = rs1("EOF")
rs1.MoveNext
Wend
对于选择语句
sqlQb = "Select EOF From MyTable Where Description = '" & ComboBox1.Value & "';"
ComboBox不是文本框。若要获取选定的值，请使用.Value方法。
是的，当您要执行任何查询时，您需要一个连接，您的VBA本身不是数据库，也不知道您想要什么。
recordset.Open Source，ActiveConnection，CursorType，LockType，选项
http://msdn.microsoft.com/zh-CN/library/windows/desktop/ms675544(v=vs.85).aspx
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句