Ver Mensaje Individual
  #2 (permalink)  
Antiguo 05/11/2006, 15:22
eduardo90
(Desactivado)
 
Fecha de Ingreso: julio-2006
Mensajes: 273
Antigüedad: 18 años, 8 meses
Puntos: 5
Ya lo solucioné

Era bien fácil, gracias por su interes, haa tengo otra duda como adiero esta tabla a la base de datos

Imports System.Data.SqlClient

Public Class Form1

Private oDataRow As DataRow
Private oDataAdpater As New SqlDataAdapter
Private oDataSet As DataSet
Private pos As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oDataRow As DataRow

'Crea las filas y las adiere
oDataRow = Me.oDataSet.Tables("Persona").NewRow()
oDataRow("Nombres") = Me.txtN.Text
oDataRow("Apellidos") = Me.txtA.Text

'Adiere las filas a la tabla
Me.oDataSet.Tables("Persona").Rows.Add(oDataRow)

Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Persona"
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.oDataSet = New DataSet
'Crear un nombre para la tabla
oDataSet.Tables.Add("Persona")

'Crea los nombres para las columnas
oDataSet.Tables("Persona").Columns.Add("Nombres")
oDataSet.Tables("Persona").Columns.Add("Apellidos" )
End Sub
End Class