Query to Subform/Subreport

[nagileon]

Hi there

The code is working fine but I don't know how to show the output of: "select count(leads.id) from leads".
I did put the "Subform/Subreport" control on the Form but have no idea what next.
How can I tell VB to put the output of query into "Subform/Subreport" or any other control.

Best Regards

Pete


Private Sub Command11_Click()

Dim conConnector As ADODB.Connection

Dim strStatement As String

Set conConnector = New ADODB.Connection

conConnector.Open "DSN=NORAD - HOME;UID=crystal;PWD=111111;"

strStatement = ""select count(leads.id) from leads

conConnector.Execute strStatement

conConnector.Close
Set conConnector = Nothing

End Sub

[MikeTheBike]

Hi there

The code is working fine but I don't know how to show the output of: "select count(leads.id) from leads".
I did put the "Subform/Subreport" control on the Form but have no idea what next.
How can I tell VB to put the output of query into "Subform/Subreport" or any other control.

Best Regards

Pete


Private Sub Command11_Click()

Dim conConnector As ADODB.Connection

Dim strStatement As String

Set conConnector = New ADODB.Connection

conConnector.Open "DSN=NORAD - HOME;UID=crystal;PWD=111111;"

strStatement = ""select count(leads.id) from leads

conConnector.Execute strStatement

conConnector.Close
Set conConnector = Nothing

End Sub

Hi

Perhaps this ??

strStatement = "select count(leads.id) As ID_Count from leads"

Dim rs as New ADODB.Recordset

rs.Open strStatemen, conConnector

TextBoxControl = rs("ID_Count")

rs.Close

??

MTB