Visual Basic - Insertar Registros desde Datagrid1

Life is soft - evento anual de software empresarial
   
Vista:

Insertar Registros desde Datagrid1

Publicado por makypuc (20 intervenciones) el 28/07/2010 16:05:37
Hola a todos... necesito ayuda con un datagrid... el tema es el siguiente:
Tengo un datagrid1 el cual lo lleno con datos de un archivo txt, lo que necesito hacer y no me sale es insertar todos los registros de ese datagrid1 a una tabla sql server...

Este es el codigo que utilizo para llenar el datagrid1 con el archivo txt:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
On Error Resume Next
' cursor del lado del cliente
cn.CursorLocation = adUseClient

' abre el archivo de texto finsip.txt ubicado en el app.path
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & ";" _
& "Extended Properties='text;HDR=NO;FMT=Delimited'"

' Ejecuta la consulta sql para llenar el recordset

rs.Open "Select * from finsi.txt", cn, adOpenStatic

' enlaza el recordset con el DataGrid
Set DataGrid1.DataSource = rs

End Sub

En el codigo de arriba yo cargo el datagrid1 con el archivo txt llamado finsi.txt, lo que necesito es insertar todas las filas del datagrid1 a una tabla sql... estoy utilizando Visual Basic 6.0

Muchas Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder