我正在使用 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