Считать файл и передать в MySQL

[masutkai]

Здравствуйте. Помогите пожалуйста написать такую программу: надо чобы программа каждые 5 секунд считывала файл построчно и если он изменился, записывать новую строку в MySQL на удалённый сервер, а не достающие - удалять.

С начала помогите считать файл в переменную или в массив и вывести хотябы через MsgBox.

Делаю это в VB 2008 Express

[dr.MIG]

А какие затруднения возникли при попытке самостоятельно решить данную задачу? Лень прочитать любое руководство по VB, в котором обязательно есть пример по работе с файлами?

[masutkai]

Считать у меня получилось . Сейчас не могу разобраться с FileSystemWatcher - программа зависает

Код: Выделить всё

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Dim strFileType As String
         strFileType = "txt файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
         Me.OpenFileDialog1.Filter = strFileType
 
         Me.OpenFileDialog1.ShowDialog()
         Me.TextBox1.Text = Me.OpenFileDialog1.FileName
         Tri = Me.OpenFileDialog1.FileName
         TriCat = Me.OpenFileDialog1.InitialDirectory
 
         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MsgBox(Tri)
             Dim nameFile As String = Tri, strF As String
             Dim sr As IO.StreamReader
             sr = My.Computer.FileSystem.OpenTextFileReader(nameFile)
             While Not sr.EndOfStream
                strF = sr.ReadLine
                 MsgBox(strF)
             End While
             sr.Close()
            Dim fsw = New System.IO.FileSystemWatcher()
             MsgBox(TriCat)
             fsw.Path = TriCat
             fsw.NotifyFilter = Tri
         End If
 
   
     End Sub
 
 
     Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
         Dim nameFile As String = Tri, strF As String
         Dim sr As IO.StreamReader
         sr = My.Computer.FileSystem.OpenTextFileReader(nameFile)
         While Not sr.EndOfStream
             strF = sr.ReadLine
             MsgBox(strF)
         End While
         sr.Close()
     End Sub

[FireFenix]

для подключения к MySQL можно юзать MySQL Connector.Net, который можно взять на их сайте, где там же предоставленна вся информация по работе с ним