Question

我正在尝试将文本文件中的信息存储到数据库中。这就是我所拥有的，但无法弄清楚下一步该做什么。

Imports System.IO
Public Class Form1



Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim filename As String
    filename = Application.StartupPath + "\darsReport.txt"
    Dim iofile As New StreamReader(filename)
    If File.Exists(filename) Then
        Dim ioline As String
        Dim ID, studentName, currentGPA, ReqGPA, expectedGraduation

        ioline = iofile.ReadLine

        While Not ioline = ""
            Dim mysplit = Split(ioline, "   ")
            ID = mysplit(1)
            studentName = mysplit(0)
            expectedGraduation = mysplit(2)
            currentGPA = mysplit(3)
            ReqGPA = mysplit(4)

        End While

    Else
        MsgBox(filename + "Does not exist.")
    End If
End Sub
End Class

Answer 1

在此之后，您需要在数据库表上运行INSERT查询。最简单的方法是使用SqlCommand类（假设您有一个SQL Server数据库）：

Dim con as new SqlConnection("Your Connection String Here")
con.Open()
Dim cmd as New SqlCommand("", con)
cmd.CommandText = String.Format("INSERT INTO [YourTable](ID, Name, CurrentGPA) VALUES({0}, '{1}', {2})", ID, studentName, currentGPA)
cmd.ExecuteNonQuery()
con.Close()

在循环中使用此代码块，所有行都将插入到数据库中。但请注意，这实际上是执行此操作的基本方法，应编写更多代码以正确处理异常，无效数据等。此方法也可以使用SQL注入轻松利用。 .NET中存在更好的应用程序（例如DataSet和实体框架），而不应该用于此任务。

解析文本文件以访问VB.NET中的数据库

1 个答案: