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

Форум посвящён работе с базами данных в .NET.

Модератор: Ramzes

masutkai
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 30.04.2009 (Чт) 4:50

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

Сообщение masutkai » 30.04.2009 (Чт) 4:57

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

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

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

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

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

Сообщение dr.MIG » 30.04.2009 (Чт) 10:14

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

masutkai
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 30.04.2009 (Чт) 4:50

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

Сообщение masutkai » 30.04.2009 (Чт) 11:25

Считать у меня получилось :) . Сейчас не могу разобраться с 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
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

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

Сообщение FireFenix » 21.05.2009 (Чт) 14:49

для подключения к MySQL можно юзать MySQL Connector.Net, который можно взять на их сайте, где там же предоставленна вся информация по работе с ним
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる


Вернуться в ADO.NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList