Change

[shapper]

Hello,

I need to get a value which might be on a SQL database or Access
database.

My problem is I need to know which is the database type or, even
better, create a code which would work for both databases.

Anyway, first of all I am getting my connection string from Web.Config:

Dim connectionStrin g As String =
ConfigurationMa nager.Connectio nStrings("Conn" ).ConnectionStr ing

Then, if the database is SQL I have the code:

' Define connection
Dim connection As New
SqlClient.SqlCo nnection(connec tionString)

' Define command
Dim command As New SqlClient.SqlCo mmand
With command
.CommandText = "GetValue"
.Connection = connection
.CommandType = CommandType.Sto redProcedure
End With

' Add command parameters
With command.Paramet ers
.Add(New SqlClient.SqlPa rameter("@Cultu re", culture))
End With

' Execute the command
connection.Open ()
Dim content As SqlClient.SqlDa taReader =
command.Execute Reader
If content.Read Then
Return content.Item("V alue").ToString ()
Else
Return "# Undefined Value#"
End If
content.Close()
connection.Clos e()

If the database is Access there are a few changes just in types as
follows:

' Define connection
Dim connection As New
OleDb.OleDbConn ection(Me.Conne ctionString)

' Define command
Dim command As New OleDb.OleDbComm and
With command
.CommandText = "GetValue"
.Connection = connection
.CommandType = CommandType.Sto redProcedure
End With

' Add command parameters
With command.Paramet ers
.Add(New OleDb.OleDbPara meter("@Content Culture", culture))
End With

' Execute the command
connection.Open ()
Dim content As OleDb.OleDbData Reader = command.Execute Reader
If content.Read Then
Return content.Item("V alue").ToString ()
Else
Return "# Undefined Value #"
End If
content.Close()
connection.Clos e()

How should I create this?

Thanks,

Miguel