SALVAR NO BANCO DE DADOS CADA LINHA DO MSFLEXGRID.

JABA 12/08/2012 12:20:04
#407790 Resposta escolhida

Veja se isso te atende:

http://www.macoratti.net/vb_msfed.htm
http://www.macoratti.net/vb_mflx2.htm
http://www.macoratti.net/vb6_msfg.htm
http://www.macoratti.net/vb_flex2.htm

vlw

RICKSOUSA 12/08/2012 12:35:06
#407791

meu amigo pelo que eu entendi, eu dei uma olhada no material que me mandou é muito bom para estudar.

mais esta ensinando como mostrar dados em um msflexgrid e oq eu preciso é gravar os dados que ja estão no msflexgrid e salvar na tabela entendeu?

segue a imagem....

JABA 12/08/2012 14:36:42
#407792

Para salvar tudo isso no banco de dados, voce primeiro tem que criar a estrutura do banco de dados para isso, como tabelas, chave primaria, relacionamentos, etc...

Você ja tem a parte de banco de dados pronta?

Feito isso, é só percorrer os registros do FlexGrid e passar os dados para o seu RecordSet e então salvar.

vlw

RICKSOUSA 12/08/2012 14:54:36
#407793

amigo consegui aqui com um exemplo que peguei desse site: http://social.msdn.microsoft.com/Forums/pt/vsvbasicpt/thread/27401202-0985-4bf6-bf3e-49f42bd75d07

fiz assim e deu certo:


Conecta True

Dim linha As Integer

For linha = 1 To MSFlexGrid2.Rows - 1

[ô] verifica se a primeira coluna da linha possui conteúdo, somente neste caso iremos gravar os dados
If Len(MSFlexGrid2.TextMatrix(linha, 1)) <> 0 Then

Conexao.Execute [Ô]INSERT INTO Backup (COD,NOMEFUNCIONARIO,CODINTERNO,DESCRIÇÃO,QTDVENDIDA,VALORVENDIDO,DATAINCLUSÃO,DATAVALIDADE,DATAPAG) VALUES[Ô] & _
[Ô]([ô][Ô] & CLng(MSFlexGrid2.TextMatrix(linha, 0)) & [Ô][ô],[ô][Ô] & Replace(cboNomeFunc.Text, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & CLng(MSFlexGrid2.TextMatrix(linha, 1)) & [Ô][ô],[ô][Ô] & Replace(CStr(MSFlexGrid2.TextMatrix(linha, 2)), [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & CInt(MSFlexGrid2.TextMatrix(linha, 3)) & [Ô][ô],[ô][Ô] & CCur(MSFlexGrid2.TextMatrix(linha, 4)) & [Ô][ô],[ô][Ô] & CDate(MSFlexGrid2.TextMatrix(linha, 5)) & [Ô][ô],[ô][Ô] & CDate(MSFlexGrid2.TextMatrix(linha, 6)) & [Ô][ô],[ô][Ô] & CDate(Date) & [Ô][ô])[Ô]


End If

Next

Conecta False

mais mesmo assim muito obrigado pela ajuda...