?
Solved

Issues using ADODB connection to DB2 table

Posted on 2008-10-27
5
Medium Priority
?
393 Views
Last Modified: 2013-11-27
Hello,

I'm having troubles connecting to a DB2 table (or setting up the ADODB connection) It works fine when I'm hitting an access table, but for some reason will not work with the DB2 table. The table, of course is linked via ODBC and I can connect to it when running an Access query. I'm trying to populate a single text box on a form with a count derived from the following query. I'm getting the error message: "Run-time error "-2147217565(80040e37) [IBM][CLI Driver][DB2] SQL0204N "DIW07.PROD_VLTC900A_CLM" is an undefined name. SQLSTATE=42704.

The only thing i can think of is that it's taking my username "DIW07" and using it as the database name? I'm not sure why this would be an issue as the table is linked... it's a real pain... Any help would be HUGELY appreciated!


Here is the code I'm using:



Private Sub CalcKim_Click()
Dim rsActivity As ADODB.Recordset
Dim cnUDB As ADODB.Connection
Set cnUDB = New ADODB.Connection
With cnUDB
.Provider = "MSDASQL"
.ConnectionString = "Data Source=db2psn"
.Properties("Prompt") = adPromptCompleteRequired
.Open
End With
 
 
'0-30 days
sSQL = ""
sSQL = sSQL & "SELECT Count(I_SYS_CLM)AS thirtydayKim "
sSQL = sSQL & "FROM PROD_VLTC900A_CLM p INNER JOIN Teams t ON p.Custodian = t.CustodianID "
sSQL = sSQL & "WHERE p.PendingStatus = 'PC' And t.Manager = 'Kim' "
'And DateDiff('d',[DatePending],Date()) <=30"
Set rsActivity = New ADODB.Recordset
With rsActivity
.CursorType = adOpenForwardOnly
.CursorLocation = adUseServer
.LockType = adLockReadOnly
.Open sSQL, cnUDB
End With
Me.k2 = rsActivity!thirtydayKim

Open in new window

0
Comment
Question by:c9k9h
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 42

Expert Comment

by:dqmq
ID: 22813454
>The only thing i can think of is that it's taking my username "DIW07" and using it as the database name?

It's using DIW07 as the database owner or schema name.  

But no matter, if you have links to PROD_VLTC900A_CLM and teams tables, then you are going after the count the wrong way.   Store your join in a query:

    SELECT * FROM PROD_VLTC900A_CLM p INNER JOIN Teams t ON p.Custodian = t.CustodianID


and then retrieve it:

me.k2=  DCOUNT("I_SYS_CLM","YOURQUERYNAME","PendingStatus = 'PC' And t.Manager = 'Kim'")
0
 

Author Comment

by:c9k9h
ID: 22813520
Okay,

So you are saying create an access query with SELECT * FROM PROD_VLTC900A_CLM p INNER JOIN Teams t ON p.Custodian = t.CustodianID  and then call it in the code?
0
 
LVL 42

Accepted Solution

by:
dqmq earned 2000 total points
ID: 22813573
Yes, access the data through the linked tables instead of an ADO connection
0
 

Author Comment

by:c9k9h
ID: 22813621
Okay,

So I've created a query that selects all of the data and joins the two tables. For the On_click event of the command button i've gotten rid of all of the code and just have:

Me.k2 = DCount("I_SYS_CLM", "qryDB2", "C_STA_CLM = 'PC' And Teams.Manager = 'Kim'")

Now when I run, I get the error "Run Time error 2001 - you canceled the previous operation" and it highlights the me.k2 line. It will not even prompt for the connection to the DB2 table.
0
 

Author Comment

by:c9k9h
ID: 22814137
Got it!

simple fix... needed to get rid of the "Teams." seeing as I'm pulling from an existing query.


Thanks a bunch!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database.  This article shows how to recreate this functionality in Windows 7 through 10.
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
Suggested Courses

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question