Covert Connection From Access To SQL

Edited by haidar_bilal - Please place your code within < code > and < /code > tag. Thank you.


I've got to convert the following functions so it connects to the SQL server that uses this connection string: ("server=(local);database=BCA;Trusted_Connection=yes")





The code below works fine to an Access db. I know I've got to change all the Ole objects below to SQL objects to connect to SQL server. But try as I might, I'm still not getting them right. Can anyone help by showing me how to change the code? Please just take the code and substitute the SQL connection strings for the Access string. That way even I could understand it. Sigh.








Public Class Functions





Public Function GetCommandObject(ByVal strCommand As String, ByVal strPath As String, ByVal ExecuteIt As Boolean) As Data.OleDb.OleDbCommand


Dim objConnection As Data.OleDb.OleDbConnection = GetConnectionObject(strPath)


objConnection.Open()


Dim objCommand As New Data.OleDb.OleDbCommand(strCommand, objConnection)


If ExecuteIt = False Then


Return objCommand


Else


objCommand.ExecuteNonQuery()


End If


objConnection.Close()


End Function





Public Function GetConnectionObject(ByVal strPath As String) As Data.OleDb.OleDbConnection


Dim objConnection As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath)


Return objConnection


objConnection.Close()


End Function





Public Function GetReaderObject(ByVal strCommand As String, ByVal strPath As String) As Data.OleDb.OleDbDataReader


Dim objCommand As Data.OleDb.OleDbCommand = GetCommandObject(strCommand, strPath, False)


Dim objReader As Data.OleDb.OleDbDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)


Return objReader


objReader.Close()


End Function





End Class