vb导入文本数据库

Dim filePath As String = "C:\path\to\your\file.csv"
If Not File.Exists(filePath) Then
    MessageBox.Show("文件不存在")
    Exit Sub
End If
' 继续读取文件...

Dim lines As String() = File.ReadAllLines(filePath)
For Each line As String In lines
    Dim parts As String() = line.Split(",")
    If parts.Length <> expectedFieldCount Then
        MessageBox.Show("数据格式错误")
        Continue For
    End If
    ' 处理数据...
Next

Dim connectionString As String = "Server=your_server;Database=your_db;User Id=your_user;Password=your_password;"
Try
    Using conn As New SqlConnection(connectionString)
        conn.Open()
        ' 执行数据库操作...
    End Using
Catch ex As SqlException
    MessageBox.Show("数据库连接错误: " & ex.Message)
End Try

Imports System.Data.SqlClient
Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.csv"
        Dim connectionString As String = "Server=your_server;Database=your_db;User Id=your_user;Password=your_password;"

        Try
            Using conn As New SqlConnection(connectionString)
                conn.Open()

                Dim lines As String() = File.ReadAllLines(filePath)
                For Each line As String In lines
                    Dim parts As String() = line.Split(",")
                    If parts.Length <> 3 Then ' 假设每行有3个字段
                        Console.WriteLine("数据格式错误: " & line)
                        Continue For
                    End If

                    Dim cmd As New SqlCommand("INSERT INTO YourTable (Column1, Column2, Column3) VALUES (@Column1, @Column2, @Column3)", conn)
                    cmd.Parameters.AddWithValue("@Column1", parts(0))
                    cmd.Parameters.AddWithValue("@Column2", parts(1))
                    cmd.Parameters.AddWithValue("@Column3", parts(2))

                    cmd.ExecuteNonQuery()
                Next
            End Using
        Catch ex As Exception
            Console.WriteLine("发生错误: " & ex.Message)
        End Try
    End Sub
End Module