Buscando en la web no encontré la solución. En muchas comentaban que había que utilizar la herramienta personalizada MsDataSetGenerator. En otras hablaban de problemas al generar una nueva conexión a la base de datos. Para hacer la prueba intenté crear una nueva conexión y me falló. Entonces me dí cuenta que no tenía la ventana del explorador de servidores abierta. Intenté abrirla pero no pude.

Enfoqué la búsqueda con este nuevo problema que parecía tener relación con el diseño de los xsd.

La solución la encontré en http://www.ideascolectivas.com/visualstudio/visualstudio2008/habilitar-explorador-de-servidores-y-modo-diseno-de-dataset-en-visual-studio-2008

En este blog relatan el problema tal cual me pasó a mi. La solución es ejecutar Visual Studio con un parámetro para reiniciar la configuración.

devenv.exe /resetsettings

En principio regenera la configuración inicial de Visual Studio. A mi no me funcionó fui a ver la fuente que ellos comentan: http://forums.asp.net/t/1227004.aspx/1?Server+Explorer+not+showing+up+on+Visual+Studio

En este otro foro proponen además de /resetsettings el parámetro /setup, que “requiere elevación” como dice mi Windows 7. Para ello creé un acceso directo en el escritorio:

• Pulsa la tecla Windows. Te aparecerá el menú de Windows y un recuadro para buscar.
• Tecleas en el recuadro devenv.exe (sin pulsar intro)
•  Botón derecho sobre devenv.exe y selecciona enviar a – escritorio (crear acceso directo)
• En el escritorio modificar el acceso directo añadiendo al final del programa que se ejecuta el parámetro /setup o /resetsettings.
• Ejecutar el acceso directo como administrador.

Espero que os ayude,

Para solucionarlo empleo un objeto DataTable que nos sirve igual que el DataReader. Un ejemplo de uso sería:

Dim Cmd As New SQLCommand("Select a, b, c, d from Tabla", Conexion)
Dim dt As New DataTable

dt.TableName = 'Tabla'
dt.Load(Cmd.ExecuteReader)

For Each Fila As DataRow In dt.Rows
'Ahora se puede utilizar una consulta SQL sin que dé el error del DataReader
Next


dt = Nothing
Cmd = Nothing

Espero que le sirva a alguien. Un saludo.

