Excuse any errors in my description of the problem, as I'm only an
amateur with Access.
I've just created a simple VB application in A2000 that imports a text
file into a table, and works fine. I then used the Microsoft Upsizing
Wizard to create a new SQL database with an MS Access 2000 back end,
and guess what, it not longer works, but stops at the line
db.TableDefs.De lete ("tblData")
The code to the point where it 'stops' is as follows:
Dim objFile As TextFile
' Create new instance of TextFile class
Set objFile = New TextFile
' Set the Path property
objFile.Path = Trim(strDataInp utFile.strFile)
strDataOutputFi le = "c:\acag\te mp\" & Mid(strDataInpu tFile.strFile, 15,
Len(Trim(strDat aInputFile.strF ile)) - 14)
Open strDataOutputFi le For Output As 1
strDataErrorFil e = "c:\acag\temp\E rrors_Data.txt"
Open strDataErrorFil e For Output As 2
Dim db As Database
Dim rstData As Recordset
Set db = CurrentDb
' delete previous table
db.TableDefs.De lete ("tblData")
Can anyone put me on the right track please.
-cicada- 3 1592
"-cicada-" <jo********@a1. com.au> wrote in message
news:11******** **************@ o13g2000cwo.goo glegroups.com.. . Excuse any errors in my description of the problem, as I'm only an amateur with Access.
I've just created a simple VB application in A2000 that imports a text file into a table, and works fine. I then used the Microsoft Upsizing Wizard to create a new SQL database with an MS Access 2000 back end, and guess what, it not longer works, but stops at the line
db.TableDefs.De lete ("tblData")
The code to the point where it 'stops' is as follows:
Dim objFile As TextFile ' Create new instance of TextFile class Set objFile = New TextFile ' Set the Path property objFile.Path = Trim(strDataInp utFile.strFile) strDataOutputFi le = "c:\acag\te mp\" & Mid(strDataInpu tFile.strFile, 15, Len(Trim(strDat aInputFile.strF ile)) - 14) Open strDataOutputFi le For Output As 1 strDataErrorFil e = "c:\acag\temp\E rrors_Data.txt" Open strDataErrorFil e For Output As 2 Dim db As Database Dim rstData As Recordset Set db = CurrentDb ' delete previous table db.TableDefs.De lete ("tblData")
Can anyone put me on the right track please.
-cicada-
What error do you get? Does tblData exist and if so, is it a linked table?
Or perhaps you are trying to delete the actual SQL Server table, rather than
the Access linked table.
Brian,
The error message is 'Path Not Found'
Yes, tblData does exist. In MS Access it shows in the Database window
under the table tab, but does not have the arrow next to it, to
indicate it is a linked table, as is usually the case. The table is
also listed in the SQL database, so having it listed in two databases,
without any indication of linking has confused me.
John Furphy
Brian Wilson wrote: "-cicada-" <jo********@a1. com.au> wrote in message news:11******** **************@ o13g2000cwo.goo glegroups.com.. . Excuse any errors in my description of the problem, as I'm only an amateur with Access.
I've just created a simple VB application in A2000 that imports a text file into a table, and works fine. I then used the Microsoft Upsizing Wizard to create a new SQL database with an MS Access 2000 back end, and guess what, it not longer works, but stops at the line
db.TableDefs.De lete ("tblData")
The code to the point where it 'stops' is as follows:
Dim objFile As TextFile ' Create new instance of TextFile class Set objFile = New TextFile ' Set the Path property objFile.Path = Trim(strDataInp utFile.strFile) strDataOutputFi le = "c:\acag\te mp\" & Mid(strDataInpu tFile.strFile, 15, Len(Trim(strDat aInputFile.strF ile)) - 14) Open strDataOutputFi le For Output As 1 strDataErrorFil e = "c:\acag\temp\E rrors_Data.txt" Open strDataErrorFil e For Output As 2 Dim db As Database Dim rstData As Recordset Set db = CurrentDb ' delete previous table db.TableDefs.De lete ("tblData")
Can anyone put me on the right track please.
-cicada- What error do you get? Does tblData exist and if so, is it a linked table? Or perhaps you are trying to delete the actual SQL Server table, rather than the Access linked table.
"-cicada-" <jo********@a1. com.au> wrote in message
news:11******** **************@ f14g2000cwb.goo glegroups.com.. . Brian,
The error message is 'Path Not Found'
Yes, tblData does exist. In MS Access it shows in the Database window under the table tab, but does not have the arrow next to it, to indicate it is a linked table, as is usually the case. The table is also listed in the SQL database, so having it listed in two databases, without any indication of linking has confused me.
John Furphy
Brian Wilson wrote: "-cicada-" <jo********@a1. com.au> wrote in message news:11******** **************@ o13g2000cwo.goo glegroups.com.. . > Excuse any errors in my description of the problem, as I'm only an > amateur with Access. > > I've just created a simple VB application in A2000 that imports a text > file into a table, and works fine. I then used the Microsoft Upsizing > Wizard to create a new SQL database with an MS Access 2000 back end, > and guess what, it not longer works, but stops at the line > > db.TableDefs.De lete ("tblData") > > The code to the point where it 'stops' is as follows: > > Dim objFile As TextFile > ' Create new instance of TextFile class > Set objFile = New TextFile > ' Set the Path property > objFile.Path = Trim(strDataInp utFile.strFile) > strDataOutputFi le = "c:\acag\te mp\" & Mid(strDataInpu tFile.strFile, 15, > Len(Trim(strDat aInputFile.strF ile)) - 14) > Open strDataOutputFi le For Output As 1 > strDataErrorFil e = "c:\acag\temp\E rrors_Data.txt" > Open strDataErrorFil e For Output As 2 > Dim db As Database > Dim rstData As Recordset > Set db = CurrentDb > ' delete previous table > db.TableDefs.De lete ("tblData") > > Can anyone put me on the right track please. > > -cicada- What error do you get? Does tblData exist and if so, is it a linked table? Or perhaps you are trying to delete the actual SQL Server table, rather than the Access linked table.
If all the tables should be in the SQL database, then the local table
shouldn't be there - so just manually delete it. Normally there should be
no need to delete the table, you can just delete all the records in it, but
if you really need to delete the table, you should make sure the table
exists with the function shown below.
If you need to delete a SQL Server table from an mdb file, then that is a
different matter. Let us know if you need code for that.
Function TableExists(str TableName As String) As Boolean
On Error GoTo Err_Handler
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If tdf.Name = strTableName Then
TableExists = True
Exit For
End If
Next tdf
Exit_Handler:
On Error Resume Next
Set tdf = Nothing
Set dbs = Nothing
Exit Function
Err_Handler:
MsgBox Err.Description , vbExclamation, "Error No: " & Err.Number
Resume Exit_Handler
End Function This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: Gary Bouchard |
last post by:
I have a Visual Basic 6 application that uses MDB or SQL Server
databases.
I was wondering if it was possible via Automation or ADO or some
method, where I could programmicatlly upsize an MDB database to SQL
Server.
I can run the upsizing wizard from within Access to do the upsizing,
and the database converts fine.
|
by: Big Time |
last post by:
I have an Access 2000 DB that I've been considering upsizing to SQL Server
2K. I'm wondering if anyone can share their experiences in upsizing and let
me know of any tips or pratfalls. I've been playing around with the upsize
wizard however not all of my tables have properly converted. None of the
primary keys transfer (I understand this is a limitation) and the whole
thing hasn't really worked the way I thought it would. I have tried...
|
by: Arthur Cheung |
last post by:
I use the upsizing wizard to upsize a db in MS Access2K into MSDE 2000 (Both
are running on my local W2K machine). After answering the wizard questions,
the system returns an error message "Overflow occur" and forced me to cancel
the upsizing process.
How can I solve this problem?
Arthur Cheung
|
by: John |
last post by:
Hi
I am using the upsizing wizard to move a table from access 2000 to sql
server. The table does not get exported and all I am getting is a 'Table was
skipped, or export failed' error in the upsizing report. What is going on?
Thanks
Regards
|
by: Big Time |
last post by:
I have an Access 2000 DB that I've been considering upsizing to SQL Server
2K. I'm wondering if anyone can share their experiences in upsizing and let
me know of any tips or pratfalls. I've been playing around with the upsize
wizard however not all of my tables have properly converted. None of the
primary keys transfer (I understand this is a limitation) and the whole
thing hasn't really worked the way I thought it would. I have tried...
| |
by: Devonish |
last post by:
I am planning to convert an existing Access database which has a back
end
(data tables and relationships only) on a server and a copy of the front
end
(form, queries, reports) on each of about a dozen workstations.
I intend to convert the back end to SqlServer and wish to use the
upsizing
wizard. I am acquiring SSW Upsizing Pro! 2000 which seems to be
recommended in other discussions.
|
by: JM |
last post by:
I'm using Access 2003 to attempt an upsize to SQL Server 2000. The
Upsizing Wizard is giving me tons of problems with error messages like:
1. "Object is invalid. Extended properties not permitted on . . ."
2. "No primary or candidate keys in referenced table . . . that match
referencing column list in foreign key . . . Could not create
constraint.
3. "Incorrect syntax near . . . " (When trying to upsize queries.)
|
by: Jim Devenish |
last post by:
I am continuing my exploration about upsizing to SQLServer from Access
2000.
I have a split database with a front-end and a back-end, each of which
is A2K. I have spent some time in bookshops trying to learn about the
way forward and trying to decide which to buy. The bit I am interested
in is usually at page 900 and I am not sure whether I want to buy the
first 800.
It appears that upsizing creates an Access project as the...
|
by: Wayne |
last post by:
I've just installed SQL Server 2005 Express together with SQL
Management Studio Express on my local machine and I'm trying to upsize
a data mdb to SQL Server using the upsizing wizard. The data mdb is
also on my local machine. I've been at it for a couple of hours now
and I keep getting the same error despite trying everything I can
think of:
Connection failed:
SQLState: '01000'
SQL Server Error: 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, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| |
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 tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| | |