(I have this posted in VB forum as well and no luck so far, thats why Im poting here - I am using VB.Net on XP).
I have a third party program that runs several scheduled batch routines every night. Each type of batch routine creates a folder in the C:\Temp directory. Inside the folders are error reports that are txt files. I am writing a program that will also be run as a scheduled routine, but it will look for the most recent set of folders...
jcopeland38053
Last Activity: Mar 6 '08, 12:38 PM
Joined: Jan 16 '08
Location:
-
Search for a Directory by date.
-
Thanks for the tip.
And as to the name of the variable, you were correct, however i still get the same error after fixing that. Im stuck.... -
In retyping I misssed the quotes. And I get the Security Exception error at line 10, the Dim statement....Leave a comment:
-
Searching for a directory by date
I have a third party program that runs several scheduled batch routines every night. Each type of batch routine creates a folder in the C:\Temp directory. Inside the folders are error reports that are txt files. I am writing a program that will also be run as a scheduled routine, but it will look for the most recent set of folders (tg*, ar*, mdb* are the folder strings) and read the txt files looking for certain strings. If the strings exist it... -
When I connect manually using a system DSN to pd_6500 the tables in the selection box appear as pd_6500.pdtable _101, etc. I tired coding this and I still get the same result. There is actaully a 3rd party CAD software that is writing to the DB so the realtionships beween tables and users have to be correct.
From the sounds of thing I may have to just use one AccessDB per project, which isnt a bad thing, just would have been nice...Leave a comment:
-
I am generating reports from the DB and it requires some pretty ugly joins and queries that I know how to create in access....Leave a comment:
-
Thanks for the tip on not needing the setfocus. That will clean up code throughout my program.
Also, as for the reduced FOr loop, unfortunately my table numbers are sparatic (101,111,112,13 5, etc.) just happened to only include the first two tables. But thanks for that info, too.
As for the connection string, in Oracle the Server variable is the SID of the DB. In that SID I create users. Since we are going a little deeper I will...Leave a comment:
-
The variable strSite, strUser and strPass are from a dialog box. The username sets which set of tables are used. The terminology here is a "schema." So from my example Project1, which is the Ted schmea, it sees its own set of pdtables. Then when I log into the John schema it only sees Project2's set of pdtbales. So, when I step throught thecade as it runs, the ODBC string is correct (i.e. it is using Project2's UID and Pass). Its...Leave a comment:
-
[CODE=vb]Function ACos(ByVal number As Double) As Double
If Abs(number) <> 1 Then
ACos = 1.5707963267949 - Atn(number / Sqr(1 - number * number))
ElseIf number = -1 Then
ACos = 3.1415926535897 9
Elseif number=1 Then
Acos=0
End if
End Function[/CODE]
It is returned in radians. To convert
Acosdeg = number*180/PI...Leave a comment:
-
Accoring to Access help you could combine GG10*, GG11*, GG12*, GG13*, GG14*, and GG15* into a single ....Not like "GG[10-15]*" and the same for HH....Leave a comment:
-
Would a possible solution be to import the tables into Access? This could be done on your workstation. If you want to ensure that they are seeing the latest and greatest, your would need to create a small app that run on your machine to open/delete tables/reimport tables. If you are using Windows, you could then schedule this app to run on a regular basis. You would need to build into your app that if the ldb file exist either skip the update...Leave a comment:
-
Always linking to the first project
MSAccess 2003 / XP / Oracle 9.2 backend
Before I get started explaining it will be helpful to see my code snipet:
-------------------------------------------
tablename = 1
On Error Resume Next
For tablename = 1 To 2
If tablename = 1 Then pdtable = "pdtable_10 1"
If tablename = 2 Then pdtable = "pdtable_11 1"
DoCmd.DeleteObj ect...
No activity results to display
Leave a comment: