Я пытаюсь заполнить ComboBox в VB6, используя набор записей, который я извлек из SQL. Я написал хранимую процедуру на SQL, которая возвращает набор записей, который выглядит следующим образом:
Набор записей:
Я написал функцию на VB6, которая присваивает этот RecordSet переменной: rsRetData
. В моей пользовательской форме у меня есть ComboBox с именем cboxRejectReasons
. Я хочу, чтобы все Descriptions
из набора записей были перечислены в раскрывающемся списке И чтобы связанные SelectCode
все еще были прикреплены к Description
.
Вот код хранимой процедуры (извините, форматирование почему-то перепуталось):
ALTER PROCEDURE [dbo].[uspTheoLossGetRejectCodes]
-- Add the parameters for the stored procedure here
AS
BEGIN
SET NOCOUNT ON;
-- Insert statements for procedure here
SELECT SelectCode, Description, MeltLineEnabled
FROM tblSelectCodes
WHERE (LanguageID = 1) AND (SelectCode >= 100) AND (MeltLineEnabled = 1)
ORDER BY Description
SET NOCOUNT OFF;
END
Вот функция VB6, которая присваивает RecordSet переменной rsRetData:
Public Function TheoLossCalcRejectError()
Dim lErrorCode As EBOD_ComponentErrorCodes
Dim sErrorDescription As String
Dim objStoredProc As StoredProcedure.IStoredProcedure
Set objStoredProc = CreateObject("StoredProcedure.IStoredProcedure")
With objStoredProc
.NewStoredProcedure
If .Open_Connection(lErrorCode, sErrorDescription) Then
Set rsRetData = .ExecuteReturnRecordset(USPPARNAME_GETREJECTCODES, lErrorCode, sErrorDescription)
End If
.Close_Connection
End With
Set objStoredProc = Nothing
End Function
Функция выполняется правильно, и набор записей назначается правильно.
Как я могу это сделать?