DATAGRID
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
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
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
