How can we help you today? How can we help you today?
negatyv
Activity overview Badges (0) Posts (1) Comments (1)

Activity overview

Latest activity by negatyv

hello Something i have written yesterday, may be helpfull. It checks DB against backup from current day (assuming that you are using default naming) and sending mail about effect and attachment with output of SQL Data compare. br Mike Dim ArgObj,fileName,cmd,var2, ReturnCode, ReturnSubject Dim today Set ArgObj = WScript.Arguments Set WshShell = WScript.CreateObject("WScript.Shell") today = Date fileName = "dbname_db_" & Year(today) Year(today) IF Month(today) < 10 then fileName = fileName & "0" & Month(today) else fileName = fileName & Month(today) end if IF Day(today) < 10 then fileName = fileName & "0" & Day(today) else fileName = fileName & Day(today) end if fileName = fileName & "0100.bak" 'MsgBox filename cmd = """C:\Program Files\Red Gate\SQL Data Compare 7\sqldatacompare.exe"" /verbose /force /out report_dbname.txt /ignoreidentical /db1 dbname /b2:D:\BACKUP\dbname\" & fileName & " /allowidenticaldatabases" ReturnCode = WshShell.Run(cmd, 1, True) If ReturnCode = 0 Then ReturnSubject = "Comparing Sucessful : " & Date ReturnMessage = "Comparing of database with backup file was successful, see attached file for details." Else ReturnSubject = "Comparing Unsucessful : " & Date ReturnMessage = "Comparing of database with backup file was unsuccessful, see attached file for details, final error code below" & chr(10) & "Error Code: " & ReturnCode & chr(10) If ReturnCode = 1 Then ElseIf ReturnCode = 1 Then ReturnMessage = ReturnMessage & "General error code." ElseIf ReturnCode = 3 Then ReturnMessage = ReturnMessage & "Illegal argument duplication." ElseIf ReturnCode = 8 Then ReturnMessage = ReturnMessage & "Unsatisfied argument dependency or violated exclusion when user runs command line. " ElseIf ReturnCode = 32 Then ReturnMessage = ReturnMessage & "Value out of range." ElseIf ReturnCode = 33 Then ReturnMessage = ReturnMessage & "Value overflow." ElseIf ReturnCode = 34 Then ReturnMessage = ReturnMessage & "Invalid value." ElseIf ReturnCode = 35 Then ReturnMessage = ReturnMessage & "No / invalid software license or trial period has expired." ElseIf ReturnCode = 62 Then ReturnMessage = ReturnMessage & "No objects (tables or views) are selected for comparison." ElseIf ReturnCode = 63 Then ReturnMessage = ReturnMessage & "The databases being compared are identical with respect to the data included in the comparison." ElseIf ReturnCode = 64 Then ReturnMessage = ReturnMessage & "General command-line usage error." ElseIf ReturnCode = 65 Then ReturnMessage = ReturnMessage & "A database error occurred." ElseIf ReturnCode = 69 Then ReturnMessage = ReturnMessage & "A resource or service required to run the tool is unavailable." ElseIf ReturnCode = 73 Then ReturnMessage = ReturnMessage & "Failed to create report" ElseIf ReturnCode = 74 Then ReturnMessage = ReturnMessage & "IO error occurred." ElseIf ReturnCode = 77 Then ReturnMessage = ReturnMessage & "Action cannot be completed because the user does not have permission." ElseIf ReturnCode = 126 Then ReturnMessage = ReturnMessage & "Execution failed because of an error." ElseIf ReturnCode = 130 Then ReturnMessage = ReturnMessage & "Execution stopped because Ctrl+Break." End If ReturnMessage = ReturnMessage & chr(10) & "See SQL Data Compare Help for more details" End If '============================================================================================================ send mail Set objMessage = CreateObject("CDO.Message") objMessage.Subject = ReturnSubject objMessage.From = "dname@example.com" objMessage.To = "dbadmin@example.com" objMessage.TextBody = ReturnMessage objMessage.AddAttachment "D:\DataCompare\report_DBname.txt" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xx.xx.xx.xx" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Send / comments
  1. Community
  2. SQL Data Compare Previous Versions
  3. Scheduling A Data Compare
hello Something i have written yesterday, may be helpfull. It checks DB against backup from current day (assuming that you are using default naming) and sending mail about effect and attachment wit...
0 votes
Error: Index was outside the bounds of the array.
  1. Community
  2. SQL Data Compare Previous Versions
hello First of all, great piece of software! I have two databases on the same server (sql 2000). I try to compare them against their backups. There is no problem wiht the smaller one (2GB), but whe...
2 followers 3 comments 0 votes
Total activity
3
Last activity
Member since
Following
0 users
Followed by
0 users
Votes
0
Subscriptions
1