Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
RE: Dealing with bound Controls
Message
Information générale
Forum:
Visual Basic
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
Titre:
RE: Dealing with bound Controls
Divers
Thread ID:
00673581
Message ID:
00673581
Vues:
46
Hi Eric,

As of now I am using Oracle 8i as database. And my frontend application is in VB 6.0.

I know that its wrong practice of providing combo box for such a huge data volume. But I don't have any option, becozz this is just a selection of master information. If u have any another option please suggest me, I have damn intrest in that. It will be a great solution for me.


This is actual code for binding third party control to a ADODC data control.
'**************************
'Setting recordsource to ADODC Control
ADODC1.RecordSource = "Select a.ItemPart_No || Case When a.ItemPart_No
Is Null Or a.ItemPart_No='' Then '' Else ' ' End || a.Item_Desc_ENG
Item_Desc_ENG,b.Type_Desc,a.Item_Code,b.Type_Category,
ab.Supp_Name,a.ItemGrp_Code From Item_Mst a, Type_Mst b, Supp_Mst ab Where
a.Item_Unit=b.Type_Category And a.Comp_Code=b.Comp_Code And
a.Comp_Code='01' And b.Type_Code='UN' And a.Supp_Code=ab.Supp_Code (+) And
a.Comp_Code=ab.Comp_Code (+) And (a.Supp_Code='ABC0' or a.Supp_Code='' or
a.Supp_Code Is Null) Order by 1"

ADODC1.Refresh ''Here it is taking time

'Setting datasource to sheridan dropdown oledb control
Set ssdboleDropDown.DataSource = ado_All
ssdboleDropDown.Columns(0).DataField = ADODC1.Recordset.Fields(0).Name
'**************************

Thanking You,
Prafull Patil.
Répondre
Fil
Voir

Click here to load this message in the networking platform