Cambiando la cultura de la página (UICulture=”es-ES” Culture=”es-ES”) no me funcionó. Tampoco otras soluciones que proponen algunos foros. Todos relacionados con la cultura y globalización. Al acceder a la página de Reporting Services (http://servidor/reports) los mensajes me aparecen en castellano, pero en mi página que tiene el control ReportViewer (tengo instalado el 2008 SP1 en castellano) seguía en inglés.

Después de buscar y buscar por la web en encontré una solución que me funcionó: implementar la clase Microsoft.Reporting.WebForms.IReportViewerMessages con una clase. Esta clase hay que crearla en una carpeta especial denominada App_Code.

Para que el control ReportViewer utilice la clase, hay que crear una variable en el archivo web.config, en el grupo appSettings.

<add key="ReportViewerMessages" value="MensajesReportViewer.ES, App_Code"/>

MensajesReportViewer es el nombre del NameSpace y ES es el nombre de la clase. Si te da miedo tocar el archivo web.config podrás crear la variable desde el Administrador IIS: Seleccionas la aplicación con el botón derecho y eliges propiedades. En la pestaña ASP.NET pulsas el botón Editar configuración. Aparecerá una ventana en la que agregarás en Configuración de la aplicación

El código de la clase es el siguiente:

Imports Microsoft.VisualBasic
Namespace RVM
Public Class MiCultura
             Implements Microsoft.Reporting.WebForms.IReportViewerMessages
Public ReadOnly Property BackButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.BackButtonToolTip
  Get
    Return "Atrás"
  End Get
End Property

Public ReadOnly Property ChangeCredentialsText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ChangeCredentialsText
  Get
    Return "Cambiar Credenciales"
  End Get
End Property

Public ReadOnly Property ChangeCredentialsToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ChangeCredentialsToolTip
  Get
    Return "Cambiar Credenciales"
  End Get
End Property

Public ReadOnly Property CurrentPageTextBoxToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.CurrentPageTextBoxToolTip
  Get
    Return "Página actual"
  End Get
End Property

Public ReadOnly Property DocumentMap() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.DocumentMap
  Get
    Return "Mapa"
  End Get
End Property

Public ReadOnly Property DocumentMapButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.DocumentMapButtonToolTip
  Get
    Return "Mapa del documento"
  End Get
End Property

Public ReadOnly Property ExportButtonText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ExportButtonText
  Get
    Return "Exportar"
  End Get
End Property

Public ReadOnly Property ExportButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ExportButtonToolTip
  Get
    Return "Exportar"
  End Get
End Property

Public ReadOnly Property ExportFormatsToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ExportFormatsToolTip
  Get
    Return "Formatos de exportación"
  End Get
End Property

Public ReadOnly Property FalseValueText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FalseValueText
  Get
    Return "Falso"
  End Get
End Property

Public ReadOnly Property FindButtonText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FindButtonText
  Get
    Return "Buscar"
  End Get
End Property

Public ReadOnly Property FindButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FindButtonToolTip
  Get
    Return "Buscar"
  End Get
End Property

Public ReadOnly Property FindNextButtonText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FindNextButtonText
  Get
    Return "Siguiente"
  End Get
End Property

Public ReadOnly Property FindNextButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FindNextButtonToolTip
  Get
    Return "Siguiente"
  End Get
End Property

Public ReadOnly Property FirstPageButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.FirstPageButtonToolTip
  Get
    Return "Primera página"
  End Get
End Property

Public ReadOnly Property InvalidPageNumber() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.InvalidPageNumber
  Get
    Return "Página no válida"
  End Get
End Property

Public ReadOnly Property LastPageButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.LastPageButtonToolTip
  Get
    Return "Última página"
  End Get
End Property

Public ReadOnly Property NextPageButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.NextPageButtonToolTip
  Get
    Return "Siguiente página"
  End Get
End Property

Public ReadOnly Property NoMoreMatches() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.NoMoreMatches
  Get
    Return "No se encuentran más coincidencias"
  End Get
End Property

Public ReadOnly Property NullCheckBoxText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.NullCheckBoxText
  Get
    Return "Nulo"
  End Get
End Property

Public ReadOnly Property NullValueText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.NullValueText
  Get
    Return "Nulo"
  End Get
End Property

Public ReadOnly Property PageOf() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.PageOf
  Get
    Return "de"
  End Get
End Property

Public ReadOnly Property ParameterAreaButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ParameterAreaButtonToolTip
  Get
    Return "Mostrar u ocultar parámetros"
  End Get
End Property

Public ReadOnly Property PasswordPrompt() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.PasswordPrompt
  Get
    Return "Contraseña"
  End Get
End Property

Public ReadOnly Property PreviousPageButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.PreviousPageButtonToolTip
  Get
    Return "Página anterior"
  End Get
End Property

Public ReadOnly Property PrintButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.PrintButtonToolTip
  Get
    Return "Imprimir"
  End Get
End Property

Public ReadOnly Property ProgressText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ProgressText
  Get
    Return "El informe se está generando"
  End Get
End Property

Public ReadOnly Property RefreshButtonToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.RefreshButtonToolTip
  Get
    Return "Actualizar"
  End Get
End Property

Public ReadOnly Property SearchTextBoxToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.SearchTextBoxToolTip
  Get
    Return "Buscar texto"
  End Get
End Property

Public ReadOnly Property SelectAll() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.SelectAll
  Get
    Return "(Seleccionar Todo)"
  End Get
End Property

Public ReadOnly Property SelectAValue() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.SelectAValue
  Get
    Return "<Seleccione un valor>"
  End Get
End Property

Public ReadOnly Property SelectFormat() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.SelectFormat
  Get
    Return "Seleccionar un formato"
  End Get
End Property

Public ReadOnly Property TextNotFound() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.TextNotFound
  Get
    Return "Texto no encontrado"
  End Get
End Property

Public ReadOnly Property TodayIs() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.TodayIs
  Get
    Return "Hoy es"
  End Get
End Property

Public ReadOnly Property TrueValueText() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.TrueValueText
  Get
    Return "Verdadero"
  End Get
End Property

Public ReadOnly Property UserNamePrompt() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.UserNamePrompt
  Get
    Return "Usuario"
  End Get
End Property

Public ReadOnly Property ViewReportButtonText1() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ViewReportButtonText
  Get
    Return "Ver informe"
  End Get
End Property

Public ReadOnly Property ZoomControlToolTip() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ZoomControlToolTip
  Get
    Return "Zoom"
  End Get
End Property

Public ReadOnly Property ZoomToPageWidth() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ZoomToPageWidth
  Get
    Return "Ancho de página"
  End Get
End Property

Public ReadOnly Property ZoomToWholePage() As String Implements Microsoft.Reporting.WebForms.IReportViewerMessages.ZoomToWholePage
  Get
    Return "Toda la página"
  End Get
End Property
End Class
End Namespace

Yo utilizo Visual Studio 2008 y facilita enormemente la tarea ya que al teclear Implements y la clase, al pulsar intro, él sólo introduce casi todo el código. Sólo hay que ir rellenando las propiedades con el Return correspondiente.

Los discos duros SATA empiezan a tener más apreciación tendiendo a sustituir a los IDE debido al incremento de velocidad que ofrecen. Los fabricantes de placas base empiezan a implemenar el standar de hace años, cuando la tecnología era joven y cara. Ahora como los precios de los discos SATA han bajado a niveles donde cualquiera puede decidir si elige un disco SATA o un IDE, se ha observado una gran migración de los usuarios comunes de ordenador.

Estos eligen instalar Windows y aplicaciones en discos SATA porque proporciona más velocidad que determina que el sistema vaya más ligero. Por ello para aquellos que tengan placas base antiguas con soporte SATA, necesitan un paso extra si intentan instalar Windows XP. Windows XP no proporciona drivers para todas las controladoras SATA, para estos casos, durante el procedimiento de instalación, el usuario debe insertar un disquete con los drivers que vienen con la placa.

No es un gran esfuerzo, pero lo gracioso es que un gran número de gente no tiene disqueteras. Bajo estas circunstancias, sin disquete no se puede instalar Windows XP en un disco SATA (en algunas placas). El resultado? La instalación simplemente no dectectará del disco SATA.

Aquí os presento un método para evitar este inconveniente con un truco.

Vayamos poco a poco. Tenemos un problema estrictamente de driver porque el driver SATA que necesitamos no viene con el paquete de instalación de Windows XP. Qué pasa si nosotros añadimos del driver por nuestra cuenta antes de instalar Windows?

Ingredientes:

• El CD original de instalación de Windows XP
• Una aplicación Freeware llamada Nlite
• Un CD en blanco
• Además necesitamos los drivers de la controladora SATA proporcionada por el fabricante. En caso de no encontrar ningún disquete de la placa o no puedes localizarlo en el CD de la placa, puedes consultar la web del fabricante para bajar la última versión.

Proceso:

Primero descarga el driver y descomprímelo en una carpeta. Luego descarga e instala la aplicación Nlite.

Cuando inicies Nlite te preguntará sobre el CD de instalación de Windows XP. Inserta un CD original. Pulsar Siguiente y empezará la copia.

Para insertar los drivers SATA en el paquete de instalación necesitarás tenerlo salvado en el disco duro. Cuando te aparezca una ventana de aviso pulsa OK y selecciona la carpeta de destino donde se van a guardar los archivos.

Ahora pulsa Siguiente dos veces hasta que veas una ventana donde te aparezcan unas opciones ordenadas en 4 categorías: Integrar, Borrar, Configurar, Crear.

Estamos interesados en el procedimiento de integración, entonces seleccionde el botón Integrar Controladores y pulsa Siguiente. En el siguiente menu pulsa Insertar y selecciona “Carpeta de múltiples controladores” en el menú desplegable. Esta opción te permite buscar la carpeta donde descargastes el driver.

Selecciona la carpeta correspondiente y pulsa Siguiente.

Obtendrás una lista de drivers disponibles (en el caso de que haya más de uno) o simplemente un driver.

Selecciónalos y pulsa Siguiente.

Ahora la aplicación nos preguntará si queremos iniciar el procedimiento de integración. Elegir Si y esperar a que los drivers se integren en el paquete de instalación.

Con el driver de marras incluído en el CD de instalación, ahora puedes instalar Windows XP en tu disco SATA … pero … el paquete de instalación está en el disco duro. Necesitas un CD Autoarrancable primero para iniciar la instalación. No te preocupes, una vez que la instalación haya sido adornada con los drivers que el usuario necesite, se podrá transformar en una imagen de disco autoarrancable y luego grabarla en CD. Para encapsular la instalación en una imagen ISO utilizamos la misma aplicación Nlite.

Abre el Nlite. Asegúrate de seleccionar la carpeta de instalación y pulsa Next. Selecciona la Ultima Sesión y pulsa Siguiente otra vez. Ahora desde el menú de opciones elige Crear ISO Autoarrancable y pulsa Siguiente.

En la siguiente ventana asegúrate de que el modo esté marcado como Crear Imagen y pulsa Crear ISO. La imagen ISO se grabará en la carpeta que queramos. Una vez que el proceso de grabación de imagen finalice podrás grabarlo en un CD con cualquier grabador de CD

Lo he probado en un Toshiba Tecra M9 (PTM91E) y funcionó.

Enlaces:

Este post lo he traducido de una página de Softpedia escrita por Dragos Jijau.

Pongamos un ejemplo

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e as System.EventArgs) Handles CmdIniciar.Click

  ‘Espera 91 segundos. Por defecto ASP.NET el TimeOut son 90 S.

  Thread.Sleep(91000)

  ‘Para utilizar Thread debe estar importado System.Threading

