How to insert the Oracle 9i FIELD NAME into VB6.0 COMBO BOX

eg : desc customer;
This table have 3 fields : CustomerId, CustomerName & CustomerAddress

CombCust --> The above field names should be displayed while drop down of combo box

Thank you in advance

9 Years
Discussion Span
Last Post by bsmathew

actually i never tried make a program with oracle before, but i already do this with sqlserver with vb.net:
maybe you can see the code and take the logic :

Private Sub StudentDataReader()
        Dim i As Integer
        Dim cmdStudent As New SqlCommand
        Dim daStudent As New SqlDataAdapter
        Dim dsStudent As New DataSet
        Dim dtStudent As New DataTable
        Dim conn As SqlConnection

        conn = GetConnect()

            cmdStudent = conn.CreateCommand
            cmdStudent.CommandText = "SELECT * FROM STUDENT"
            daStudent.SelectCommand = cmdStudent
            daStudent.Fill(dsStudent, "Student")
            dtStudent = dsStudent.Tables("Student")
            For i = 0 To dtStudent.Rows.Count - 1


        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Error Connection!!")
        End Try
    End Sub

the point of this code is the loop with for. sorry if this post can help u much but you can take the logic.


Thank JX_Man.

See my code - Can you find the Error in this code - I am using ADODB connection :-
'this code calls the function GetQueryFields

Public Sub InitializeComboFromQueryFields(ByVal cbo As ComboBox, ByVal query As String, Optional ByVal allow_blank As Boolean = False)
Dim results As Collection
Dim i As Integer

' Execute the query.
Set results = GetQueryFields(query) <--------------------

' If we should allow blanks, start with a blank.
If allow_blank Then cbo.AddItem ""

' Initialize the ComboBox.
For i = 1 To results.count
cbo.AddItem results(i)
Next i
End Sub


Public Function GetQueryFields(ByVal query As String) As Collection
Dim cn As New ADODB.Connection
Dim cm As New Command
Dim results As Collection
Dim rs As ADODB.Recordset
Dim field_num As Integer
Dim i As Integer
cn.Open " provider = MSDAORA; user id = scott; password = tiger;"

Set results = New Collection
rs.Open "select * from customer", cn, adOpenForwardOnly, adLockOptimistic

' Save the field names in the collection.
If rs.Fields.count > 0 Then
For i = 0 To rs.Fields.count - 1
results.Add (rs.Fields(i).Name)
i = i + 1
Next i
End If
' Close the Recordset.
' Return the collection.
Set GetQueryFields = results
End Function

The Error is on this line --> " rs.Open "select * from customer", cn, adOpenForwardOnly, adLockOptimistic ". (Run_time error : 91 Object variable or with block variable not set)

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.