Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
abdulahad
0 / 0 / 1
Регистрация: 29.04.2018
Сообщений: 56
#1

BackUp из Mysql по локальной сети

Вчера, 06:38. Просмотров 56. Ответов 6
Метки нет (Все метки)

как сделать BackUp из Mysql по локальной сети..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
Вчера, 06:38
Ответы с готовыми решениями:

Обновление программы в локальной сети
Добрый день, Товарищи! Программа стоит на разных компах в локальной сети. У...

Вывод всех ПК в локальной сети
Помогите пожалуйста, ни как не могу подобрать функцию или процедуру для...

Передача информации в локальной сети
Имеется две или более программы-клиента которые раз в 5 секунд посылают...

Передача переменных в локальной сети
Требуется по локальной сети передать из одной программы передать в другую...

Скорость соединения с серверами в локальной сети
Добрый всем день. Есть локальная сеть (рабочая). Необходимо оценить скорость...

6
Rius
Эксперт .NET
4695 / 3007 / 739
Регистрация: 25.05.2015
Сообщений: 9,256
Записей в блоге: 11
Завершенные тесты: 4
Вчера, 06:50 #2
0
abdulahad
0 / 0 / 1
Регистрация: 29.04.2018
Сообщений: 56
Вчера, 08:22  [ТС] #3
а есть другой метод?
0
Rius
Эксперт .NET
4695 / 3007 / 739
Регистрация: 25.05.2015
Сообщений: 9,256
Записей в блоге: 11
Завершенные тесты: 4
Вчера, 08:27 #4
А эти вам чем не подходят?
0
abdulahad
0 / 0 / 1
Регистрация: 29.04.2018
Сообщений: 56
Вчера, 08:45  [ТС] #5
не получается

Добавлено через 49 секунд
я нашёл другой метод :
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
Imports MySql.Data.MySqlClient
Public Class Form2
    Dim MysqlConn As MySqlConnection
    Dim constring As String = "server=192.168.150.105;userid=root;password=vertrigo;database=16_03_2018; Charset=utf8"
 
    Private Enum CurrentProcessType
        Export
        Import
        None
    End Enum
 
    Private WithEvents mb As MySqlBackup
    Private HighTimeForGuiRefresh As Boolean = True
    Private cpt As CurrentProcessType = CurrentProcessType.None
 
 
    Public Sub New()
 
        InitializeComponent()
 
    End Sub
    Private Sub mb_ExportProgressChanged(ByVal sender As Object, ByVal e As ExportProgressArg)
        ReportExportProgress(e)
    End Sub
    Private Sub ReportExportProgress(ByVal e As ExportProgressArg)
 
        If Not HighTimeForGuiRefresh AndAlso e.PercentageCompleted < 99 Then Exit Sub
 
        If Me.InvokeRequired Then
            Me.Invoke(New ReportExportProgressInvoker(AddressOf ReportExportProgress), New Object() {e})
            Exit Sub
        End If
 
        ProgressBar1.Value = e.PercentageCompleted
        ProgressBar1.Text = "Progress " + e.PercentageCompleted.ToString() + "%"
 
        HighTimeForGuiRefresh = False
 
    End Sub
    Private Sub ReportExportCompleted(ByVal e As ExportCompleteArg)
 
        If Me.InvokeRequired Then
            Me.Invoke(New ReportExportCompletedInvoker(AddressOf ReportExportCompleted), New Object() {e})
            Exit Sub
        End If
 
        Timer1.Stop()
 
        If e.CompletedType = ExportCompleteArg.CompleteType.Cancelled Then
            ProgressBar1.Text = "Backup process was canceled."
        ElseIf e.CompletedType = ExportCompleteArg.CompleteType.Error Then
            ProgressBar1.Text = "Backup process was interrupted by an exception."
        End If
 
        Dim errMsg As String = ""
        If e.Error IsNot Nothing Then errMsg = e.Error.ToString()
        MsgBox(("Export " & e.CompletedType.ToString() & vbCrLf & errMsg).Trim, _
            MsgBoxStyle.Information, "")
 
        ClearOperationData(True)
 
    End Sub
    Private Sub mb_ExportCompleted(ByVal sender As Object, ByVal e As ExportCompleteArg)
        ReportExportCompleted(e)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not mb Is Nothing Then
            MsgBox("Error. Can't start export while another process is in progress.", _
                MsgBoxStyle.Exclamation, "")
            Exit Sub
        End If
 
        Dim fn As String = ""
 
        Using sf As New SaveFileDialog()
            sf.FileName = "test " & DateTime.Now.ToString("yyyyMMdd HHmmss") & ".sql"
            If sf.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Exit Sub
            fn = sf.FileName
        End Using
 
        ProgressBar1.Value = 0
 
        mb = New MySqlBackup()
 
        mb.Connection = New MySqlConnection(constring)
        mb.ExportInfo.FileName = fn
        mb.ExportInfo.AsynchronousMode = True
 
        AddHandler mb.ExportProgressChanged, AddressOf mb_ExportProgressChanged
        AddHandler mb.ExportCompleted, AddressOf mb_ExportCompleted
 
        cpt = CurrentProcessType.Export
 
 
 
        Try
            mb.Export()
            Timer1.Start()
        Catch ex As Exception
            Timer1.Stop()
            MsgBox("Error occured while starting export process: " & ex.Message, _
                MsgBoxStyle.Exclamation, "")
            ClearOperationData(True)
        End Try
    End Sub
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
 
 
 
 
    Private Sub RefreshTimer_Tick(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Timer1.Stop()
        If mb Is Nothing Then Exit Sub
        HighTimeForGuiRefresh = True
        Timer1.Start()
 
    End Sub
 
 
 
 
 
    Private Delegate Sub ReportExportCompletedInvoker(ByVal e As ExportCompleteArg)
 
 
    Private Delegate Sub ReportExportProgressInvoker(ByVal e As ExportProgressArg)
 
 
 
 
 
 
    Private Delegate Sub ReportImportCompletedInvoker(ByVal e As ImportCompleteArg)
 
 
 
    Private Delegate Sub ReportImportProgressInvoker(ByVal e As ImportProgressArg)
 
 
 
 
    Private Sub ClearOperationData(ByVal ContinueWithResetButtons As Boolean)
        If Not mb Is Nothing Then
            If cpt = CurrentProcessType.Export Then
                RemoveHandler mb.ExportProgressChanged, AddressOf mb_ExportProgressChanged
                RemoveHandler mb.ExportCompleted, AddressOf mb_ExportCompleted
 
            End If
            mb.Dispose()
            mb = Nothing
        End If
        cpt = CurrentProcessType.None
        HighTimeForGuiRefresh = True
 
    End Sub
 
 
 
    
End Class
но выдаёт ошибку !
0
Миниатюры
BackUp из Mysql по локальной сети  
Rius
Эксперт .NET
4695 / 3007 / 739
Регистрация: 25.05.2015
Сообщений: 9,256
Записей в блоге: 11
Завершенные тесты: 4
Вчера, 08:53 #6
Цитата Сообщение от abdulahad Посмотреть сообщение
но выдаёт ошибку !
Не вижу никакой ошибки в вашем сообщении.
0
abdulahad
0 / 0 / 1
Регистрация: 29.04.2018
Сообщений: 56
Вчера, 09:11  [ТС] #7
фото посмотрите

Добавлено через 24 секунды
ну в принципе проблему решил

Добавлено через 48 секунд
добавил в constring
vb.net
1
Convert Zero Datetime=true;
0
Вчера, 09:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
Вчера, 09:11

Вывести имена компьютеров их ip адрес в локальной сети
Роясь на просторах форума нашел код, код выводит список имен всех компов в...

Как узнать IP-адрес компьютера в локальной сети
Как программно узнать IP? То есть на форме есть кнопка и текстбокс, как сделать...

Включить или отключить подключение по локальной сети
как на vb.net включить или отключить подключение по локальной сети? ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru