Attribute VB_Name = "Module"
' ***************************************************************************
' Copyright (C) 1991-2003 SQLDev.Net
'
' $BeginHeader$
'
' @file@:              BulkCopyEvent.bas
' @author@:            Gert E.R. Drapers (GertD@SQLDev.Net)
' @description@:       Example: Using the BulkCopy object with events in SQL-DMO
' @remarks@:
' @created@:           2003-07-29
' @lastsaved@:         2003-07-29
'
' update history:
'  @version@   @initials@      @updatedate@    @release@       @description@
'  00000       GED             2003-07-29      v1.0.0.0        created
'
' @EndHeader@
' ***************************************************************************
Option Explicit

Public Sub Main()
    On Error GoTo errHandler
        
    Dim oBulkCopy As BulkCopy
    Set oBulkCopy = New BulkCopy
        
    Call oBulkCopy.Connect("(local)\dev", "", "", True)
    
    Call oBulkCopy.ExportTableToFile("pubs", "sales", "c:\sales.bcp")
    
    Call oBulkCopy.ImportTableFromFile("pubs", "sales2", "c:\sales.bcp")
    
    Call oBulkCopy.Disconnect
        
    Exit Sub
    
errHandler:
    Debug.Print "Error " & Err.Number & " " & Err.Description
    Resume Next
End Sub