SALVAR ARRAY NO BANCO DADOS ACESS 97

GIOGOMES 03/06/2016 09:20:32
#462974
Olá galera tenho o seguinte código para incluír ítens no MSFLEXGRID

Dim Produto(1 To 10) As String
Dim Quantidade(1 To 10) As String
Dim Unidade(1 To 10) As String
Dim NumeroDocumento As String
Dim Contador As Integer

Private Sub Command3_Click()
Grid1.Rows = Grid1.Rows + 1
Contador = Contador + 1
NumeroDocumento = Text1.Text
Produto(Contador) = Text2.Text
Quantidade(Contador) = Format(Text4.Text, [Ô]#,#0.0[Ô])
Unidade(Contador) = Combo2.Text
Grid1.TextMatrix(Contador, 0) = NumeroDocumento
Grid1.TextMatrix(Contador, 1) = Produto(Contador)
Grid1.TextMatrix(Contador, 2) = Quantidade(Contador)
Grid1.TextMatrix(Contador, 3) = Unidade(Contador)
Text2.Text = [Ô][Ô]
Text4.Text = [Ô][Ô]
Combo2.ListIndex = -1
Text2.SetFocus
End Sub

Até ai tudo bem

Agora gostaria de salvar esses ítens que foram incluídos no Grid, no banco de dados (obs. são mais de um ítem).

Estou usando o banco de dados Acess e o Data como conecção.

Obrigado!
JABA 03/06/2016 14:39:53
#463006 Resposta escolhida
http://www.macoratti.net/flex_ado.htm
Tópico encerrado , respostas não são mais permitidas
Voltar