INSERT DE DADOS SELECIONADOS EM DATAGRID

 Tópico anterior Próximo tópico Novo tópico

INSERT DE DADOS SELECIONADOS EM DATAGRID

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#479437 - 04/02/2018 19:51:47

LEOCRPTORRES
PASSO DE TORRES
Cadast. em:Dezembro/2017


No código abaixo insiro dados no banco de dados. Mas eu não sei como posso alterar (Sou novato)  para inserir  os dados multiplos (selecionados  - checkbox) de um datagrid (sem perder a função )
Gostaria apenas de no código abaixo mandar inserir através dos dados selecionados no Grid.
Se alguem puder me ajudar agradeceria muito.

o mais proxmo que encontrei foi isso
http://www.c-sharpcorner.com/UploadFile/33b051/delete-multiple-record-from-a-datagridview-using-checkbox-i/

Mas não sei ajustar ao meu código

Public Function Pagamentos() As Boolean
    Dim cd As New NpgSqlCommand
Dim query As String = ""
  Try

     query &= " INSERT INTO Caixa (Recibo, CentroCusto, Data, Dia, Mes, Ano, CentroCustoResumo,DescricaoCentroCusto,CodSubCentroCusto,DescSubCentroCusto,Eventos,Historico,Dinheiro,Cheque,Cartao,DepositoDireto,Total) "
        query &= String.Format(" VALUES ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}') ", iRecibo, sCentroCusto, sData, sDia, sMes, sAno, sCentroCustoResumo, sDescricaoCentroCusto, sCodSubCentroCusto, sDescSubCentroCusto, sEventos, sHistorico, sDinheiro, sCheque, sCartao, sDepositoDireto, sTotal)

      cd.CommandText = query
        cd.CommandType = CommandType.Text

        If Conexao.NonQuery(cd) Then
           sStatus = "Dados do Recibo " & iRecibo & " inserido com sucesso!"
          Return True
        End If
    Catch ex As Exception
        sStatus = ex.Message
   End Try
    Return True
End Function



#479444 - 05/02/2018 12:54:47

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
De onde estão vindo essas variáveis de valores?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#479446 - 05/02/2018 15:33:30

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Me manda mensagem em privado pedindo ajuda, quando ajudo, não responde... vai entender.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário