StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Getting the provider type

Getting the provider type

Andria Jensen — Fri, 21 Jul 2006 09:14:10 GMT

How do I get the provider type from the data source? I would like to know whether I am looking at a SQL, Oracle, DB2, etc. database. Also, is there any way other than parsing the connection string to get out the Server, Database Name, User ID, and Password?

RE: Getting the provider type

Trent L. Taylor — Fri, 21 Jul 2006 09:14:10 GMT

No problem :)

RE: Getting the provider type

Andria Jensen — Thu, 20 Jul 2006 17:04:43 GMT

Great! thanks.

RE: Getting the provider type

Trent L. Taylor — Thu, 20 Jul 2006 16:59:40 GMT

Once you determine the type, use a ConnectionStringBuilder, pass it the connection string, and it will parse it for you.

Dim loConn As New System.Data.SqlClient.SqlConnectionStringBuilder(MicroFour.StrataFrame.Data.DataBasics.DataSources(0).ConnectionString)

        MsgBox(loConn.DataSource)
        MsgBox(loConn.UserID)
        MsgBox(loConn.Password)

RE: Getting the provider type

Andria Jensen — Thu, 20 Jul 2006 16:56:09 GMT

Ok, that works for getting the type. Is there any way to get the other information I referred to like Database Name, User ID, Password, and Server? I can parse the connection string, but this seems a little unreliable.

RE: Getting the provider type

Trent L. Taylor — Thu, 20 Jul 2006 15:57:53 GMT

There are several options. You can test on the data source type to determine which provider is being used based on the type of object which would probably be the easiest.

Dim loType As System.Type = MicroFour.StrataFrame.Data.DataBasics.DataSources.Item("").GetType()

        If loType Is GetType(MicroFour.StrataFrame.Data.SqlDataSourceItem) Then
            MsgBox("SQL Server")
        ElseIf loType Is GetType(MicroFour.StrataFrame.Data.OracleDataSourceItem) Then
            MsgBox("Oracle")
        ElseIf loType Is GetType(MicroFour.StrataFrame.Data.VfpDataSourceItem) Then
            MsgBox("VFP")
        ElseIf loType Is GetType(MicroFour.StrataFrame.Data.AccessDataSourceItem) Then
            MsgBox("Access")
        End If