Visual Basic

Private Sub SEMAK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SEMAK.Click

       Dim fileName As String = "X:\COOPAYPC1\01032009\C4933"
       Dim lineNumber As Integer = 0

       Dim sr As StreamReader = New StreamReader(fileName)
       Dim conn As New SqlClient.SqlConnection("Data Source=MISKPI;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True")

       Dim date As String = ""
       Dim runNo As String = ""
       Dim coop As String = ""
       Dim line As String = ""

       Do
           line = sr.ReadLine()

           If line <> Nothing Then
               Try
                   date= line.Substring(0, 8).Trim()
                   runNo = line.Substring(9, 14).Trim()
                   coop = line.Substring(15).Trim()

               Catch ex As Exception
                   Console.Write(ex.ToString())
               End Try

               Dim strSQL As String = "INSERT INTO portal (date,runNo, coop) VALUES (@date, @runNo, @coop)"
               Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conn)
               conn.Open()

               cmd.Parameters.Add(New SqlClient.SqlParameter("@tarikh", SqlDbType.Char, 8))
               cmd.Parameters("@date").Value = date

               cmd.Parameters.Add(New SqlClient.SqlParameter("@runNo",   SqlDbType.Char, 20))
               cmd.Parameters("@runNo").Value = runNo

               cmd.Parameters.Add(New SqlClient.SqlParameter("@coop",    SqlDbType.VarChar, 100))
               cmd.Parameters("@coop").Value = coop

               conn.Close()


           End If

       Loop Until line Is Nothing

       sr.Close()


   End Sub