Recorrer dataGrid

[proteus8]

Hola Amigos, tengo un DataGrid el cual lleno con información de una tabla de una base de datos que está en SQLite, lo que necesito es que una ves que muestro los datos en el datagrid es recorrer este datagrid e ir insertando la información de sus filas en otra tabla de la base de datos.
como se hace esto? Me pueden ayudar por favor.

Pongo el código de como lleno mi datagrid.

Código vb:

Imports System
Imports System.Data
Imports System.IO
Imports System.Data.SQLite
Imports System.Windows.Forms.SystemInformation
Public Class Form5
    Dim cnnl As New SQLiteConnection
    Public consulta As String
    Dim Ada As New SQLiteDataAdapter()
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mySql As String
        cnnl = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;")
        cnnl.Open()
        mySql = "SELECT * FROM INS_INSPECCIONES_MOBILE_TMP"
        DataGrid1.DataSource = RecogerConsulta(mySql)
 
    End Sub
    Public Function RecogerConsulta(ByVal mySql As String) As DataTable
        Dim tmpTable As New DataTable
        Try
            Ada = New SQLiteDataAdapter(mySql, cnnl)
            Ada.Fill(tmpTable)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try
        Return tmpTable
    End Function
End Class
 

Desde ya muchas gracias.

[Aquaventus]

Hola proteus8 puedes hacer algo como esto :

Código vb.net:

Public Sub metodo()
        'creas las variables segun la cantidad de campos
        'que tenga tu consulta
        Dim campo1, campo2, campo3, campo4, campo5 As String
 
 
        For f As Integer = 0 To DataGrid1.Rows.Count - 1 'X filas
            For c As Integer = 0 To DataGrid1.Columns.Count - 1 'Asumamos 5 campos
                If c = 0 Then
                    campo1 = DataGrid1.Rows(f).Cells(c).Value
                ElseIf c = 1 Then
                    campo2 = DataGrid1.Rows(f).Cells(c).Value
                ElseIf c = 2 Then
                    campo3 = DataGrid1.Rows(f).Cells(c).Value
                ElseIf c = 3 Then
                    campo4 = DataGrid1.Rows(f).Cells(c).Value
                Else
                    campo5 = DataGrid1.Rows(f).Cells(c).Value
                End If
            Next
            Dim mySql As String
            cnnl = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;")
            cnnl.Open()
            mySql = "INSERT INTO TUTABLA VALUES('" + campo1 + "','" + campo2 + "','" + campo3 + "','" + campo4 + "','" + campo5 + "')"
            insertarConsulta(mySql)
        Next
    End Sub
 
     sub insertarConsulta(ByVal mySql As String)
        Try
            Ada = New SQLiteDataAdapter(mySql, cnnl)
            '...TU CODE
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try
    End Sub
 

Espero te sea de utilidad. Saludos!

[proteus8]

Aquaventus muchas gracias por tu ayuda, pero no me aparecen las opciónes

DataGrid1.Rows.Count
DataGrid1.Columns.Count

puede ser don es una aplicación .NET Compact Framework 2.0 para Windows CE 5.0.?

[Aquaventus]

uh... haber mandame tu proyect a mi correo, lo analizo y te escribo la solucion.Pense que era desktop la aplicacion... mi correo esta debajo de mi avatar.