![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
22/10/2009, 17:48
|
| | Fecha de Ingreso: enero-2008
Mensajes: 39
Antigüedad: 17 años Puntos: 0 | |
Respuesta: añadir un registro con visual basic 2008 Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Creamos el conjunto de datos
ds = CreateDataSetOleDb("Provider=Microsoft.ACE.OLEDB.1 2.0;" & _
"Data Source=C:\circulo.accdb", _
"SELECT id,nombre, direccion, telefono FROM clientes", _
"clientes")
If ds Is Nothing Then Exit Sub
bmb = Me.BindingContext(ds, "clientes")
' Procedemos a enlazar los controles de texto
Label2.DataBindings.Add("text", ds, "clientes.nombre")
Label4.DataBindings.Add("Text", ds, "clientes.direccion")
Label6.DataBindings.Add("Text", ds, "clientes.telefono")
Label7.DataBindings.Add("text", ds, "clientes.id")
Label9.Text = bmb.Count
' Actualizar
With bmb
.Position = .Count
.Position = 0
End With
asi lo estoy haciendo asi tienes una idea no es un control como ves lo estoy haciendo todo a base de codigo |