Adodc1 (vb6)

[D Willett]

Hello all.

I'm new to using the adodc ADO control and need a little help here.
I have a form "frmDB" with an Adodc1 control set to a DSN(= MM) and to a table "PRT"
The form also has an unbound listbox "List1".

I want to fill the listbox with data linked to a textbox on "frm1280"

I need some help with an SQL statement to fill the list.

<pre>Dim strSQL As String
strSQL = "SELECT PRT.EST_NO, PRT.SUP_NO, PRT.ITM_DES, PRT.QTY, PRT.NET_CST, PRT.RET_CST
FROM PRT WHERE (((PRT.EST_NO)=frm1280!txtEST);"
Execute strSQL</pre>




Once I have filled the list, I should be ok with a number of things I want to do with the data.

[HansV]

I don't have VB6 available at the moment, but I think you have to set theDataSource property of the list box to the name of the ADO data control, and set the RecordSource of the ADO data control to the appropriate SQL string
<code>
Dim strSQL As String
strSQL = "SELECT EST_NO, SUP_NO, ITM_DES, QTY, NET_CST, RET_CST " & _
"FROM PRT WHERE EST_NO = " & frm1280.txtEST
Me.Adodc1.RecordSource = strSQL
</code>
Note: if EST_NO is a text field, use

<code>... EST_NO = '" & frm1280.txtEST & "'"</code>

[D Willett]

Pretty close Hans, but I get this error:

[HansV]

I'd try starting with a very simple SQL string, for example

strSQL = "SELECT * FROM PRT"

If that works, try making the SQL string a bit more complex step by step:
- Specify individual fields instead of *
- Add a WHERE clause with a fixed condition
etc.

[D Willett]

Hans

I'm getting no-where with this error.

Are there any alternatives ?

[HansV]

I'm sorry, I can't test the code. Perhaps someone with VB6 will have a suggestion.