datagridview e tabela temporaria

[Carlos Rocha]

Pode sim. Obrigado e me desculpe por isso.

É a vontade de fazer dar certo a qualquer custo mesmo que isto inflinja as regras do fórum. Por isso pesso desculpas. Me descuidei.

Mas, a situação agora mudou de quadro.

já que você esta ai, a situaçao agora é a seguinte:

Fiz (risos) duas funçoes que retornam um dataset.

Uma com tabelas temporarias e outro com tabelas vinda do MySql.

Veja o código:

Public Function ExecuteDSTEMP(ByVal sql As String) As DataSet
        Dim datasetitenspedidos = New DataSet()
        Dim da As MySqlDataAdapter = New MySqlDataAdapter()
        ' Definindo variável de tabela 
        Dim dtPed As New DataTable("detalhespedidos")
        dt.TableName = "itens"
        Dim NomeTabela As String = dt.TableName
        Try
            OpenConnection()
            ' Definindo os campos da Tabela 
            dtPed.Columns.Add("pedidoID", GetType(Integer))
            dtPed.Columns.Add("produtoID", GetType(Integer))
            dtPed.Columns.Add("unidade", GetType(Char))
            dtPed.Columns.Add("descricao", GetType(String))
            dtPed.Columns.Add("preço", GetType(Decimal))
            dtPed.Columns.Add("quantidade", GetType(Integer))
            dtPed.Columns.Add("subtotal", GetType(Decimal))
            datasetitenspedidos.Tables.Add(dtPed)
            cmd.CommandType = CommandType.Text
            cmd.CommandText = sql
            cmd.Connection = Conexao
            da.SelectCommand = cmd
            da.Fill(datasetitenspedidos, NomeTabela)
            dt = datasetitenspedidos.Tables(NomeTabela)
            da.Dispose()
            Return datasetitenspedidos
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return datasetitenspedidos
    End Function

    Public Function ExecuteDS(ByVal sql As String, ByRef tabela As String) As DataSet
        Dim ds As New DataSet
        Dim da As MySqlDataAdapter = New MySqlDataAdapter()

        Try
            OpenConnection()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = sql
            cmd.Connection = Conexao
            da.SelectCommand = cmd
            da.Fill(ds, tabela)
            dt = ds.Tables(tabela)
            da.Dispose()
            Return ds
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return ds
    End Function

Bom, tenho uma daqtaGridView ligada ao dataset ExecuteDS através de datasource para exibir os detalhes de pedidos no formulario de pedidos. Eu preciso: Pegar cada linha que esta na DataGridView e entrgar aos Fields da tabela detalhespedidos que esta na função ExecuteDSTEMP e depois fazer .datasource =Notthing e manter os dados na DataGridtview para o caso de editar os ítens. Tentei com o código abaixo mas não deu. O que eu faço?

Public Sub entrega_item_item()
             For O As Integer = 0 To 0 = DGWPedidos.Rows.Count
                'ds_itens_temp.Tables(0).Rows.Add()
                ds_itens_temp.Tables(0).Rows().Add(DGWPedidos.Rows(O).Cells(1).Value, DGWPedidos.Rows(O).Cells(1).Value, DGWPedidos.Rows(O).Cells(2).Value, DGWPedidos.Rows(O).Cells(3).Value, DGWPedidos.Rows(O).Cells(4).Value, DGWPedidos.Rows(O).Cells(5).Value, DGWPedidos.Rows(O).Cells(6).Value)
            Next
    End Sub

Editado Dezembro 2, 2008 por Carlos Rocha