asked on

Do you have to add the provider name into the web.config connection string?

Hello do you have to add the web.config provider to your connectionstring if your code will use a data provider to extract data? Let's say I leave ou the provider name in my connection string in my web.config file like the following example? Will this work?

<connectionStrings>
        <clear/>
        <add name="Tracker2ConnectionString" providerName="System.Data.Oledb" connectionString="Data Source=BRSMITH-PC; Initial Catalog=Tracker2; Integrated Security=True" />
    </connectionStrings>

Open in new window

ASKER CERTIFIED SOLUTION

Guy Hengel [angelIII / a3]

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

QPR

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

VBBRett

ASKER

Then what would I put for the connection string if there is code already written that shows the following? Please see the code and show me what the proper adjustments for the web.config file would be.

  Public Class cProjectDB
        Public Connection As String
        Public Sub Connect(ByVal ConnectionString As String)
            Connection = ConnectionString
        End Sub
        Function PutProject(ByVal cProjectData As cProject) As Integer
            Dim strSQL As String
            Dim connect As OleDb.OleDbConnection
            Dim command As OleDb.OleDbDataAdapter
            Dim setProject As Data.DataSet
            Dim tblProject As Data.DataTable
            Dim gf As New GlobalFunctions
            Dim result As Integer
 
            connect = New OleDb.OleDbConnection(Connection)
 
            strSQL = "EXEC ProjectModify "
            strSQL += cProjectData.ProjectID & ","
            strSQL += cProjectData.ClientID & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.ProjectName, "'") & "',"
            strSQL += cProjectData.ProjectTypeID & ","
            strSQL += cProjectData.ProjectStatusID & ","
            strSQL += cProjectData.SalesRepID & ","
            strSQL += "'" & gf.EscapeChr(cProjectData.Company, "'") & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.Address, "'") & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.Address2, "'") & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.City, "'") & "',"
            strSQL += "'" & cProjectData.State & "'',"
            strSQL += "'" & cProjectData.Zip & "',"
            strSQL += "'" & cProjectData.CUSIP & "',"
            strSQL += "'" & cProjectData.CorpURL & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.Contact, "'") & "',"
            strSQL += "'" & cProjectData.ContactEmail & "',"
            strSQL += "'" & cProjectData.ContactPhone & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.BillingContact, "'") & "',"
            strSQL += "'" & cProjectData.BillingContactPhone & "',"
            strSQL += "'" & gf.EscapeChr(cProjectData.BillingAddress, "'") & "',"
            strSQL += cProjectData.BillingLevelID & ","
            strSQL += cProjectData.SendInvoiceVia & ","
            strSQL += "'" & gf.EscapeChr(cProjectData.AltContact, "'") & "',"
            strSQL += "'" & cProjectData.AltContactPhone & "',"
            strSQL += "'" & cProjectData.AltContactEmail & "',"
            strSQL += "'" & cProjectData.DateSubmitted & "',"
            strSQL += cProjectData.SubmittedByID & ","
            strSQL += "'" & cProjectData.DateCompleted & "',"
            strSQL += "'" & cProjectData.DateExpected & "',"
            strSQL += cProjectData.DiscountAppliedID & ","
            strSQL += "'" & cProjectData.TrackerServer & "',"
            strSQL += "'" & cProjectData.DateModified & "',"
            strSQL += cProjectData.ModifiedByID
 
            command = New OleDb.OleDbDataAdapter(strSQL, connect)
            setProject = New Data.DataSet
            command.Fill(setProject)
            tblProject = setProject.Tables(0)
 
            result = tblProject.Rows(0).Item("ProjectID")
 
            connect.Close()
            connect.Dispose()
            command.Dispose()
 
            Return result
        End Function
        Function GetProject(ByVal ProjectID As Integer) As cProject
            Dim connect As OleDb.OleDbConnection
            Dim strSQL As String
            Dim command As OleDb.OleDbDataAdapter
            Dim setProject As Data.DataSet
            Dim tblProject As Data.DataTable
            Dim rtnProject As New cProject
 
            connect = New OleDb.OleDbConnection(Connection)
 
            strSQL = "EXEC ProjectReturn " & ProjectID
 
            command = New OleDb.OleDbDataAdapter(strSQL, connect)
            setProject = New Data.DataSet
            command.Fill(setProject)
            tblProject = setProject.Tables(0)
 
            If tblProject.Rows.Count > 0 Then
                rtnProject.ProjectID = tblProject.Rows(0).Item("ProjectID")
                rtnProject.ClientID = tblProject.Rows(0).Item("ClientID")
                rtnProject.ProjectName = tblProject.Rows(0).Item("ProjectName")
                rtnProject.ProjectTypeID = tblProject.Rows(0).Item("ProjectTypeID")
                rtnProject.ProjectStatusID = tblProject.Rows(0).Item("ProjectStatusID")
                rtnProject.SalesRepID = tblProject.Rows(0).Item("SalesRepID")
                rtnProject.Company = tblProject.Rows(0).Item("Company")
                rtnProject.Address = tblProject.Rows(0).Item("Address")
                rtnProject.Address2 = tblProject.Rows(0).Item("Address2")
                rtnProject.City = tblProject.Rows(0).Item("City")
                rtnProject.State = tblProject.Rows(0).Item("State")
                rtnProject.Zip = tblProject.Rows(0).Item("Zip")
                rtnProject.CUSIP = tblProject.Rows(0).Item("CUSIP")
                rtnProject.CorpURL = tblProject.Rows(0).Item("CorpURL")
                rtnProject.Contact = tblProject.Rows(0).Item("Contact")
                rtnProject.ContactEmail = tblProject.Rows(0).Item("ContactEmail")
                rtnProject.ContactPhone = tblProject.Rows(0).Item("ContactPhone")
                rtnProject.BillingContact = tblProject.Rows(0).Item("BillingContact")
                rtnProject.BillingContactPhone = tblProject.Rows(0).Item("BillingContactPhone")
                rtnProject.BillingAddress = tblProject.Rows(0).Item("BillingAddress")
                rtnProject.BillingLevelID = tblProject.Rows(0).Item("BillingLevelID")
                rtnProject.SendInvoiceVia = tblProject.Rows(0).Item("SendInvoiceVia")
                rtnProject.AltContact = tblProject.Rows(0).Item("AltContact")
                rtnProject.AltContactPhone = tblProject.Rows(0).Item("AltContactPhone")
                rtnProject.AltContactEmail = tblProject.Rows(0).Item("AltContactEmail")
                rtnProject.DateSubmitted = tblProject.Rows(0).Item("DateSubmitted")
                rtnProject.DateExpected = tblProject.Rows(0).Item("DateExpected")
                rtnProject.DiscountAppliedID = tblProject.Rows(0).Item("DiscountAppliedID")
                rtnProject.TrackerServer = tblProject.Rows(0).Item("TrackerServer")
                rtnProject.DateCreated = tblProject.Rows(0).Item("DateCreated")
                rtnProject.CreatedByID = tblProject.Rows(0).Item("CreatedBy")
                rtnProject.DateModified = tblProject.Rows(0).Item("DateModified")
                rtnProject.ModifiedByID = tblProject.Rows(0).Item("ModifiedBy")
            Else
                rtnProject.ProjectID = 0
            End If
 
            connect.Close()
            connect.Dispose()
            command.Dispose()
 
            Return rtnProject
        End Function
        Function GetProjectByClient(ByVal ClientID As Integer) As Data.DataTable
            Dim connect As OleDb.OleDbConnection
            Dim strSQL As String
            Dim command As OleDb.OleDbDataAdapter
            Dim setProject As Data.DataSet
            Dim tblProject As Data.DataTable
 
            connect = New OleDb.OleDbConnection(Connection)
 
            strSQL = "EXEC ProjectReturn 0," & ClientID
 
            command = New OleDb.OleDbDataAdapter(strSQL, connect)
            setProject = New Data.DataSet
            command.Fill(setProject)
            tblProject = setProject.Tables(0)
 
            Return tblProject
 
            connect.Close()
            connect.Dispose()
            command.Dispose()
 
        End Function
    End Class

Open in new window