DATAGRID

ESPEGAL
28 de Diciembre del 2004
Me podeis indicar como seria el codigo para introducir datos en un datagrid desde los datos que ingreso por medio de textbox(todo en el mismo formulario) y luego como desde el datagrid los añado a una base datos access 2000

mvallejos
28 de Diciembre del 2004
No se entiende muy bien, pero, ahí vamos.
La unica manera de introducir datos en un DataGrid y posteriormente a una base de datos, es trabajar on recordsets Desconectados.
Esto es, armar un recordset en tiempo de ejecución
para cargarle datos cargados manualmente en tu formulario.

Ejemplo

Dim Rs as New ADODB.Recordset

Rs.Fields.Append "IdCliente", AdInteger
Rs.Fields.Append "Apellido", AdVarchar, 35
Rs.Fields.Append "Nombres", AdVarchar, 35
Rs.CursorLocation = adUseClient
Rs.CursorType = AdOpenDynamic
Rs.Open

Luego, se le cargan valores desde los controles del formulario

Rs.AddNew
rs!IdCliente = Cint(Text1.Text)
Rs!Apellido = Text2.Text
Rs!Nombres = Text3.Text
Rs.UpDate


Y, para que estos datos se vean en el DataGrid

Set Datarid1.DataSorurce = Rs
DataGrid1.refresh


Finalmente, para guardarlos en una base de datos, puedes usar transaciones

Rs.MoveFirst
Do While Not Rs.EOF

Sql="Insert Into Clientes(IdCliente,Apellido,Nombres)"
sql = sql & " Values ("
sql = sql & Rs.IdCliente
sql = sql & ",'" & Rs!Apellido & "'"
sql = sql & ",'" & Rs!Nombres & "'"
sql = sql & ")"

Conexcion.Execute Sql

Rs.MoveNext
Loop

Donde Conexion es una variable de tipo ADODB.Connection apuntada a tu base access

espero que sirva

Saludos