My database is crupted

Question

Post reply

My database is crupted

enkbteam

Newbie

Points: 4
More actions
April 15, 2003 at 11:03 am

#159091

I need to do bulk copy any help on script for SQL 7 version.

Viewing 8 posts - 1 through 7 (of 7 total)

You must be logged in to reply to this topic. Login to reply

Rajesh Patavardhan SSCrazy Points: 2801 More actions · Answer 1

One option would be to use Bulkcopy object of Sql DMO. If you need code sample let me know.

enkbteam Newbie Points: 4 More actions · Answer 2

That will be great. Thanks.

One option would be to use Bulkcopy object of Sql DMO. If you need code sample let me know.

[/quote]

Rajesh Patavardhan SSCrazy Points: 2801 More actions · Answer 3

Dim usrServer As SQLDMO.SQLServer

Dim usrBcp As SQLDMO.BulkCopy

Dim lngRowsImported As Long

Set usrServer = New SQLDMO.SQLServer

usrServer.Connect "<SERVER>", "<USER>", "<PASSWORD>"

Set usrBcp = New SQLDMO.BulkCopy

With usrBcp

.DataFilePath = "TextFile.Txt"

.ErrorFilePath = "TextFile.Err"

.LogFilePath = "TextFile.log"

.DataFileType = SQLDMODataFile_SpecialDelimitedChar

.RowDelimiter = vbNewLine

.ColumnDelimiter = ","

.ImportRowsPerBatch = 500

.MaximumErrorsBeforeAbort = 100

End With

lngRowsImported = usrServer.Databases("<DBNAME>").Tables("<TABLNAME>").ImportData(usrBcp)

---------------------------------------------

Note that this is fully customizable. You can change the options depending on the text file format. Currently this assumes that it uses , as field separator and newline character as row separator.

---------------------------------------------

Hope this helps

enkbteam Newbie Points: 4 More actions · Answer 4

Thanks for your help. I have follwoing question.

lngRowsImported = usrServer.Databases("<DBNAME>").Tables("<TABLNAME>").ImportData(usrBcp)

Will this work for all the tables and objects in the database?

Thanks.

Rajesh Patavardhan SSCrazy Points: 2801 More actions · Answer 5

Sorry I forgot to mention.

No it will not work for generic tables.

You need to replace <SERVER> <DBNAME> <USER> <PASSWORD> and <TABLENAME> with the values specific to your environment.

enkbteam Newbie Points: 4 More actions · Answer 6

So i have this will work for each table at a time?

So if i have 200 tables I need to run this 200 time?

Thanks.

Rajesh Patavardhan SSCrazy Points: 2801 More actions · Answer 7

<<So if i have 200 tables I need to run this 200 time?>>

Yes. This works one table at a time.

If you have 200 tables then you need to have 200 text files also(one for each table).

However you can write code to loop through each table in the Tables collection.

-----------------------------------------

For each usrTable in usrServer.Databases("<DBNAME>").Tables

Set the parameters for usrBcp

usrTable.Importdata(usrBcp)