К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

Как сравнить все таблицы внутри одной БД с таблицами в другой БД?

Гость
0 - 19.10.2012 - 18:52
Нужно сравнить кол-во записей (хотя бы количество, а можно и сами записи) в каждой из таблиц в БД1 с количеством в каждой таблице из БД2.

Т.е. по-сути нужно узнать различия двух БД.

Обе БД в MSSQL Server.



1 - 19.10.2012 - 20:51
http://msdn.microsoft.com/en-us/library/ms162843.aspx
Гость
2 - 19.10.2012 - 21:35
благодарю
Гость
3 - 22.10.2012 - 11:05
Кстати, кому интересно - нашел более удобное решение: http://code.google.com/p/sqltablediff/
Гость
4 - 23.10.2012 - 00:46
CHECKSUM_AGG должна помочь
http://msdn.microsoft.com/en-us/library/ms188920.aspx
Гость
5 - 23.10.2012 - 08:27
сравниваю в Excel)

Public Sub extract_dif_proc( _
ByVal con_s As String, ByVal rs_s As String, _
ByVal con_s_prev As String, _
ByVal rs_s_alt As String, _
ByRef i As Integer, ByRef idx As Integer, ByVal print_header As Boolean)

Dim con As New adodb.Connection
Dim rs As New adodb.Recordset

Dim con_prev As New adodb.Connection
Dim rs_prev As New adodb.Recordset

Dim j As Integer

Call con.Open(con_s)
Call con_prev.Open(con_s_prev)

Call rs.Open(rs_s, con, adOpenForwardOnly, adLockReadOnly, adCmdText)

Dim eq As Boolean
Dim st As String

If print_header Then
Cells(1, 1) = "rec stat"
For j = 1 To rs.Fields.Count
Cells(i, j + 1) = rs.Fields(j - 1).Name
If Cells(i, j + 1) = "ID" Then idx = j
Next
i = i + 1
End If

Do While Not rs.EOF
Call rs_prev.Open(rs_s_alt + rs.Fields(idx - 1) + "';", con_prev, adOpenForwardOnly, adLockReadOnly, adCmdText)

eq = True
If rs_prev.EOF Then
eq = False
st = "added"
Else
For j = 1 To rs.Fields.Count
If IsNull(rs.Fields(j - 1)) And Not IsNull(rs_prev.Fields(j - 1)) Or _
IsNull(rs_prev.Fields(j - 1)) And Not IsNull(rs.Fields(j - 1)) Or _
rs.Fields(j - 1) <> rs_prev.Fields(j - 1) _
Then
eq = False
st = "modified"
Exit For
End If
Next
End If

If Not eq Then
Cells(i, 1) = st
For j = 1 To rs.Fields.Count
Cells(i, j + 1) = rs.Fields(j - 1)
If st <> "added" Then
If IsNull(rs.Fields(j - 1)) And Not IsNull(rs_prev.Fields(j - 1)) Or _
IsNull(rs_prev.Fields(j - 1)) And Not IsNull(rs.Fields(j - 1)) Or _
rs.Fields(j - 1) <> rs_prev.Fields(j - 1) _
Then
Cells(i, j + 1).Interior.ColorIndex = 6
End If
End If
Next
i = i + 1
End If

rs_prev.Close

rs.MoveNext
Loop

rs.Close

Call rs_prev.Open(rs_s, con_prev, adOpenForwardOnly, adLockReadOnly, adCmdText)

Do While Not rs_prev.EOF
Call rs.Open(rs_s_alt + rs_prev.Fields(idx - 1) + "';", con, adOpenForwardOnly, adLockReadOnly, adCmdText)

If rs.EOF Then
Cells(i, 1) = "removed"
For j = 1 To rs_prev.Fields.Count
Cells(i, j + 1) = rs_prev.Fields(j - 1)
Cells(i, j + 1).Interior.ColorIndex = 3
Next
i = i + 1
End If

rs.Close

rs_prev.MoveNext
Loop

con.Close
con_prev.Close

End Sub

Public Sub extract_dif()

Cells.Clear

Dim s As String
s = "SELECT * FROM sigs UNION SELECT * FROM 9xx UNION SELECT * FROM Fx;"

Dim s_alt As String
s_alt = "SELECT * FROM (SELECT * FROM sigs UNION SELECT * FROM 9xx UNION SELECT * FROM Fx) WHERE ID='"

Dim i As Integer
i = 1

Dim idx As Integer

Call extract_dif_proc( _
"Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" + ActiveWorkbook.path + "\БД.accdb;", _
s, _
"Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" + ActiveWorkbook.path + "\1\БД.accdb;", _
s_alt, _
i, idx, i = 1)

End Sub


К списку вопросов
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск




Copyright ©, Все права защищены