End Sub

El proceso Batch

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e as System.EventArgs) Handles CmdIniciar.Click

   Dim ts as ThreadStart = New ThreadStart(AddressOf Calcula)

   Dim Trabajo as Thread = New Thread(ts)

   Trabajo.Start()

End Sub

Private Sub Espera()

   Thread.Sleep(91000)

End Sub

Clases compatidas

 

Public Class TrabajoBatch Private Shared _Procesando As Boolean = False

   Private Shared _Mensaje As String = “”

   Public Shared ReadOnly Property Procesando() As Boolean

      Get Return _Procesando

      End Get End

   Property Public Shared Property Mensaje() As String

      Get

         Mensaje = _Mensaje

      End Get

      Set(ByVal value As String)

         _Mensaje = value

      End Set

   End Property

   Public Shared Sub Procesar()

      _Procesando = True

      _Mensaje = “”

   End Sub

   Public Shared Sub Terminado()

      _Procesando = False

      _Mensaje = “”

   End Sub

End Class

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e as Private Sub Espera()

   TrabajoBatch.Procesar()

   Thread.Sleep(91000)

   TrabajoBatch.Terminado()

End Sub

Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   lblTexto.Text = TrabajoBatch.Mensaje

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

   If Not IsPostBack Then

      Timer1.Interval = 1000 

      Timer1.Enabled = False

   End If

   If TrabajoBatch.Procesando Then

      CmdIniciar.Enabled = False

      Timer1.Enabled = True

   Else

      CmdIniciar.Enable = True

      Timer1.Enabled = False

   End If

End Sub

como se indica en la página, para averiguar los atributos de LDAP que se pueden utilizar, basta con ejecutar el comando CSVDE -f Exportfile.csv y abrir el archivo que se genera (Exportfile.csv)

Active Directory

Editamos el usuario que se va a conectar al Oracle BIEE y en el campo de Departamento, por ejemplo, introducimos los valores que queramos separados por el símbolo punto y coma.

Configurar el Administrador de BIEE

En la herramienta de adminstración creamos un script de inicialización con los siguientse valores:

• Name: Nombre del script
• Data source: El Servidor LDAP que creamos en el post anterior.
• Podemos marcar la casilla Required for authentication para que se ejecute obligatoriamente en la validación de los usuarios
• Variable target: Pulsar el botón Edit Data Target para crear las variables que vamos a necesitar:
  • USER: para el login del usuario. Asociarlo a la propiedad sAMAccountName.
  • DISPLAYNAME: El nombre completo. Asociarlo a la propiedad displayName.
  • GROUP: El o los grupos. Asociarlo a la propiedad department.

Podemos probar si funciona pulsando el botón test. Se abre una ventana donde nos pide usuario y contraseña y si todo está bien nos presentará el contenido de las variables.

Posts relacionados:

• Integrar Oracle BIEE con Active directory
• Foro OBI Adiante

Servidor LDAP
Primero vamos a conectar el BIEE con el Active Directory. Para ello desde la herramienta de Administración crearemos un servidor LDAP.
Una vez abierto el repositorio (normalmente el que está online), en el menú Manage, seleccionamos Security. Creamos un nuevo servidor LDAP.

• Name: Le damos un nombre a la conexión
• Host name: especificamos el nombre del servidor que aloja el Active Directory
• Port number: por defecto el puerto de Active Directory es el 389
• Base DN: Es la ruta donde va a buscar el usuario. Normalmente es CN=Users,dc=dominio
• Bind DN: Es el nombre de usuari con el que nos vamos a conectar. Si no funciona el test (botón Test connection) puede que haya que añadir al usuario el texto @dominio con el nombre del dominio completo.
• Bind Password: es la contraseña del usuario en el Active Directory

