none
MS Sql Database 백업할때 VB에서 진행률을 가져오는 방법이 있나요? RRS feed

  • 질문

  • dim conDB as adodb.connection

     set conDB = new adodb.connection

     condb.open 프로바이더절

     condb.Execute " Backup Datase 디비명 to disk = 파일경로명 "

    으로 했을경우 완료될때 까지 응답없음이 뜨는부분을 해결하고 처리 과정을 보여주기 위한 방법을 찾습니다.

     dim rs_set as new adodb.recordset

     rs_set.open  " Backup Datase 디비명 to disk = 파일경로명" , condb , 커서타입, LOCK타입

    으로 할경우 백업은 진행되지만 끝나는 시점을 알수없습니다.

    방법이 없는건가요?

    2012년 7월 5일 목요일 오전 5:26

답변

  • Program Files\Microsoft SQL Server\80\Tools\Binn
    sqldmo.dll

    에 있는 Microsoft SQLDMO Object Library 참조를 추가하고

    다음 코드를 사용해보세요.

    Imports SQLDMO

    Dim SQL As New SQLDMO.SQLServer Dim WithEvents BK As New SQLDMO.Backup Private Sub BackupDatabase(ByVal DBName As String) SQL.Connect(".", "sa") With BK .Database = "Northwind" .Files = "c:\Northwind.bak" .SQLBackup(SQL) End With End Sub Private Sub BK_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles BK.PercentComplete Me.Progressbar1.value = Percent End Sub


    2012년 7월 23일 월요일 오전 12:28