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