Para comprobar que los datos son correctos podemos pulsar el botón Test connection.

En la ficha Advanced poner en Domain identifier el nombre completo del dominio. Marcar ADSI para indicar que es un Active Directory. Pulsar el botón aceptar y el servidor LDAP ya se crea.

Ahora si todo está bien configurado, cuando un usuario acceda al servidor podrá utilizar el usuario y contraseña con el que accede normalmente. El nombre del usuario no tiene que llevar delante el dominio al que pertenece ya que el servidor LDAP va a ir a buscarlo al dominio que está configurado.

Pongamos un ejemplo

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e as System.EventArgs) Handles CmdIniciar.Click
    'Espera 91 segundos. Por defecto ASP.NET el TimeOut son 90 S.
    Thread.Sleep(91000)
    'Para utilizar Thread debe estar importado System.Threading
End Sub

El proceso Batch
Para solucionarlo he utilizado un ThreadStart y un Thread de la siguiente forma:

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e as System.EventArgs) Handles CmdIniciar.Click
    Dim ts as ThreadStart = New ThreadStart(AddressOf Espera)
    Dim Trabajo as Thread = New Thread(ts)
    Trabajo.Start()
End Sub
Private Sub Espera()
    Thread.Sleep(91000)
End Sub

El problema que tengo ahora es que no sé si el proceso batch termina correctamente ya que se ejecuta como un proceso aparte y el usuario no se entera.

Clases compatidas
La solución a este segundo problema la solventé con una clase compartida. Se pueden crear clases reutilizables guardándolas en una carpeta denominada App_Code. Al crear un nuevo elemento en el proyecto de tipo clase, Visual Studio nos avisa de ello:

Podeis encontrar más información en Microsoft.

El código de la clase sería:

Public Class TrabajoBatch
    Private Shared _Procesando As Boolean = False
    Private Shared _Mensaje As String = ""
    Public Shared ReadOnly Property Procesando() As Boolean
        Get
            Return _Procesando
        End Get
    End Property
    Public Shared Property Mensaje() As String
        Get
            Mensaje = _Mensaje
        End Get
        Set(ByVal value As String)
            _Mensaje = value
        End Set
    End Property
    Public Shared Sub Procesar()
        _Procesando = True
        _Mensaje = ""
    End Sub
    Public Shared Sub Terminado()
        _Procesando = False
        _Mensaje = ""
    End Sub
End Class

Ahora podemos modificar la página con el siguiente código:

Protected Sub CmdIniciar_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles CmdIniciar.Click
        Dim ts As ThreadStart = New ThreadStart(AddressOf Espera)
        Dim workerThread As Thread = New Thread(ts)
        workerThread.Start()
End sub
Private Sub Espera()
    TrabajoBatch.Procesar()
    TrabajoBatch.Mensaje = "Trabajo iniciado."
    Thread.Sleep(91000)
    TrabajoBatch.Terminado()
    TrabajoBatch.Mensaje = "Finalizado."
End Sub

Añadimos a la página un control timer y una etiqueta para comprobar cada cierto tiempo el estado del trabajo, y en el evento Tick ponemos lo siguiente:

    Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lblTexto.Text = TrabajoBatch.Mensaje
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Timer1.Interval = 1000
            Timer1.Enabled = False
        End If
        If TrabajoBatch.Procesando Then
            CmdIniciar.Enabled = False
            Timer1.Enabled = True
        Else
            CmdIniciar.Enable = True
            Timer1.Enabled = False
        End If
    End Sub

Desde el código de Visual Basic o C# podemos acceder a la cadena de conexión con el método SqlDataSource1.ConnectionString.

ConnectionString
Hasta hace poco en mis páginas, cuando necesitaba acceder a la base de datos por algún motivo, lo que hacía era insertar un control SQLDataSource sólo para obtener esa cadena de conexión. Pero descubrí que también podemos acceder a dicha cadena si la tenemos guardada en el archivo web.config.

Para ello basta con teclear lo siguiente:

Dim Cnn as SqlConnection
Cnn = New SqlConnection
Cnn.ConnectionString = ConfigurationManager.ConnectionStrings("NombreConexión").ToString

Dim Cnn as New SqlConnection (ConfigurationManager.ConnectionStrings("NombreConexión").ToString)

De esta forma evitamos sobrecargar la página con controles.

un saludo.