El método DataAdapter.Fill no establece todas las propiedades de los objetos DataTable y DataColumn

• Llame al método DataAdapter.FillSchema para obtener información de esquema extendido.
• Establecer se haya dado el valor MissingSchemaAction.AddWithKey a DataAdapter.MissingSchemaAction antes de llamar al método Fill .

Volver al principio

Pasos para reproducir el comportamiento

1. Inicie Microsoft Visual Studio NET..
2. Abra un nuevo proyecto de aplicación para Windows en Visual Basic .NET. Form1 se agrega al proyecto de manera predeterminada.
3. Asegúrese de que el proyecto contiene una referencia al espacio de nombres System.Data .
4. Coloque un control Button y un control DataGrid en Form1.
5. Cambie la propiedad Name del botón a btnTest y la propiedad Text a prueba .
6. Utilice la instrucción Imports de los espacios de nombres System y System.Data de para que no se pida calificar declaraciones en esos espacios de nombres más adelante en el código. Agregue el código siguiente a la sección "General Declarations" de Form1:

   Imports System
   Imports System.Data.OleDb
   Imports System.Data.SqlClient
   					

7. Agregue el código siguiente en la ventana después de la región "Código generado por el Diseñador de Windows Forms":

       Private Sub btnTest_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles btnTest.Click
           Dim myConnString As String = _
                   "User ID=sa;password=sa;Initial Catalog=Northwind;Data Source=myServer"
           Dim ds As New DataSet()
           Dim con As New SqlConnection(myConnString)
           Dim daCust As New SqlDataAdapter("Select * From Customers", con)
           'Uncomment either of the following two lines to obtain additional schema information.
           'daCust.MissingSchemaAction = MissingSchemaAction.AddWithKey
           'daCust.FillSchema(ds, SchemaType.Source, "Cust")
           daCust.Fill(ds, "Cust")
   
           DataGrid1.DataSource = ds
           DataGrid1.DataMember = "Cust"
   
           Dim colArr() As DataColumn
           colArr = ds.Tables(0).PrimaryKey
           If colArr.Length.ToString() = 0 Then
               MessageBox.Show("No Primary Key is defined.")
           End If
   
           Dim i As Integer
           For i = 0 To colArr.GetUpperBound(0)
               MessageBox.Show("Primary Key : " & colArr(i).ColumnName)
           Next i
       End Sub
   					

8. Modifique la cadena de conexión ( myConnString ) según corresponda para su entorno.
9. Guardar el proyecto. En el menú Depurar , haga clic en iniciar para ejecutar el proyecto.
10. Haga clic en prueba . Observe que no se puede recuperar la información de clave principal de la tabla.
11. Quite comentario el código para establecer MissingSchemaAction o utilizar FillSchema y haga clic nuevo prueba . Observe que la información de clave principal se recupera correctamente.

Volver al principio