ODBC--call failed.

[tina]

Hello,
Can you hale me to define my mistake please?
I am trying to run a SQL Pass – Through Query from Access 2000 and
inside the record set I am trying to loop for a LoginID. I think
that this function should work.
I get an error at this point Set StoredProcRecor dSet =
DB.OpenRecordse t(StoredProcQry Name, DB_OPEN_SNAPSHO T)

The error is this ODBC--call failed.

Please let me know how can I fix this.
Thank you very much.

Tina

Function GetFullReportCC ListServer(MyUn it_Name As String)

Dim StoredProcName As String
Dim StoredProcCall As String
Dim StoredProcQryNa me As String
Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset

Dim DB As Database

On Error GoTo HandleErr
Set DB = DBEngine.Worksp aces(0).Databas es(0)

StoredProcQryNa me = "qryGetFullRepo rtCCList"
StoredProcCall = "execute sp_GetFullRepor tCCList '" & MyUnit_Name
& "'"

Set StoredProcQuery Def = DB.QueryDefs(St oredProcQryName )
StoredProcQuery Def.Sql = StoredProcCall

Set StoredProcRecor dSet = DB.OpenRecordse t(StoredProcQry Name,
DB_OPEN_SNAPSHO T)

StoredProcRecor dSet.MoveFirst

Do Until StoredProcRecor dSet.EOF

GetFullReportCC ListServer = GetFullReportCC ListServer &
StoredProcRecor dSet.Fields("Lo ginID") & ";"
StoredProcRecor dSet.MoveNext

Loop

GetFullReportCC ListServer = Left$(GetFullRe portCCListServe r,
Len(GetFullRepo rtCCListServer) - 1)
ExitHere:

Set StoredProcRecor dSet = Nothing

Exit Function
End Function

[Perry]

Replace

Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset
Dim DB As Database by
Dim StoredProcQuery Def As DAO.QueryDef
Dim StoredProcRecor dSet As DAO.Recordset
Dim DB As DAO.Database

Will usually cure the case.
Kindly repost if it doesn't.

Krgrds,
Perry
"tina" <Ti******@hotma il.com> wrote in message
news:69******** *************** ***@posting.goo gle.com... Hello,
Can you hale me to define my mistake please?
I am trying to run a SQL Pass - Through Query from Access 2000 and
inside the record set I am trying to loop for a LoginID. I think
that this function should work.
I get an error at this point Set StoredProcRecor dSet =
DB.OpenRecordse t(StoredProcQry Name, DB_OPEN_SNAPSHO T)

The error is this ODBC--call failed.

Please let me know how can I fix this.
Thank you very much.

Tina

Function GetFullReportCC ListServer(MyUn it_Name As String)

Dim StoredProcName As String
Dim StoredProcCall As String
Dim StoredProcQryNa me As String
Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset

Dim DB As Database

On Error GoTo HandleErr
Set DB = DBEngine.Worksp aces(0).Databas es(0)

StoredProcQryNa me = "qryGetFullRepo rtCCList"
StoredProcCall = "execute sp_GetFullRepor tCCList '" & MyUnit_Name
& "'"

Set StoredProcQuery Def = DB.QueryDefs(St oredProcQryName )
StoredProcQuery Def.Sql = StoredProcCall

Set StoredProcRecor dSet = DB.OpenRecordse t(StoredProcQry Name,
DB_OPEN_SNAPSHO T)

StoredProcRecor dSet.MoveFirst

Do Until StoredProcRecor dSet.EOF

GetFullReportCC ListServer = GetFullReportCC ListServer &
StoredProcRecor dSet.Fields("Lo ginID") & ";"
StoredProcRecor dSet.MoveNext

Loop

GetFullReportCC ListServer = Left$(GetFullRe portCCListServe r,
Len(GetFullRepo rtCCListServer) - 1)
ExitHere:

Set StoredProcRecor dSet = Nothing

Exit Function
End Function

[Steve Jorgensen]

If that were the problem, I don't think the error message would say "ODBC call
failed".

On Tue, 27 Jan 2004 19:30:50 +0100, "Perry" <p.****@chello. nl> wrote:

Replace

Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset
Dim DB As Database

by
Dim StoredProcQuery Def As DAO.QueryDef
Dim StoredProcRecor dSet As DAO.Recordset
Dim DB As DAO.Database

Will usually cure the case.
Kindly repost if it doesn't.

Krgrds,
Perry
"tina" <Ti******@hotma il.com> wrote in message
news:69******* *************** ****@posting.go ogle.com...

Hello,
Can you hale me to define my mistake please?
I am trying to run a SQL Pass - Through Query from Access 2000 and
inside the record set I am trying to loop for a LoginID. I think
that this function should work.
I get an error at this point Set StoredProcRecor dSet =
DB.OpenRecordse t(StoredProcQry Name, DB_OPEN_SNAPSHO T)

The error is this ODBC--call failed.

Please let me know how can I fix this.
Thank you very much.

Tina

Function GetFullReportCC ListServer(MyUn it_Name As String)

Dim StoredProcName As String
Dim StoredProcCall As String
Dim StoredProcQryNa me As String
Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset

Dim DB As Database

On Error GoTo HandleErr
Set DB = DBEngine.Worksp aces(0).Databas es(0)

StoredProcQryNa me = "qryGetFullRepo rtCCList"
StoredProcCall = "execute sp_GetFullRepor tCCList '" & MyUnit_Name
& "'"

Set StoredProcQuery Def = DB.QueryDefs(St oredProcQryName )
StoredProcQuery Def.Sql = StoredProcCall

Set StoredProcRecor dSet = DB.OpenRecordse t(StoredProcQry Name,
DB_OPEN_SNAPSHO T)

StoredProcRecor dSet.MoveFirst

Do Until StoredProcRecor dSet.EOF

GetFullReportCC ListServer = GetFullReportCC ListServer &
StoredProcRecor dSet.Fields("Lo ginID") & ";"
StoredProcRecor dSet.MoveNext

Loop

GetFullReportCC ListServer = Left$(GetFullRe portCCListServe r,
Len(GetFullRepo rtCCListServer) - 1)
ExitHere:

Set StoredProcRecor dSet = Nothing

Exit Function
End Function

[Steve Jorgensen]

I can't tell you what the cause of error is, but I can tell you how to find
out more about it.

When you use DAO, and an error is returned from the server or from the ODBC
library, a number of errors are generated, but VB gets only the last one which
is the least informative, and always just says "ODBC call failed". The whole
list of errors is stored in the DAO Errors collection, though, so you just
need to look at Errors(0).Descr iption (I think that's right, it might be 1,
not zero) to see the original cause of the error.

On 27 Jan 2004 10:25:31 -0800, Ti******@hotmai l.com (tina) wrote:

Hello,
Can you hale me to define my mistake please?
I am trying to run a SQL Pass – Through Query from Access 2000 and
inside the record set I am trying to loop for a LoginID. I think
that this function should work.
I get an error at this point Set StoredProcRecor dSet =
DB.OpenRecords et(StoredProcQr yName, DB_OPEN_SNAPSHO T)

The error is this ODBC--call failed.

Please let me know how can I fix this.
Thank you very much.

Tina

Function GetFullReportCC ListServer(MyUn it_Name As String)

Dim StoredProcName As String
Dim StoredProcCall As String
Dim StoredProcQryNa me As String
Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset

Dim DB As Database

On Error GoTo HandleErr
Set DB = DBEngine.Worksp aces(0).Databas es(0)

StoredProcQryNa me = "qryGetFullRepo rtCCList"
StoredProcCall = "execute sp_GetFullRepor tCCList '" & MyUnit_Name
& "'"

Set StoredProcQuery Def = DB.QueryDefs(St oredProcQryName )
StoredProcQuery Def.Sql = StoredProcCall

Set StoredProcRecor dSet = DB.OpenRecordse t(StoredProcQry Name,
DB_OPEN_SNAPSH OT)

StoredProcRecor dSet.MoveFirst

Do Until StoredProcRecor dSet.EOF

GetFullReportCC ListServer = GetFullReportCC ListServer &
StoredProcReco rdSet.Fields("L oginID") & ";"
StoredProcRecor dSet.MoveNext

Loop

GetFullReportCC ListServer = Left$(GetFullRe portCCListServe r,
Len(GetFullRep ortCCListServer ) - 1)
ExitHere:

Set StoredProcRecor dSet = Nothing

Exit Function
End Function

[Tina Kim]

Thanks Perry. Unfortunately that did not work :(

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Tina Kim]

That did not work :( Any other suggestions? Please!!!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[DFS]

Tina,

Execute your statement (whatever ends up in variable StoredProcCall) in an
Access pass-thru query and see what kind of error you get.
"tina" <Ti******@hotma il.com> wrote in message
news:69******** *************** ***@posting.goo gle.com...

Hello,
Can you hale me to define my mistake please?
I am trying to run a SQL Pass - Through Query from Access 2000 and
inside the record set I am trying to loop for a LoginID. I think
that this function should work.
I get an error at this point Set StoredProcRecor dSet =
DB.OpenRecordse t(StoredProcQry Name, DB_OPEN_SNAPSHO T)

The error is this ODBC--call failed.

Please let me know how can I fix this.
Thank you very much.

Tina

Function GetFullReportCC ListServer(MyUn it_Name As String)

Dim StoredProcName As String
Dim StoredProcCall As String
Dim StoredProcQryNa me As String
Dim StoredProcQuery Def As QueryDef
Dim StoredProcRecor dSet As Recordset

Dim DB As Database

On Error GoTo HandleErr
Set DB = DBEngine.Worksp aces(0).Databas es(0)

StoredProcQryNa me = "qryGetFullRepo rtCCList"
StoredProcCall = "execute sp_GetFullRepor tCCList '" & MyUnit_Name
& "'"

Set StoredProcQuery Def = DB.QueryDefs(St oredProcQryName )
StoredProcQuery Def.Sql = StoredProcCall

Set StoredProcRecor dSet = DB.OpenRecordse t(StoredProcQry Name,
DB_OPEN_SNAPSHO T)

StoredProcRecor dSet.MoveFirst

Do Until StoredProcRecor dSet.EOF

GetFullReportCC ListServer = GetFullReportCC ListServer &
StoredProcRecor dSet.Fields("Lo ginID") & ";"
StoredProcRecor dSet.MoveNext

Loop

GetFullReportCC ListServer = Left$(GetFullRe portCCListServe r,
Len(GetFullRepo rtCCListServer) - 1)
ExitHere:

Set StoredProcRecor dSet = Nothing

Exit Function
End Function

[Steve Jorgensen]

Note that the person who normally posts in this gorup under the name of salad
does not post using an anonymous remailer, so this post is clearly a fake.

On 27 Jan 2004 22:59:18 -0000, Salad <oi*@vinegar.co m> wrote:

Tina Kim wrote:

That did not work :( Any other suggestions? Please!!!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

What say you and I chat about this at Cafe Journal in Mannheim
I'll be there as usual on Thurs at 9 am in the corner near the door
next to the coat rack. I have blond hair and will be wearing a red scarf
and black coat. As you can see in this group, I am a skilled Access user.