使用SQL数据库处理文本文件 - Visual Basic

Question

我有一个文本文件包含分隔记录。

1243;jhhf';982u4k;9u2349;huf8 
kij;9238u;98ur23;jfwf;03i24 

我需要更换与SQL数据库（Select X from T where C='4Th part from the flatfile'）的返回值的每个记录的第四部分的价值。

Regards，
SAnthosh。

Answer 1

试试这个：

Dim newLines As List(Of String) = New List(Of String) 
Dim sqlConn As New SqlConnection(connectionString) 
Dim SQLCmd As New SqlCommand() 
SQLCmd.Connection = sqlConn 
Dim lines As String() = File.ReadAllLines(filename) 
sqlConn.Open() 
For Each line As String In lines 
    Dim parts As String() = line.Split(";") 
    SQLCmd.CommandText = "Select X from T where C=""" & parts(3) & """" 
    Dim dr As SqlDataReader = SQLCmd.ExecuteReader 
    While dr.Read() 
     parts(3) = dr("X") 
    End While 
    newLines.Add(String.Join(";", parts)) 
Next 
File.WriteAllLines(filename, newLines.ToArray()) 
sqlConn.Close()