DataSet tipado - no me muestra ningun dato

[xDriver]

He creado un dataset tipado enlazado a SQLServer2005 segun la info del guille
elguille.info/NET/ADONET/base_sql_asistente_express.htm

El resultado es este, revisen la imagen esta todo ok
img.tomatone.net/big/dataset.png

Ahora intento visualizar datos atravez de este ejemplo pero no ocurre nada, no
se genera ningun error solo me muestra el mensaje "Se termino el ejemplo" donde puedo estar fallando.

Código:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Dim MiSqlConnection As New SqlConnection("Data Source=.\SQLEXPRESS; Initial Catalog=ventas; Integrated Security=True")

            Dim MiSqlDataAdapter As New SqlDataAdapter("SELECT*FROM categoria", MiSqlConnection)
            Dim MiDtTyped As New ventasDataSet
            MiSqlDataAdapter.Fill(MiDtTyped, "ejemplo")
            Dim MisDatos As ventasDataSet.CategoriaRow
            For Each MisDatos In MiDtTyped.Categoria
                MessageBox.Show(MisDatos.CodCat & " " & MisDatos.NomCat)
            Next
            MsgBox("Termino el ejemplo")
        Catch
            MsgBox("error")
        End Try
    End Sub

En la bd tengo varios registros, por que no me muestra la informacion?, la conexion es la misma en el dataset y en el codigo
Data Source=.\SQLEXPRESS; Initial Catalog=ventas; Integrated Security=True

saludos

[jarogo]

Hola, xDriver!

prueba este código, es casi como el tuyo:

Código:

Dim MisDatos as DataRow
Dim MiDtTyped As New DataSet
Dim MiSqlDataAdapter As SqlDataAdapter

MiSqlDataAdapter = New SqlDataAdapter("SELECT * FROM Categoria", MiSqlConnection)
MiSqlDataAdapter.Fill(MiDtTyped, "Categoria")

Msgbox "Filas devueltas por la consulta: " & MiDtTyped.Tables("Categoria").Rows.Count

For Each fila In MiDtTyped.Tables("Categoria").Rows
    Msgbox fila.Item("Codcat")
Next

A ver si te va!!

[xDriver]

Ya solucione!
Al ver tu codigo me di cuenta que utilizada "ejemplo" en lugar del nombre de la tabla, si cambio esa linea corre perfecto.
MiSqlDataAdapter.Fill(MiDtTyped, "ejemplo")
Pero no capto bien la idea, si no utilizo dataset tipados yo le podia poner cualquier nombre, asumo que es por que utilizo el archivo .xsd y dicho esquema toma como nombre al nombre de la tabla, saludos

[jarogo]

Hola de nuevo!

no es necesario que le pongas el nombre de la tabla. En mi ejemplo, si en vez de poner

Código:

MiSqlDataAdapter.Fill(MiDtTyped, "Categoria")

, pongo

Código:

MiSqlDataAdapter.Fill(MiDtTyped, "Prueba")

me funcionará igual.

Yo creo que el problema lo tenias en el bucle, porque aqui

Código:

For Each MisDatos In MiDtTyped.Categoria

estas recorriendo el dataset "categoria", cuando tu lo llamaste "ejemplo"

Código:

 MiSqlDataAdapter.Fill(MiDtTyped, "ejemplo")

Saludos!!

[xDriver]

El xDataSet.xsd es el esquema que se ha creado y esta asi fijate los nombres, no quize decir que tenia que poner el nombre de la tabla sino el nombre que esta en el esquema, asumo que con mi codigo no puedo cambiarlo

Código:

Dim MiSqlConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\ventas.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim MiSqlDataAdapter As New SqlDataAdapter("SELECT*FROM categoria", MiSqlConnection)

Dim MiDtTyped As New xDataSet1
MiSqlDataAdapter.Fill(MiDtTyped, "categoria")

Dim MisDatos As xDataSet1.CategoriaRow
For Each MisDatos In MiDtTyped.Categoria
      MessageBox.Show(MisDatos.CodCat & " " & MisDatos.NomCat)
Next

Ahora al utilizar tu codigo si me da la posibilidad de cambiarlo o renombrarlo, no le veo diferencia, ojo que estoy empezando recien con vb2005 y me parece haber leido que es un ventaja poder ver el nombre de los objetos en lugar de hacerlo a tu manera:
MiDtTyped.Categoria vs MiDtTyped.Tables
Cual es mas entendible, no le veo diferencia al codigo??

Código:

Dim MiSqlConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\ventas.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim MiSqlDataAdapter As New SqlDataAdapter("SELECT*FROM Categoria", MiSqlConnection)

Dim MiDtTyped As New xDataSet1
MiSqlDataAdapter.Fill(MiDtTyped, "Nuevo_nombre")
'MsgBox("Filas devueltas por la consulta: " & MiDtTyped.Tables("Nuevo_nombre").Rows.Count)

Dim Fila As DataRow
For Each Fila In MiDtTyped.Tables("Nuevo_nombre").Rows
      MsgBox(Fila.Item("Codcat"))
Next

[jarogo]

Hola de nuevo!!

por ese tipo de cosas yo escapo de crear datasets en modo diseño: me parece más fácil por código y (lo más importante) tienes control absoluto sobre él, lo diseñas a tu manera.

Yo te aconsejaría que te olvidaras del diseño e intentes hacer todo por código: te acabarás acostumbrando y evitarás este tipo de problemas...

Saludos!

[xDriver]

Hola jarogo gracias por la sugerencia, tienes razon lo mejor es tener el control absoluto pero segun lei para utilizar dataset con tipo hay que utilizar el archivo .xsd y me parece que en ambos caso lo hace debido a esta linea
Dim MiDtTyped As New xDataSet1, lo unico que varia es el modo de utilizar los datos del esquema, en resumen tu codigo utiliza dataset tipado o sin tipo?, ya que seria casi igual si utilizo esta linea Dim MiDtTyped As New DataSet y no utilizar el esquema del .xsd, estoy haciendo una mezcla algo rara, te envio un MP, saludos