问读取包含SQL代码的文本文件，以在数据库中创建表。
EN

Stack Overflow用户

提问于 2014-05-07 18:27:56

回答 2查看 949关注 0票数 0

我需要代码来读取一个.txt文件，该文件位于我的项目bin\debug目录中，其中包含SQL代码，用于创建大小为936 of的大量表。

下面的代码我只使用..。

通过使用这种方法，它会给出结果，就像创建的表一样，但是它没有读取文件.数据库里什么都没有

Public Function readTextFile(ByVal fileName As String) As String
        Dim strContent As String()
        Dim x As String = ""
        Try
            'fileName = "CSYSS802.txt"

            If Not System.IO.File.Exists(fileName) Then
                'o Until EOF()
                strContent = System.IO.File.ReadAllLines(fileName)


                For Each Str As String In strContent
                    x = x + Str
                Next

                readTextFile = x
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        readTextFile = x
    End Function

    Public Sub createTable(ByVal vdbs As String, ByVal file As String)
        username = frmlogin.txtusername.Text
        password = frmlogin.txtusername.Text
        vsvr = vServer
        vdb = Trim$(vdbs)
        strCon1 = "Server=" & vsvr & ";Database=" & vdb & ";uid=" & username & ";pwd=" & password & ";"
        sqlCon1 = New SqlClient.SqlConnection(strCon1)
        sqlCon1.Open()
        Dim arr() As String
        arr = Split(readTextFile(file), "GO")
        Dim i As String

        For Each i In arr
            If i <> "" Then
                Dim cmd2 As New SqlClient.SqlCommand("" & i & "")
                cmd2.CommandType = CommandType.Text
                cmd2.ExecuteNonQuery()
            End If
        Next
    End Sub

vb.net

visual-studio-2012

sql-server-2012

语音识别特惠，低至14.9元！

提供业界非常具有性价比的语音识别服务，超高识别准确率，适用多场景

回答 2

Stack Overflow用户

回答已采纳

发布于 2014-05-08 23:14:43

我自己--我找到了解决方案.我加入了下面的Code...It，现在正确地创建了所有的表..确保文本文件中的每个Sql命令以go结尾。因为我使用"GO"关键字拆分文本.

Public Sub createTable(ByVal vdbs As String, ByVal file As String)
    username = frmlogin.txtusername.Text
    password = frmlogin.txtusername.Text
    vsvr = vServer
    vdb = Trim$(vdbs)
    strCon1 = "Server=" & vsvr & ";Database=" & vdb & ";uid=" & username & ";pwd=" & password & ";"
   sqlCon1 = New SqlClient.SqlConnection(strCon1)
    sqlCon1.Open()
    Dim arr() As String
    arr = Split(readTextFile(file), " GO ")
    Dim i As String

For Each i In arr
        If i <> "" Then
            Dim cmd2 As New SqlClient.SqlCommand("" & i & "", sqlCon1)
            cmd2.CommandType = CommandType.Text
            cmd2.ExecuteNonQuery()
        End If
    Next
End Sub
 Public Function readTextFile(ByVal file As String) As String
    Dim fso As New System.Object
    Dim ts As Scripting.TextStream
    Dim sLine As String

    fso = CreateObject("Scripting.FileSystemObject")
    ts = fso.openTextFile(file)

    Do Until ts.AtEndOfStream
        sLine = sLine & " " & ts.ReadLine

    Loop
    ts.Close()
    fso = Nothing
    readTextFile = sLine

End Function

票数 0

Stack Overflow用户

发布于 2014-05-08 00:36:44

在readTextFile函数中，只有在文件不存在的情况下，它才会尝试从文本文件中读取文本。如果文本文件存在，则函数返回一个空字符串，如果文本文件不存在，该函数将抛出一个未找到的异常文件。

取代：

If Not System.IO.File.Exists(fileName) Then

通过以下方式：

If System.IO.File.Exists(fileName) = True Then

如果文件不存在，您还可能需要包含一个Else子句，因为它不会抛出错误，因为您已经正确地处理了它。

If System.IO.File.Exists(fileName) = True Then

     strContent = System.IO.File.ReadAllLines(fileName)

     For Each Str As String In strContent
         x &= Str
     Next

     Return x

Else

     MessageBox.Show("The file '" & fileName & "' does not exist.")
     Return ""

End If