' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Data Imports System.Data.SqlClient Imports System.IO Namespace E Public Class Program Public Shared Sub Process(constr As String, fnm As String) Using con As New SqlConnection(constr) con.Open() Using sr As New StreamReader(fnm) Dim cmd As New SqlCommand("INSERT INTO dintbl VALUES(@a,@b)", con) cmd.Parameters.Add("@a", SqlDbType.VarChar, 50) cmd.Parameters.Add("@b", SqlDbType.Int) Dim line As String Dim aval As String = Nothing Dim bval As Integer = 0 line = sr.ReadLine() While line IsNot Nothing Dim parts As String() = line.Split("="C) If parts(0)(0) = "a"C Then aval = parts(1) ElseIf parts(0)(0) = "b"C Then bval = Integer.Parse(parts(1)) cmd.Parameters("@a").Value = aval cmd.Parameters("@b").Value = bval cmd.ExecuteNonQuery() End If line = sr.ReadLine() End While End Using End Using End Sub Public Shared Sub Main(args As String()) Process("Server=ARNEPC3\SQLEXPRESS;Database=Test;Integrated Security=SSPI", "C:\data.txt") End Sub End Class End Namespace