Foros del web, para los que viven de bits

RsOfT · 15-sep-2006, 12:25

Estoy tratando de añadir un datatable a un dataset utilizando el método Add de su propiedad Tables.

Tengo la siguiente línea de Código:

Código:

dsDataSet.Tables.Add(cDB.EjecutaSQL("SELECT CodMat, DesLar FROM InPresen"))

y el método de la Clase cDB es:

Código:

Public Function EjecutaSQL(ByVal strSQL As String) as DataTable
    daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn)
    EjecutaSQL = New Data.DataSet
    daDataAdapter.Fill(EjecutaSQL)
    Return EjecutaSQL.Tables(0)
End Function

Pero me da el siguiente error:
DataTable already belongs to another DataSet

¿Qué estoy haciendo mal?

moNTeZIon · 27-sep-2006, 17:00

Hola RsOft,
Entiendo que "EjecutaSQL" es el nombre de la funcion, que es tipo DataTable.
En el Return devuelves "EjecutaSQL.Tables(0)". Pero no debería tener una colección Tables, si ya es un DataTable. Deberías devolver solamente una variable de tipo DataTable. Y también pienso que crearte un Dim tabla As DataTable y trabajar con este. Y finalmente Hacer un Return tabla.
A parte también asignas EjecutaSQL a un new DataSet..
Yo cambiaría por algo así:

Código:

Public Function EjecutaSQL(ByVal strSQL As String) as DataTable
    daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn)
    Dim dS as New Data.DataSet
    daDataAdapter.Fill(dS, "NombreTabla")
    Return dS.Tables(0).Copy
End Function

A ver qué tal.
Un saludo RsOft.

15-sep-2006, 12:25	#1 (permalink)
RsOfT Fecha de Ingreso: noviembre-2002 Ubicación: InterNET Mensajes: 1.005	Añadir un DataTable utilizando el Método Add Estoy tratando de añadir un datatable a un dataset utilizando el método Add de su propiedad Tables. Tengo la siguiente línea de Código: Código: dsDataSet.Tables.Add(cDB.EjecutaSQL("SELECT CodMat, DesLar FROM InPresen")) y el método de la Clase cDB es: Código: Public Function EjecutaSQL(ByVal strSQL As String) as DataTable daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn) EjecutaSQL = New Data.DataSet daDataAdapter.Fill(EjecutaSQL) Return EjecutaSQL.Tables(0) End Function Pero me da el siguiente error: DataTable already belongs to another DataSet ¿Qué estoy haciendo mal? __________________ .::RsOfT::. --El que se aferra a lo conocido, nunca conocerá lo desconocido-- --Es intentando lo imposible como se realiza lo posible-- --Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance--

27-sep-2006, 17:00	#2 (permalink)
moNTeZIon Fecha de Ingreso: enero-2005 Ubicación: CanFenosa Martorelles BCN Mensajes: 1.298	Hola RsOft, Entiendo que "EjecutaSQL" es el nombre de la funcion, que es tipo DataTable. En el Return devuelves "EjecutaSQL.Tables(0)". Pero no debería tener una colección Tables, si ya es un DataTable. Deberías devolver solamente una variable de tipo DataTable. Y también pienso que crearte un Dim tabla As DataTable y trabajar con este. Y finalmente Hacer un Return tabla. A parte también asignas EjecutaSQL a un new DataSet.. Yo cambiaría por algo así: Código: Public Function EjecutaSQL(ByVal strSQL As String) as DataTable daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn) Dim dS as New Data.DataSet daDataAdapter.Fill(dS, "NombreTabla") Return dS.Tables(0).Copy End Function A ver qué tal. Un saludo RsOft. __________________ ..:: moNTeZIon ::.. Última edición por moNTeZIon; 27-sep-2006 a las 17:23.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado