A module is not a valid type

marn1997 · Oct 2, 2014

Public Sub testingStubForSqlStatement()
Dim strSql As String
Dim oSqlStatement As New SqlStatement
Dim rs As ADODB.Recordset

strSql = "SELECT unitspercase * casesperpallet FROM PRODUCTS WHERE PRODUCTCODE = ?1 " & _
" and messagename = ?2 and labelid = ?3"

With oSqlStatement
.Init strSql
.addParameter "044-10101", eStr
.addParameter "04410101", eStr
.addParameter "1", eInt
Set rs = .getDataSet()
End With
If hasRecords(rs) Then
Do While Not rs.EOF
Debug.Print (rs(0))
rs.MoveNext
Loop
End If
rs.Close

Set rs = Nothing
End Sub

Andrzejek · Oct 2, 2014

Missing reference…?

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

dhookom · Oct 2, 2014

Is there a question, problem, error message, or comment? What is eStr?

Pleae use TGML Code tags to make your code easier to read.

Code:

Public Sub testingStubForSqlStatement()
    Dim strSql As String
    Dim oSqlStatement As New SqlStatement
    Dim rs As ADODB.Recordset

    strSql = "SELECT unitspercase * casesperpallet FROM PRODUCTS WHERE PRODUCTCODE = ?1 " & _
       " and messagename = ?2 and labelid = ?3"

    With oSqlStatement
       .Init strSql
       .addParameter "044-10101", eStr
       .addParameter "04410101", eStr
       .addParameter "1", eInt
       Set rs = .getDataSet()
    End With
    If hasRecords(rs) Then
       Do While Not rs.EOF
          Debug.Print (rs(0))
          rs.MoveNext
       Loop
    End If
    rs.Close

    Set rs = Nothing
End Sub

Duane
Hook'D on Access
MS Access MVP

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

A module is not a valid type

marn1997

Programmer

Andrzejek

Programmer

dhookom

Programmer

Similar threads

Part and Inventory Search

Sponsor