Visual Basic :: MSAccess 2007 Corruption

VB Project Corruption
Hello All,

Have a question about something I have'nt seen before.

I am using VB6.0 Enterprise SP5 and I have an existing app that I routinely work on and is relied upon by our entire company. Today I made a SIMPLE change (added a msgbox message) and while creating the updated .exe I received a message that there was an error while loading several of my forms. I discovered that everyform with the SSTab control on them failed to load the control.

An example log file reads:

Line 14: Cannot load control sstabInsert.

1.) I checked my System32 directory and the TABCTL32.OCX was present as well as the TABCTL32.OCA.
2.) The project is still referencing the control.
3.) The control icon still appears on the toolbox as well.

I created a blank form and tried to add the SSTab Control to it.
I received the following message:

http://www.amtrustservices.com/commo...rs/error_1.gif

Has this ever happened to any of you?

VB6 Form Corruption
Once in a while I will open up a form and the layout has been totally corrupted. All the controls still exist, but the position (top and left) and dimensions (width and height) have been screwed up.

I think every time this has occurred, the controls have been within a container control (e.g., Picture or 3rd party tab control).

Is this just the nature of the beast? Is the VB6 IDE prone to this kind of problem or do I just have a bad installation?

Database Corruption
My Application was giving me Error. "Database Unknown, or database may be corrupt".

So, i tried open the Access Database.

I am getting the following error while opening Database at Server.

Quote:

You or other user may have unexpectedly quit Microsoft Access while the Microsoft Access table was open. Do you want MIcrosoft Access to attempt to repair the database?.

If i choose, it gives me an error.

"Not a valid password" and "The database "Path" can't be repaired or isn't a Microsoft Access Database File."

Possible Causes?
Solutions?
Can Repair the DB?

Ole Excel Corruption
I am loading an excel file in a separate window during the form load procedure using the following

Code:
Option Explicit
Public excelfile As Excel.Application
........................................
Private Sub Form_Load()
................................
..............................
ole_excel.DoVerb (vbOLEShow)
Set excelfile = GetObject(, "excel.application")
.........................................................
end sub

The form collects data from the serial port using MScomm & dumps it into the excel file.
Whenever the application is closing , I am also closing the excel file with the statement

Code:
excelfile.Quit
Set excelfile = Nothing

My problem is that after closing the application,sometimes the target excel file display(when opened separately) is getting corrupted i.e I can see only the Excel container with some garbage inside.Only when I restart the PC the thing normalises.

This is always happening whenever there is a communication error from MScomm(trapped & displayed with a messagebox)

Maybe the Gurus can help?

Database Corruption Again
Twice in the last two months I have received a "the database could not be opened, it might now even be a database."

or something like that.

I DB has become a multi-user from multiple-apps

clearly, its me because it keeps happening.

Do I need a real DB engine??

I am using the MSJet right now and an Access DB

any input would be great

Database Corruption
I had an error at work yesterday. That my database had been corrupted or that it wasn't a database. I ran a Access repair on it and all was fine.

What exactly happened?

What caused it? Bad programming?

What can I do to minimize these problems?

Of course backing up now and again isn't that bad of an idea

File Corruption
I`m using the WritePrivateProfileString and GetPrivateProfileString API things to write ini type files. But when I program it to attach these files to an email or add these files to zip, the ini file gets corrupted. The only way i can get round it is to pause the program for a few seconds. I think it has something 2 do with the OS still using the files. anyone of a better way around this ?

Thanks

Index Corruption
Hi, i wish someone can help me with this ... any suggestion will be appreciated...

Right now i have an application running on 65 workstations on a novell network. I have to constantly access a foxpro2.6 database using CDX indexes, but the index gets corrupted VERY frecuently...

I use those Foxpro databases because other programs written in foxpro updates them...

Does any body have an idea of why those indexes get corrupted so frecuently?? Could it be the way i am doing the access to the database?? I am using DAO... What recomendations would u give?? Do you think using IDX instead of CDX could help?

Thank you!!!!!!

Mary

Text File Corruption?
I'm writing an app that will open a file, take each line one at at aime, do some string manipulation, and then write the line to another file. However, when I write the output file, it seems corrupted. THe output is exactly 1/2 of the input file though, if htat helps.

Dim inputfile As String: inputfile = Path & "Creation Scriptsepaseo_Template.txt"
Dim OutputFile As String: OutputFile = Path & "Creation Scriptsepaseo.txt"
Dim intFileNumber As Integer: intFileNumber = 1
Open inputfile For Input As #intFileNumber
Dim intFileNumber2 As Integer: intFileNumber2 = 2

Open OutputFile For Append As #intFileNumber2
Dim inputVar As String: inputVar = ""

While Not EOF(intFileNumber)
Line Input #intFileNumber, inputVar
Print #intFileNumber2, inputVar
Wend
Close #intFileNumber
Close #intFileNumber2

the output looks like this:

‪扏敪瑣›䐠瑡扡獡⁥健獡潥䥟獮慴汬††捓楲瑰䐠瑡㩥㤠ㄯ⼰〲㌰ㄠ㨰㔴㈺‸䵁⨠⨪⨪⼪਍䙉䔠䥘呓⁓匨䱅䍅⁔慮敭䘠佒⁍慭瑳牥搮潢献獹慤慴慢敳⁳䡗剅⁅ 慮敭㴠丠攧慐敳彯湉瑳污❬ഩऊ剄偏䐠呁䉁十⁅敛慐敳彯湉瑳污嵬਍佇潢⹝䙛

Corruption In High Places
Good Morning:

I have a project that has apparently become corrupt....at least one of my forms has. When I try to run it, VB crashes and I find a text file telling me that I have a bunch of invalid file references.

Do I have to rebuild the form from scratch? Are these references stored somewhere where I can access them?

Am I up the proverbial creek without a paddle?

Any help would be appreciated...very, very much!!

From a rookie,

Mertz

Help In Access Database Corruption
I am frequently encountering database corruption in the Access database i deployed in my office. How can i prevent this? Please help!

Access Table Corruption ?
Good day,

Here is a screenshot : http://img162.imageshack.us/img162/2...ruptionkq6.jpg

I am using Access with DAO. My application is used by thousands of users. Three of them have experimented this problem. Let me translate the french screen. The user receive this error message MsJet about the fact that the program can't update the table because two simultaneous users are trying to update (it is a local app, one user per DB).

Then when I open the DB, I receive this screen, with the #Error message in some fields. The table is corrupted and I have to delete and reimport the table in order to fix the issue.

Anyone has experimented this problem ? Could it be a .AddNew or .Edit, without an .Update in a function where there is a On Error Resume Next function (one of my theory, I am not using Resume Next in many functions) ?

Many thanks

Image List Corruption
Hi

On my form, I have an image list, containing 3 ico images. If I close that form, re-opn it, and look at the properties of the image list, the images have been corrupted. I've attached a screen shot of the before and after.

Any ideas about why this is happening, and how to avoid it ?

Thanks
Robert

Operating System Corruption
Ok guys,

Put on your thinking caps, I got a doozy.

For the past 8 months, we have been having a problem with operating systems getting corrupted.

When I say corrupted, what appears to be happening is tons of files start getting corrupted. The windows file protection kicks off and tries to replace the corrupted system DLL's with backup copies, but its not enough.

The system starts to lose stability. Installers start firing up like crazy. The control panel loses it's icons.

Directories are renamed crazy things like "####" and "$$$$$$$$"

There appears to be some correlation to a product called "Rumba" from a company called Netmanage.

Rumba is a mainframe access control. I use it in my VB applications to access mainframes.

Whenever we deploy an application that is compiled by me, that uses this control, we see this corruption problem.

However, when the source code is given to another VB developer and HE compiles it, the corruption doesn't occur.

I have been talking with a number of Microsoft Engineers about this problem. We ran a root kit detector and discovered that it appears that some automated installer is starting up, and is probably responsible for the corruption.

We were never able to find the file that the logs said was causing the corruption.

Today, we had the problem again. Strangely, the machine that got corrupted didn't have Rumba or any applications that used it, installed. We've seen 30 machines crash over the last 8 months, but this is the first one that didn't have rumba installed on it.

The administrator noticed a file in the root of the K drive called "m.exe".

I'm attaching it to this post. I have renamed it from m.exe to m.x to avoid accidental execution.

Here are my questions. Has anyone seen or heard of anything like this? Does anyone have the ability to look at this EXE and see what the heck it's doing, or learn anything about it's "nature".

If anyone can help me solve this they will have succeeded where every engineer, including 3 from Microsoft, has failed.

Added green "resolved" checkmark - Hack

Database Corruption Multiuser
I have a program that has been used for 2 yrs with Access 2000 and VB 6 and over 30 users at a time. No problems until 40+ users connected, then corruption.

I do an hourly backup of the database and everynight repair it, however in the past 2 weeks, if the database gets corrupted, when I repair it, I get the Msysobject Error table, and a few of my tables have lost massive amounts of data. Some memo fields are there, but have been replaced by ######.

This makes no sense to me why this is happening. I will say also that 1 user keeps getting kicked off the network while in the program. I know this corrupts the database, but why is it losing the data???? I have had network loss before and no problems repairing. Has anyone had this happen to them?

Data Base Corruption
What are the posibilities to cause the error 'Invalid Database Format'(Database

corruption) in Ms-Access database ?

Corruption In Image Control
My program loads picture files into an image control from a specific directory every 2 seconds. Once it reach the end, it cycle to the beginning and reload the first pictures in again. After several cycles, it just crash and load a white image into the image control. Anyone experience with this before?

Frequency Of Corruption In Access?
Here's my situation:
-Access 2000 Front End
-Oracle Back End
-Citrix server controlling access to the front end .mfb file.
-People will be using the database daily with multiple users accessing simultaneously.

Here are my questions:
1. With what frequency have any of you experienced file corruption resulting in a substantial amount of downtime with Access 2000 files? ( By substantial I mean at least half of a day. )

2. If the problem with corruption is a common one in Access 2000, would upgrading to Office 2003 have any impact?

3. Is there enough justification, as far as concerns for reliabililty, to upgrade the front end to a stand alone application?

The reason for my questions is that recently I have been experiencing problems with corruption of my Access 2000 front end files and I am trying to determine if there is any benefit reliability-wise to moving the database front end out of Access. All comments/experiences are welcome.

Thanks,
J McCormick

Check File Corruption
Is there a way for vb to check if a file is corrupt?

The problem i m facing is that some files i downloaded by my ftp program is corrupt. I would like to add some codes to check whether the downloaded files are corrupt.

Thanks in advance

Database Corruption Question
I have a VB6/A2K database.  This morning my A2K database somehow got corrupted.  When this happened the database would not open to try to compact and repair.  I found a link by searching the site (what a great site) and found links that enabled me to fix my database using the Jet Repair Utility from MS.

My question is this, how did this happen or is there even an explanation?  I was getting error 3343 Unrecognized database format and I read that the cause was that it typically accurs when the Jet database was improperly shutdown.

I only connect to the DB in code when I need to read or write data, and I don't leave the connections hanging open.  Any insight as to how I can prevent this is greatly appreciated.

Text File Corruption - But How?
OK, I'm lost big style on this...

Synopsis

Generated text files (which are formatted in a specific way) producing absolute rubbish.

The Problem

I've got x amount of machines producing text files locally. When the machine connects to the server - they will upload the file to the server (Dial-Up or better connection) using FTP. Once uploaded, a SQL Server job is invoked that uses a BULK INSERT to process the file.

The text files contain specific information that is added to the file when required, e.g. when a specific action is invoked. If the text file doesn't exist then the text file is created with the first entry - otherwise the data is appended to the file. During normal operation the text file will look something like this.....

/1000090/000000000001//20040416/13:55:47/0/1
/1000090/000000000002//20040416/13:55:48/0/1
/1000090/000000000002//20040416/13:55:48/0/1
/1000090/000000000001//20040416/13:55:49/0/1
/1000090/000000000003//20040416/14:06:14/0/1
/1000090/000000000003//20040416/14:06:14/0/1
/1000090/000000000003//20040416/14:06:14/0/1
/1000090/000000000001//20040416/14:06:15/0/1
/1000090/000000000001//20040416/14:06:18/0/1
/1000090/000000000002//20040416/14:06:19/0/1
/1000090/000000000003//20040416/14:06:19/0/1
/1000090/000000000002//20040416/14:06:20/0/1

However, a very small handful of machines are uploading completely different information. For example, this was the output from one machine...

[start]
o n M a n a g e r t @ vk @º9 W DependOnService T a p i s r v d vk ¹9
Medias
   vk
€ u DependOnGroup i H vk
Èº9 s ObjectName S c L o c a l S y s t e m r ¸9 À¸9 à¸9 ¹9 ¨¹9 º9 xº9 º9 »9 h vk < 8»9 2 Description 1 0 @ C r e a t e s a n e t w o r k c o n n e c t i o n . ÿÿÿnk °Ù?M‘9Ã H¸9 ÿÿÿÿÿÿÿÿ © è ÿÿÿÿ < `
   Parametersl n x vk
