0

我正在使用 ibmDB2 和 VB6.0,试图从数据库中检索数据并将其显示在我的搜索功能的组合框中。表名称是供应商,我想在组合框中显示的列是 Supp_CompanyName。

但是在我完成编码之后,我在私有子表单部分下的 do 循环中遇到了“预期:语句结束”错误。关于如何解决此错误的任何想法?

谢谢 :)

以下是我查看供应商信息表的代码:

Private Sub Combo1_Change()
Adodc1.RecordSource = "select * from Supplier where Supp_CompanyName='" & Combo1 & "'"
Adodc1.Refresh

End Sub

Private Sub Command1_Click()
Adodc1.RecordSource = "Select * from Supplier "
Adodc1.Refresh

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=IBMDADB2.DB2COPY1;Data Source=ToyStore"
Combo1.Clear
Adodc1.RecordSource = "Select distinct Supp_CompanyName from Supplier"
Adodc1.Refresh

With Adodc1.Recordset 
Do Until .EOF 
    Combo1.AddItem ![Supp_CompanyName] 
    .MoveNext
Loop
End With

Adodc1.RecordSource = "Supplier"
Adodc1.Refresh

End Sub
4

0 回答 0