在vb6中選擇組合框的值後自動獲取文本框的值

Question

我有一個表products，其中有6列，包括列價格。我想才達到的是：

• 當我選擇下拉菜單中的下一個文本框是價格將自動從數據庫表products填補的值。

例：表產品

ProductName  Price 
Mango   12 
Apple   15 

組合框的值：

Mango 
Apple 

組合框的文本框的值：

Mango 

價格文本框的值自動填入與：

12 

嘗試代碼：

Private Sub Price() 
Set Rs = New ADODB.Recordset 
Set Cmd = New ADODB.Command 

If txtProdName.txt Is Not Nothing Then 

With Cmd 
    .ActiveConnection = Conn 
    .CommandType = adCmdText 
    .CommandText = "SELECT price from products where productname=txtProdname.txt" 
    Set Rs = .Execute 
End With 

txtPrice = Rs.Fields 
End If 
End Sub 

我想這一個整天但這不工作，如何改正這個人真的糊塗到這個？

Answer 1

試試這個：這serrve爲樣本...希望它可以幫助

Private sub CboiPAQ_click() 
Set rsiPAQs = New ADODB.Recordset 
With rsiPAQs 
.ActiveConnection = cnMHS 
.CursorLocation = adUseClient 
.CursorType = adOpenStatic 
.LockType = adLockPessimistic 
.Source = "SELECT location FROM iPAQs WHERE iPAQ=" & "'" & CboiPAQ.text & "'" 
.Open 
txtbox.text=rsiPAQs("location") 
End With 
End sub