Новости
Документация
Download
Webboard
Поиск
FAQ/ЧаВо
Обратная связь




MySQL.RU - Webboard



Вернуться
Ротировать бинлоги, младше 1 суток. (Олег) 28/09/2008 - 21:30:22
      Re: Ротировать бинлоги, младше 1 суток. (bac) 29/09/2008 - 00:34:36
      Re: Ротировать бинлоги, младше 1 суток. (Олег) 02/10/2008 - 13:42:21

> Original message text:
> From: Олег - 28/09/2008 - 21:30:22
> Subject:Ротировать бинлоги, младше 1 суток.
> -----------------
> Есть проблема - очень нагруженная база данных, которая пишет большое количество бинлогов (~100Мб/мин). Они перестали влезать в выделенный для этого раздел. Так как слейв не отстает от мастера, имеет смысл как временную меру удалаять бинлоги, например, после 12-ти часов, вместо суток. Можно ли это сделать как-то штатными средствами?
> Сейчас вкручен костыль, который по крону оставляет последние 300 файлов в директории бинлогов.
>


From: bac - 29/09/2008 - 00:34:36
Subject:Ротировать бинлоги, младше 1 суток.
-----------------
Вот у меня есть функция на VB для обработки команды выгрузки bin-log. Я думаю это то что надо.

Private Sub toolSvBLog_Click()
Dim rs As rdoResultset
Dim rsVar As rdoResultset
Dim I As Integer
Dim fs As Object
Dim lastName As String

Set rs = dbCn.OpenResultset("SHOW BINARY LOGS")
Set rsVar = dbCn.OpenResultset("SHOW VARIABLES LIKE 'datadir'")

execSQL "FLUSH LOGS", "frmMain014"

Set fs = CreateObject("Scripting.FileSystemObject")
lastName = ""
While Not rs.EOF
lastName = rs!Log_Name
On Error GoTo Err_Handler_Copy
fs.CopyFile rsVar!Value & lastName, App.Path & "\binlog\" & lastName
On Error GoTo 0
logRec "Blog", lastName
rs.MoveNext
Wend
If lastName <> "" Then
rs.Close
Set rs = dbCn.OpenResultset("SHOW BINARY LOGS")
lastName = ""
While Not rs.EOF
lastName = rs!Log_Name
rs.MoveNext
Wend
execSQL "PURGE BINARY LOGS TO '" & lastName & "'", "frmMain015"
MsgBox "Файлы журналов транзакций сохранены!", vbInformation

Else
MsgBox "Нет активных журналов!", vbInformation
End If
rs.Close
Exit Sub

Err_Handler_Copy:
MsgBox "Ошибка при копировании файла журнала транзакций " & lastName & "." & Chr(13) & "(" & Err.Description & ")", vbCritical

End Sub



[Это сообщение - спам!]

Последние сообщения из форума

Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL, версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
 Имя:
 E-mail:
 Тема:
 Текст:
Код подтверждения отправки: Code
34210



РЕКЛАМА НА САЙТЕ
  Создание сайтов | |