D ¼9 p ServiceDll m s H % S y s t e m R o o t % S y s t e m 3 2 r a s m a n s . d l l vk     ` p¼9 CustomDLLü Hý h C : P r o g r a m F i l e s M S N M S N C o r e F i l e s c u s t d i a l . d l l 0 vk € IpOutLowWatermark H Xº9 Ø»9 H¼9 Ø¼9 ½9 0 vk € IpOutHigh
[finish]

OK - let's add some parameters to the mix. Firstly, each machine is running the same OS, same version of the software and running the same configuration, e.g. they cannot download / upload any other software. Secondly, this only occurs with a very small subset of machines (with the problem not generating any specific pattern and nor is happening on one specific machine). Thirdly, I'm 100% sure its not the upload mechanism (which uses the WININET and InternetWriteFile function) as I'm using a binary upload routine as opposed to a text upload. Finally, the machines are within an enclosed system and therefore are not liable to contract viruses, etc. with the machines making scheduled connections when required.

Now if the machines were producing absolute gibberish then at least I come eliminate some options - however, where its getting that data from, e.g. "IpOutLowWatermark" ? - especially considering there is only one routine to write data to the file and I know exactly what that method is writiing - well simply I haven't got a clue.

So, here's my thoughts...

In VB text file generation doesn't get any easier right? So, I don't think its a problem with the writing the file + I'm using the standard Open File for Append method not the FSO.
The Wininet has worked fine for me over the last 2 years and never has this behaviour appeared before.
I'm using a binary upload on a text file, like what possibly could go wrong with that considering this particular function has been used on files up 5Mb is size.
Once uploaded the file is opened using SQL Server BULK INSERT (again, a tried and tested function) so I cannot imagine that this routine is rewriting the file.

The Question
In short, the problem seems that somewhere between this text file either being created or appended to - then uploaded to the server (either using Dial-Up Modem or better) and then processed using a SQL Server job....its being corrupted. So the question...has anyone else experienced this kind of behaviour before or any ideas about why this is occuring and if so, what ways forward do I have?

Cheers for reading the Question and thanx for any responses...

improvise, overcome, go home
Microsoft MVP Visual Basic 2004, 2005, 2006, 2007 & 2008

Check out Drydo's Blog for infrequent, but bizarre code samples.

Help File Index Corruption
Hello there,

Is there a way to rebuild a VB6 application's Help File?

I'll appreciate your help.

Luis

Text Corruption In A Listview Control
I am developing s/w in VB6 that has a screen that is split into two listview controls. As the s/w is to be used for a 15" monitor as well as a 17" monitor the form dimensions as are large as they can go.

When a list item is too long in length to be displayed, I am able to view the remainder of the by dragging the scroll bar to the right. However, if the selected item in the list is too long for the display then the text becomes distorted and unreadable.

What is causing this?

Question About Flash And File Corruption
Hey everyone .

Just a quick couple of questions. The first one is my form for my game that I am doing. When I open it, its fine and I can view the code. However when i click on the properties tab to see the properties and the form itself, which contains my objects. Visual Basic retunrns a unknown error and sends a error report to microsoft and closes down. Does this mean the file for my form is corrupt or is there a solution.

The next question is me and my group want to have an introduction for our game and we want it to be in flash. Is it possible to put a flash animation into a VB program. If it is could you point me in the right direction.

Many thanks

Chris

Problem In Access Database Corruption
I have deployed more than two systems in my NT4 server which have linked tables from my main system. But I always encounter database corruption in my main system everytime I load the other systems which have linked tables in the main system. How can I prevent this. Please help!

Repair Winsock After Corruption By Spyware
Hi,

I have been searching the web for a way to fix winsock programatically after being corrupted by spyware (I think WebHancer does this). While uninstalling it manually would do the trick, I need a way to fix (for win 9x, ME, 2003 and XP) it through VB.

Any help is apriciated. Thanks.

Access Corruption Problems - Experts Only
hi all,

i am building applications using VB6 with Access 2K database and ADO, well the access is fine and cheap but it is making me a headache when used by multiusers.

My database code is simple., like the following

'db as connection

VB Code:
db.begintransedb.execute ("delete * from invoices where code = 13")db.committranse

now the questions:

1 - is this code problematic when executed by many users on the same dbase file thru a LAN

2 - How could i check to see if anyone is writing to the same table in the same time.

3 - is there a problem in concurrent readings from the same table., = many users are performing select sattements on the same table in the same time.??

4 - Can anyone advise me how to protect my dbase from multiuser corruption , as i am facing now a lot of (Unrecognized database Format) with the access.

5 - i want to make a backup from my access database, should i copy it by using (FILECOPY) or should i make a replica

6 - what will happen if i tried to backup the database while someone is doing anything in.

7 - how could i check that i am the exclusive user on this database

8 - how could i make a replica from an access database with VB6 Code ?

Well i know this is lenghty and hard but i am open to any ideas and willing to share this problems and solutions with other people along with my self

THX in Advance

BST RGDS

Socket File Corruption [RESLVD]
Allright, this is my first attempt at sending a file over winsock ... heres my code

CLIENT

Code:
Private Sub sendPicture(strFileName As String)

Dim picMain As New StdPicture

Dim fileLEN As Long
Dim byteChunk(999) As Byte

Open strFileName For Binary As #1

sckSocket.SendData "[FIS]" & LOF(1)

fileLEN = LOF(1)

While (fileLEN >= 0)

DoEvents
Get 1, , byteChunk()
fileLEN = fileLEN - 1000

If (fileLEN > 0) Then

sckSocket.SendData sndChunk()
sckSocket.SendData byteChunk()

Else

sckSocket.SendData endChunk()
sckSocket.SendData byteChunk()

End If
Wend
Close #1

MsgBox "Send complete!"
End Sub

SERVER

Code:

If (Left(Data, 5) = "[FIS]") Then

Data = cutLData(Data, 5)
getFileIndex = 0
totalSize = Data
ReDim getFile(0 To (totalSize + 2000)) 'need fix +2000, keeps giving (out of bound error)

With frmVote 'ignore me, display only

.Show
.frameVote.Visible = False
.frameGetFile.Visible = True
.lblTotalSize.Caption = "Total size: " & Val(Data)
End With

ElseIf (Left(Data, 5) = "[FIL]") Then

Data = cutLData(Data, 5)

For i = 1 To Len(Data) - 1
getFile(getFileIndex) = Asc(Mid(Data, i, 1))
getFileIndex = getFileIndex + 1
Next i

frmVote.lblGotSize = "Got: " & getFileIndex & " bytes"

ElseIf (Left(Data, 5) = "[FIE]") Then

Dim intTrim As Integer

intTrim = totalSize - getFileIndex
Data = cutLData(Data, 5)
Trim Data

For i = 1 To Len(Data) - 1 - (intTrim) '(OOB) here, ***?
getFile(getFileIndex) = Asc(Mid(Data, i, 1))
getFileIndex = getFileIndex + 1
Next i

Open "c: est.jpg" For Binary As #2
Put #2, , getFile
Close #2
frmVote.lblGotSize = "Got: " & getFileIndex & " bytes (done!)"

End If

When i get the picture on the other side, its really corrupt... I mean the effect is cool and all but its not what I'm going for

What am i doing wrong, AND am i doing this really inefficently?
I tried to poke around the forum for sending around files but didnt really come accross anything good so i came up with my own way of doing it...

some variables are declared globaly, so just assume they work.

Any help would be good, thanks!

Table Corruption In Access Database.
A table in my database keeps corrupting. The error I get when trying to rebuild is: Could not find field 'Description'. The rebuild fails. and I have to restore the database. This has happened twice in the last 2 weeks.

If I try to open the table in access 2000 I get a message:
This object requires a newer version for the microsoft jet database engine.

The table has about 150 fields. I have no idea as to what might be causing this corruption.

Access2000 And Novell Data Corruption!
Hi All,

I have wrote a VB6 application and I have used the same data access routines in other systems that work fine. The problem I am having is on a Novell network, I have increased the file locking but after the system has been used for 2 or more hours the database starts to get corrupt. I am really well and truely stuck with this one.

Can someone please help!

Cheers

Jigabyte!

PS its an Access 2000 database and Novell 5.1 server!

Access 2000 Corruption Problems
I have an Access Database which is using linked tables to another access database (to make upgrades easier).

The database was initially built in Access 97 and worked perfectly.
The database was converted to Access 2000 and the majority of the application again works fine.

The problem occurs when I try to re-link some tables in the application. Four tables are being linked, however, one (named "tblWorkProducts" always becomes corrupt. The code crashes and the database cannot any longer open or delete the link. The first time the table is linked it works ok, however, you still cannot open the table.

At first I thought perhaps it was the LAN causing a problem, until I copied it to the C Drive.
Then I thought I had the database under to many sub folders, but this is not the case, its running off the root of the C drive with a short filename.
I then thought perhaps the object was corrupt. I created a new database, imported all "Good" objects and recreated the table from scratch - no luck

As Ive said - the filenames, database architecture, etc are all identical between the 97 and 2000 versions, yet the 2000 version persists in falling over.

Can anyone please help? Has anyone else had similar problems. Access 2000 seems very buggy compared with 97, however, I must use it as many clients only have 2000 on their workstations. I also sometimes get the dreaded "Cant read referenced Memory" errors in the Access 2000 version which bombs you completed out of the Application.

Random Corruption In Access Database
I have an Access 2000 database which has linked tables to another Access 2000 database. I have a form with a common dialog control to browse for the backend and re-link the tables. It does this by deleting the original link and re-linking.

For some unknown reason, on some occassions when I re-link the tables, I get an error message 2001 - You cancelled the previous operation. This also occurs if I try to view a table. If I got into the Tables screen in the Database Window, the tables cannot be opened nor deleted. The database is then completely corrupted.

This happened a few weeks back and I somehow fixed the problem, but it has again returned. At first I though maybe the database was under too many sub folders, but that was not causing the problem. I have an access 97 version of this database, and this message has never been encountered.

Can anyone please help. I am completely out of ideas. I have tried the "find the corrupt object, import into a new db and recreate the corrupt object". This is how I got around the problem the first time, but the same problem has again returned.

Please Please Please can someone help....I am tairing my hair out trying to fix this seemingly unfixable problem!

Many Thanks in anticipation....

Unregister Copy Register Reboot Corruption
I am running a DOS batch job to copy a new version of a DLL to a remote computer.

Basically, what happens is:

Unregister DLL
Copy new version DLL over the old DLL
Register new DLL
Reboot Server

When the new DLL is registered, it appears to be correct (new version number etc), but after the Server is rebooted, the DLL is corrupt (no version number)

The servers are NT4 and Windows 2000. The problem doesn't happen all the time, and works 90% of the time (50 failed out of 900 and not the same servers each time)

Is there something I should be doing to flush the HDD cache or should I delete the old DLL first, or perhaps open the DLL to force the update from cache to the HDD???

Any ideas/suggestions would be much appreciated.

DS

Downloading Large Files Through Winsock Causes Corruption
Hi All,

I have an application that I have written that downloads updates from a remote server, these updates are movies, powerpoint files etc using Winsock over TCP. Everything works fine until the file I download is > 16.5mb and after that the file becomes corrupted in certain areas (maybe the odd missing byte here of there) which obviously renders them useless in powerpoint as they cannot be recognised.

Any ideas before I have to re-write the whole program using another method (which is my worst nightmare!)

Cheers

Reading Text Files And Checking For Corruption
Morning all !

I'm writing a program that reads x amount of text files.
Each file has a header record, a bunch of detail records and then a footer record.

Due to the nature of these files it is possible that some can be corrupted.
Problem is they could be corrupted anywhere within the file.

Now ... I can code this with loads of IF THEN statements as I pluck each field out from each row, but I know there must be a neater way of checking them record by record, probably using a routine of some kind.

Has anyone out there done anything similar ? I'm just looking for a "neat" a way as possible really, rather than my old archaic way of doing things.

Thanks ....

Extensive Operating System And Database Corruption
Greetings,

I have been having a problem that has been plaguing me off and on for over a year now. I am seeing extensive operating system corruption, and recently, database corruption.

I have been in contact with Microsoft and other vendors and have been unable to resolve the problem.

The symptoms are as follows:
*) File system becomes corrupted. All types of file, including system dll's are deleted, or their contents are replaced with ASCII characters like !@#$ New (empty) directories are being created with the same ASCII characters. This corruption will extend to files on an FTP site, if that FTP site is open in Internet Explorer, and to mounted drives if they are mounted to the client that becomes corrupted. Once the corruption occurs the system will not boot again if it goes down. The system will stay up, but gets increasingly unstable as the corruption becomes more extensive.

*) Database records get corrupted (on a separate server. SQL Server 2000 Enterprise Edition). This one is very strange. The database itself is fine. The records themselves are fine, but a single field called WorksetId is getting corrupted. The value of this field is being changed to the name of a running application, some ASCII characters, and a running number.

Example: I run an application called "ftpSweeper". 2 minutes later, 200,000 records in the database have had their WorksetId set to !#errftpSweeper_1 through !#errftpSweeper_200000. This particular application (ftpSweeper) has NO database access in it. It doesn't have any ADO or RDO libraries linked, it makes absolutely NO calls to a database whatsoever.

However, there are other applications (built by me) that do have database access. However, none of them are named ftpSweeper or are even aware of ftpSweepers existence. There is no tie in between that application and other applications that do database access. The value being inserted is too much of a coincidence. But I, for the life of me, can not figure out how every single record in a table is being updated with that value.

The frustrating thing about the situation is that none of these problems occur during development and testing. They only occur when rolled out to the production environment.

This has all the hallmarks of a virus. However, no virus has been detected. I have scanned my development machine with Symantec, AVG, ActiveScan from Pandasoft, and Sophos. The deployed environment is under the protection of Symantec corporate anti-virus.

There is obviously something very seriously wrong somewhere. I have had a number of engineers go through my code, both inside my company, and outside my company. My code has even been reviewed by Microsoft. Nobody can find anything wrong with it. I feel it's safe to say that there is nothing wrong with the actual code itself.

Which leads me to believe there is a problem with the environment or libraries somewhere.

What could possibly cause a situation like this? Bad libraries? Too many ADO connections? Memory leaks?

What can I do to further diagnose this problem?

I am using VB6 for the majority of the development. VB.NET is used in probably 3% of the applications, and a third party tool is being used for access to a 3270 terminal.

Text File To Access '95 Import Corruption
Using Access '95, I have created a very simple database that has only 1 field.  I am trying to import a text file into this database.  One line of the text file equals one record in my database.  I have written the code behind a form's button in VB6...and it works... sometimes.  I may have to import the text file 2-4 times before it imports correctly. ** Note: everything remains the same, no changes have been made to the text file, database or coding... just the import routine is performed several times.  The first thing I do is clear out the database... then the import is done. Here's the coding I'm using.  Any help is greatly appreciated.

On Error GoTo ErrorHandler  'Enable error handling routine
FileLoc = "S:UsersMisVtd8PackList"
cmdImport.Enabled = False
cmdPrint.Enabled = False
Label3.Caption = " Clearing database    Please wait..."
'Delete everything out of the database (FileLoc + "Packlst.mdb")
DataEnvironment1.Command1
Label3.Caption = "   Accessing File     Please wait..."
Set FSYS = CreateObject("Scripting.FileSystemObject")
Set F = FSYS.GetFile(FileLoc + "packlst.txt")
Set TStream = F.OpenAsTextStream(ForReading, TristateUseDefault)
' Count records in the file
RC = 1
Do While TStream.AtEndOfStream = False
    TS = TStream.ReadLine
    RC = RC + 1
Loop
RC = RC - 1
TC = RC
' Reset to the beginning of the file...
Set TStream = F.OpenAsTextStream(ForReading, TristateUseDefault)
RC = 1
'  Read each record from the text file and write to the database "record" field
Do While TStream.AtEndOfStream = False
    Label1.Caption = "Percent Complete: " + Str(Int((RC / TC) * 100)) + "%"
    Label2.Caption = "Record Processed: " + Str(RC)
    Label3.Caption = "    Importing Data     Please wait..."
    frmCPAPack.Refresh
    DoEvents
    Adodc1.Recordset.AddNew
    TS = TStream.ReadLine
    'Search for the "{" from mainframe's signed field
    'and replace with a zero.
    Brce = Mid$(TS, 92, 1)
    If Brce = "{" Then
        part1 = Mid$(TS, 1, 91)
        part2 = Mid$(TS, 93, 14)
        TS = part1 + "0" + part2
        Adodc1.Recordset.Fields("Record") = TS
    Else
        Adodc1.Recordset.Fields("Record") = TS
    End If
    Adodc1.Recordset.Update
    RC = RC + 1
Loop
Adodc1.Recordset.Close
cmdPrint.Enabled = True
msg = "Import Successful! " + Str(TC) + " Records added."
MsgBox msg, , "Import Status"
cmdImport.Enabled = False
Label3.Caption = "Import Successful!"
Exit Sub
ErrorHandler:
    MsgBox "The operation resulted in the following error " & vbCrLf & Err.Description
    Cleardisplay = True

Thanks.

Memo Field Corruption In Access 2000
Hi all.

I thought I'd throw this one out there and see if any thoughts on how a memo field can get thoroughly trashed ... I have an Access DB in an multiuser environment where one user writes a record with a memo field in it thru ADO to another Access DB. Another perosn read that record and updates it. Somehow the memo field is getting whacked such that when attempting to access the record thru the actual table Access throws off Jet DB error message boxes ... Any thoughts on how a memo field can get corrupted like this? BTW, compact & repair corrects the memo problem so that at least the record can be accessed once again ...

Thanks!

- Mike

Access Mde File Corruption After Closing In SUSPECT State
I have a database corruption problem for a multiuser application. I am using Access 2002 (Jet 4) as a backend mde file with all connection and user interface via ADO and a VB6 application. We are using Windows 2000 PCs on an NT4 platform with SP3 installed.

I have found that when I run the MS jet utility LDBView.exe the mde file is left in a SUSPECT state by each user when they log off. I close the database connection using the code below.

Public Sub ADODBCloseDatabase()

On Error GoTo ExitError

    ' close the database file
    If dbQADMObject.State <> adStateClosed Then _
                                                               dbQADMObject.Close

    If dbQADMObject.State = adStateClosed Then

        ' always gets here
        Set dbQADMObject = Nothing

    Else

        ADODBWriteError

        MsgBox "ERROR: The RealFS database file could not be closed. Please inform the Administrator.", vbExclamation, "RealFS - Close Database"

    End If

Exit Sub

' never exits on error
ExitError:

    MyMsgBox "ERROR (" & Err.Number & ") " & Err.Description & " There was an error closing the RealFS Database. Please inform the Administrator.", vbExclamation, "RealFS - Close Database"

End Sub

I have made sure I close all recordsets and set = Nothing

Closing a database seems a simple process.

Can anyone help here?

Thanks in anticipation

Mike McGinty

Help! Form Loading As Module, Project Corruption [Resolved (kinda)]
These forums have been extrememly useful when I run into a jam, so I'm hoping somebody will be able to help me this time. Here's my problem:

When I try to open my vbp file, only one form loads, and I recieve an error for the other 10 or so "The project file .... contains invalid key <formname> -- Continue Loading Project?"

I am able to open all of these forms by their respective frm files. All but one (the one I had put the most work in, of course). When I open this one form, it opens as a module instead, and I can only view the form code, not the design. As well, additional code has been added to the top of the form. Ie. The form is completely messed.

I'm not quite sure what caused all this to happen. One second everything was working great, the next it's all fallen apart! Unfortunately, my backups are no good either as I had just updated them all with my latest (corrupted) version. I have put 4 months into this already, and the thought of having to redo all this work has me wanting to go back to bed with the covers over my head. Please, if anyone has any ideas (what happened? how do I fix it? etc.) I would certainly greatly appreciate them.

Thanks a lot.

-=VoiÞ=-