Using ADODC control instead of Connection string

[mansukh20]

Hi Guys,

Im finding difficulty implementing this code using ADODC control component. Any suggestions

Private Sub dbcClassType_Change()
Dim sql As String
sql = "SELECT * FROM RATE WHERE CLASSTYPE = '" & dbcClassType.Text & "'"
Set RS = New ADODB.Recordset
RS.Open sql, CON
CMD.ActiveConnection = CON

baseRate = RS!PRICE
weeklyDiscountRate = RS!WEEKLY
monthlyDiscountRate = RS!MONTHLY
weekendSpecialRate = RS!WEEKENDSPECIAL
txtAmountDue.Text = RS!PRICE
calculatedPrice = 0
End Sub

 

[LostInCode]

Well, if you want to do it that way then:

Dim sql As String
sql = "SELECT * FROM RATE WHERE CLASSTYPE = '" & dbcClassType.Text & "'"
Set RS = New ADODB.Recordset
RS.Open sql, CON

Set Adodc1.Recordset = RS

But, then you do not need to use the ADO Data Control.