Solved

Issues using ADODB connection to DB2 table

Posted on 2008-10-27
5
384 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
  • 3
  • 2
5 Comments
 
LVL 42

Expert Comment

by:dqmq
Comment Utility
>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
Comment Utility
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 500 total points
Comment Utility
Yes, access the data through the linked tables instead of an ADO connection
0
 

Author Comment

by:c9k9h
Comment Utility
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
Comment Utility
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

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …

744 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now