Visual Basic

Dim file1 As StreamReader("Filename1.txt")
Dim file2 As StreamReader("Filename2.txt")
Dim line1, line2 As String
Dim lineNumber As Integer

While (file1.Peek() >= 0) Or (file2.Peek() >= 0)
    line1 = file1.ReadLine()
    line2 = file2.ReadLine()
    lineNumber += 1
    ' If the first ReadLine returned a string...
    '   AndAlso the second ReadLine returned a string...
    '   AndAlso both strings are equal...
    If (Not line1 Is Nothing) AndAlso (Not line2 Is Nothing) AndAlso (String.Compare(line1, line2, True) <> 0) Then
        ' Both strings were equal!!
    Else
        ' Both files were NOT equal at this line!
        Console.WriteLine("File difference at line " & lineNumber.ToString() )
    End If
End While
file1.Close()
file2.Close()

Imports System.IO

Public Function Results()
    Try
        objConn.Open()
        objDA.SelectCommand = New OleDbCommand
        objDA.SelectCommand.Connection = objConn
        objDA.SelectCommand.CommandText = "SELECT * from Companies"
        objDA.SelectCommand.CommandType = CommandType.Text
        objDA.SelectCommand.ExecuteNonQuery()
        objDS.Clear()
        objDA.Fill(objDS, "Companies")
        objConn.Close()
    Catch ex As Exception
        MessageBox.Show("fail connection in Client Search")
    End Try
 
    grdResults.DataSource = objDS
    grdResults.DataMember = "Companies"
    numRows = objDS.Tables("Companies").Rows.Count
 
End Function 

        Private Shared Function GetSystemParameter(ByVal sParamName As String, ByRef objReturnValue As Object) As ParameterStatus
            Dim oConnection As SqlConnection
            Dim oCommand As SqlCommand
            Dim retValue As Integer
 
            Try
                oConnection = GetDatabaseConnection()
                oCommand = New SqlCommand
 
                oCommand.Connection = oConnection
                oCommand.CommandText = "SQLGetSystemParameter"
                oCommand.CommandType = CommandType.StoredProcedure
 
                Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25)
                sqlParam.Value = sParamName
                oCommand.Parameters.Add(sqlParam)
 
                Dim sqlpParamValue As New SqlParameter("@ParmValue", SqlDbType.NVarChar, 255)
                sqlpParamValue.Direction = ParameterDirection.Output
                oCommand.Parameters.Add(sqlpParamValue)

                sqlParam = New SqlParameter("RETURN_VALUE", SqlDbType.Int)
                sqlParam.Direction = ParameterDirection.ReturnValue
                oCommand.Parameters.Add(sqlParam)
 
                oConnection.Open()
                oCommand.ExecuteNonQuery()
                oConnection.Close()
 
                Dim iReturnCheck As Integer = Integer.Parse(oCommand.Parameters("RETURN_VALUE").Value)
                If iReturnCheck = 1 Then
                    retValue = ParameterStatus.ParameterInvalid
                Else
                    retValue = ParameterStatus.ParameterOK
                    objReturnValue = sqlpParamValue.Value
                End If
            Catch ex As Exception
                LogErrorEvent("SQLServices", "GetSystemParameter", ex.Message, ex.StackTrace)
                retValue = ParameterStatus.ParameterInvalid
                Throw ex
            Finally
                If Not oCommand Is Nothing Then
                    oCommand.Dispose()
                End If
                If Not oConnection Is Nothing Then
                    If Not oConnection.State = ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                End If
            End Try
            Return retValue
        End Function
 
        Public Shared Function GetSystemParameters() As DataSet
            Dim oConnection As SqlConnection
            Dim oCommandSelect As SqlCommand
            Dim oDataAdapter As SqlDataAdapter
            Dim oDataSet As DataSet
            Dim retValue As Integer
 
            Try
                oConnection = GetDatabaseConnection()
                oCommandSelect = New SqlCommand("SELECT * FROM System")
                oCommandSelect.Connection = oConnection
 
                oDataAdapter = New SqlDataAdapter(oCommandSelect)
                oDataSet = New DataSet("SystemParameters")
 
                oDataAdapter.Fill(oDataSet)
                oDataSet.Tables(0).TableName = "System"
            Catch ex As Exception
                LogErrorEvent("SQLServices", "GetSystemParameters", ex.Message, ex.StackTrace)
                Throw ex
            Finally
                If Not oCommandSelect Is Nothing Then
                    oCommandSelect.Dispose()
                End If
                If Not oConnection Is Nothing Then
                    If Not oConnection.State = ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                End If
            End Try
            Return oDataSet
        End Function
 
        Public Shared Function GetDatabaseConnection() As SqlConnection
            Dim sConnectionString As String
            Dim oConnection As SqlConnection
 
            Try
                sConnectionString = ConfigurationSettings.AppSettings("DataConnection")
                oConnection = New SqlConnection(sConnectionString)
            Catch ex As Exception
                LogErrorEvent("SQLServices", "GetDatabaseConnection", ex.Message, ex.StackTrace)
                Throw ex
            End Try
            Return oConnection
        End Function