Using Access 97 on WinXP
I have data in a DB2 table that I'm trying to get into an identical
table in my backend db. Based on volume of data and frequency of
download, I'm trying to avoid having a temp table created in my
frontend.
I downloaded the temp database code from Tony Toews's site, and
altered it to fit my needs (I thought), and it functions properly all
the way to the point where the data is inserted into a new table (see
below). At that point, rather than inserting into the table created
in the temp database, a new table by the same name with the number 1
appended is created on my frontend.
Can someone please take a look and tell me where I'm going wrong? I
feel I'm very close, but can't quite get over the hump.
Many thanks in advance!
'****CODE START****
Sub TempTable(strTableName As String)
On Error GoTo tagError
Dim db As Database
Dim tdf As TableDef
Dim dbTemp As Database
Dim tdfTemp As TableDef
Dim RS As Recordset
Dim wrkDefault As Workspace
Dim strTempDatabase As String
Dim strTempTableName As String
Dim fld As Field
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
Set db = CurrentDb
Set tdf = db.TableDefs(strTableName)
strTempDatabase = Left$(db.Name, Len(db.Name) - 4) & " temp.mdb"
' Make sure there isn't already a file with the name of
' the new database.
If Dir(strTempDatabase) <> "" Then Kill strTempDatabase
' Create a new temp database
Set dbTemp = wrkDefault.CreateDatabase(strTempDatabase,
dbLangGeneral)
strTempTableName = "temp_" & strTableName
' Delete the link to the temp table if it exists
' (separate sub, also from Tony Toews)
If TableExists(strTempTableName) Then
db.TableDefs.Delete strTempTableName
End If
' Create the temp table
Set tdfTemp = dbTemp.CreateTableDef(strTempTableName)
' Create fields in the temp table identical to those of the
original
For Each fld In tdf.Fields
tdfTemp.Fields.Append tdfTemp.CreateField(fld.Name, fld.Type,
fld.Size)
Next
dbTemp.TableDefs.Append tdfTemp
dbTemp.TableDefs.Refresh
Dim tdfLinked As TableDef
' Link to the Import tables in the temp MDB
Set tdfLinked = db.CreateTableDef(strTempTableName)
tdfLinked.Connect = ";DATABASE=" & strTempDatabase
tdfLinked.SourceTableName = strTempTableName
db.TableDefs.Append tdfLinked
db.TableDefs.Refresh
RefreshDatabaseWindow
' Clear records from destination table
DoCmd.RunSQL ("DELETE * FROM " & strTableName & ";")
' Import table from DB2.
' OConnect() is a separate function that creates
' the connection string.
' >>>This is where the FE table with "1" appended is
' being created:
DoCmd.TransferDatabase acImport, "ODBC Database", OConnect(),
acTable, "MYSYSID.MYTABLE", strTempTableName, False
' Append to back-end
Dim strSQL As String
Dim qdf As QueryDef
Dim nRecAff As Long
strSQL = "INSERT INTO " & strTableName & " SELECT " &
strTempTableName & ".* FROM [" & strTempTableName & "];"
Set qdf = db.CreateQueryDef("", strSQL)
qdf.Execute dbFailOnError
nRecAff = qdf.RecordsAffected
' Separate sub to record timestamp, table affected, number
recs
Call UpdateTS(strTableName, nRecAff)
dbTemp.Close
db.TableDefs.Refresh
Set qdf = Nothing
Set dbTemp = Nothing
' Unlink the tables
db.TableDefs.Delete strTempTableName
' Delete the temp mdb
strTempDatabase = Left$(db.Name, Len(db.Name) - 4) & " temp.mdb"
Kill (strTempDatabase)
tagExit:
Exit Sub
tagError:
DoCmd.Hourglass False
If Err.Number = 70 Then
MsgBox "Unable to delete temporary database as it is locked."
& vbCrLf & vbCrLf & _
"Import cancelled."
Else
MsgBox Err.Description, vbCritical
End If
End Sub
'****CODE END**** 1 2869
"Robert McEuen" <UN**********@yahoo.com> wrote in message
news:fb*************************@posting.google.co m... Using Access 97 on WinXP
I have data in a DB2 table that I'm trying to get into an identical table in my backend db. Based on volume of data and frequency of download, I'm trying to avoid having a temp table created in my frontend.
I downloaded the temp database code from Tony Toews's site, and altered it to fit my needs (I thought), and it functions properly all the way to the point where the data is inserted into a new table (see below). At that point, rather than inserting into the table created in the temp database, a new table by the same name with the number 1 appended is created on my frontend.
Can someone please take a look and tell me where I'm going wrong? I feel I'm very close, but can't quite get over the hump.
Many thanks in advance!
'****CODE START**** Sub TempTable(strTableName As String) On Error GoTo tagError
Dim db As Database Dim tdf As TableDef Dim dbTemp As Database Dim tdfTemp As TableDef Dim RS As Recordset Dim wrkDefault As Workspace Dim strTempDatabase As String Dim strTempTableName As String Dim fld As Field
' Get default Workspace. Set wrkDefault = DBEngine.Workspaces(0) Set db = CurrentDb Set tdf = db.TableDefs(strTableName)
strTempDatabase = Left$(db.Name, Len(db.Name) - 4) & " temp.mdb"
' Make sure there isn't already a file with the name of ' the new database.
If Dir(strTempDatabase) <> "" Then Kill strTempDatabase
' Create a new temp database Set dbTemp = wrkDefault.CreateDatabase(strTempDatabase, dbLangGeneral)
strTempTableName = "temp_" & strTableName
' Delete the link to the temp table if it exists ' (separate sub, also from Tony Toews) If TableExists(strTempTableName) Then db.TableDefs.Delete strTempTableName End If
' Create the temp table Set tdfTemp = dbTemp.CreateTableDef(strTempTableName)
' Create fields in the temp table identical to those of the original For Each fld In tdf.Fields tdfTemp.Fields.Append tdfTemp.CreateField(fld.Name, fld.Type, fld.Size) Next
dbTemp.TableDefs.Append tdfTemp
dbTemp.TableDefs.Refresh
Dim tdfLinked As TableDef
' Link to the Import tables in the temp MDB Set tdfLinked = db.CreateTableDef(strTempTableName) tdfLinked.Connect = ";DATABASE=" & strTempDatabase tdfLinked.SourceTableName = strTempTableName db.TableDefs.Append tdfLinked
db.TableDefs.Refresh
RefreshDatabaseWindow
' Clear records from destination table DoCmd.RunSQL ("DELETE * FROM " & strTableName & ";")
' Import table from DB2. ' OConnect() is a separate function that creates ' the connection string. ' >>>This is where the FE table with "1" appended is ' being created: DoCmd.TransferDatabase acImport, "ODBC Database", OConnect(), acTable, "MYSYSID.MYTABLE", strTempTableName, False
' Append to back-end Dim strSQL As String Dim qdf As QueryDef Dim nRecAff As Long
strSQL = "INSERT INTO " & strTableName & " SELECT " & strTempTableName & ".* FROM [" & strTempTableName & "];" Set qdf = db.CreateQueryDef("", strSQL) qdf.Execute dbFailOnError nRecAff = qdf.RecordsAffected
' Separate sub to record timestamp, table affected, number recs Call UpdateTS(strTableName, nRecAff)
dbTemp.Close
db.TableDefs.Refresh
Set qdf = Nothing Set dbTemp = Nothing
' Unlink the tables db.TableDefs.Delete strTempTableName
' Delete the temp mdb strTempDatabase = Left$(db.Name, Len(db.Name) - 4) & " temp.mdb" Kill (strTempDatabase)
tagExit:
Exit Sub
tagError: DoCmd.Hourglass False If Err.Number = 70 Then MsgBox "Unable to delete temporary database as it is locked." & vbCrLf & vbCrLf & _ "Import cancelled." Else MsgBox Err.Description, vbCritical End If
End Sub '****CODE END****
Robert,
You are specifically using CurrentDb, which is your local (front-end)
instance.
You need to create a new Workspace object and open the back-end Access
database in it, then perform your table creation in that workspace, if you
follow my drift.
HTH
Doug Hutcheson
--
Remove the blots from my address to reply This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Per |
last post by:
Why cant I use the same temptable name i a stored procedure after i have droped it?
I use the Pubs database for the test case.
CREATE PROCEDURE spFulltUttrekk AS
SELECT *
INTO #temp
FROM...
|
by: Jay Chan |
last post by:
I am trying to use a command line program to run a stored procedure
that generates output in a comma-delimitted format. Somehow, ISQL or
OSQL always wrap the lines at 256 characters. I believe this...
|
by: Jon Ole Hedne |
last post by:
I have worked on this problem some hours now (read many-many...), and I
can't solve it:
In vba-code I create a table with Connection.Execute, and add some data to
it. This table is saved in the...
|
by: John Baker |
last post by:
Hi:
I know this is a strange question, but I have inherited a system where files are copied
and records re auto numbered (as an index field) )frequently, and I am wondering how high
the number...
|
by: MLH |
last post by:
I was able to do this from Access 2.0. It had to be set up, of course,
but it could be done. I'm unsure as to why Access 97 says "Can't find
file"???
...
|
by: wackyphill |
last post by:
If you were doing paging of results on a web page and were interested
in grabbing say records 10-20 of a result set. But also wanted to know
the total # of records in the result set (so you could...
|
by: Extremest |
last post by:
I know there are ways to make this a lot faster. Any
newsreader does this in seconds. I don't know how they do
it and I am very new to c#. If anyone knows a faster way
please let me know. All...
|
by: imani_technology_spam |
last post by:
Right now, a client of mine has a T-SQL statement that does the
following:
1) Create a temp table.
2) Populate temp table with data from one table using an INSERT
statement.
3) Populate temp...
|
by: Eclipse |
last post by:
G'day all
Can anyone explain the difference in the results to me as I don't understand why specifying the directory name in two different ways could give a different answer.
In CODE 1 below i...
|
by: everly |
last post by:
Hi, I'm helping my friends band and making their MySpace. I messed something up and I can't figure out what it is. Everything is all out of whack on the bottom half of the page. The comments...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
| |