使用vb.net连接sql文件 [英] concatenate sql file using vb.net

问题描述

Dim objReader As StreamReader
        Dim objWriter As StreamWriter
        Dim i As Integer = 0
        Dim LineIn As String
        
        Try
           
          
            For i = 0 To mFileName.Length - 1
                objReader = File.OpenText(mFileName(i))
                objWriter = New IO.StreamWriter(FilePATH1 & "\" & TextBox1.Text & ".sql", True)
                'here it will write all files in Test.sql

                While objReader.Peek <> -1
                    LineIn = objReader.ReadLine()
                    objWriter.Write(LineIn & vbNewLine)
                End While
                objWriter.WriteLine("Go")
                objWriter.Close()


            Next
           


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

现在，如果我再次执行重复数据，我的问题是要追加到目标文件...请帮助我..谢谢

now what my problem if i execute again duplicate data is going to append to destination file...please help me..thanks

推荐答案

首先将您的文件写为空白.然后附加文字.

First write your file blank. Then append the text.

Dim objReader As StreamReader
Dim objWriter As StreamWriter
Dim i As Integer = 0
Dim LineIn As String

Try
  objWriter = New IO.StreamWriter(FilePATH1 & "\" & TextBox1.Text & ".sql")
  objWriter.WriteLine("")
  objWriter.Close()
  For i = 0 To mFileName.Length - 1
    objReader = File.OpenText(mFileName(i)) 'here it will write all files in Test.sql
    objWriter = New IO.StreamWriter(FilePATH1 & "\" & TextBox1.Text & ".sql", true)
      While objReader.Peek <> -1
        LineIn = objReader.ReadLine()
        objWriter.Write(LineIn & vbNewLine)
      End While
    objWriter.WriteLine("Go")
    objWriter.Close()
  Next
Catch ex As Exception
  MessageBox.Show(ex.Message)
End Try

这篇关于使用vb.net连接sql文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！