EXPORTAR MSFLEXGRID PARA SQLSERVER
eu sou implantador de ERP (Softwer de Gestao)
durante minhas implantaçoes eu tenho enfrentado problemas pois o softwer que eu represento nao tem ferramenta de importação assim o meu cliente e obrigado a cadastrar tudo manualmente.
por minha conta eu estou desenvolvendo um sistema importação
eu conecto no banco do sistema antigo e exporta em txt delimitado
eu preencho MSFLEXGRID com as informações do TXT para conferencia se os campos estao alinhados como esperado, o problema e que eu nao estou conseguindo exportar para o sqlserver.
Citação:
Private Sub cmdabrearquivo_Click()
cdlg.ShowOpen
txtcaminhoarq.Text = cdlg.FileName
End Sub
Private Sub Command1_Click()
Arq_ContrMemoDPGP = cdlg.FileName
c = 0
Open Arq_ContrMemoDPGP For Input As #1
Do While Not EOF(1)
Dim Valores() As String
c = c + 1
Debug.Print c
Line Input #1, linha
Debug.Print linha
Valores = Split(linha, [Ô];[Ô])
MSFlexGrid1.TextMatrix(c, 0) = Valores(0)
MSFlexGrid1.TextMatrix(c, 1) = Valores(1)
MSFlexGrid1.TextMatrix(c, 2) = Valores(2)
MSFlexGrid1.TextMatrix(c, 3) = Valores(3)
MSFlexGrid1.TextMatrix(c, 4) = Valores(4)
MSFlexGrid1.TextMatrix(c, 5) = Valores(5)
MSFlexGrid1.TextMatrix(c, 6) = Valores(6)
MSFlexGrid1.TextMatrix(c, 7) = Valores(7)
MSFlexGrid1.TextMatrix(c, 8) = Valores(8)
MSFlexGrid1.TextMatrix(c, 9) = Valores(9)
MSFlexGrid1.AddItem [Ô][Ô]
Loop
Close #1
Form1.Caption = [Ô]Quantide de Linhas[Ô] & c
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.TextMatrix(0, 0) = [Ô]Codigo[Ô]
.TextMatrix(0, 1) = [Ô]Cód.Barras[Ô]
.TextMatrix(0, 2) = [Ô]Descrição[Ô]
.TextMatrix(0, 3) = [Ô]Venda (R$)[Ô]
.TextMatrix(0, 4) = [Ô]Custo(R$)[Ô]
.TextMatrix(0, 5) = [Ô]IPI[Ô]
.TextMatrix(0, 6) = [Ô]CST[Ô]
.TextMatrix(0, 7) = [Ô]NCM[Ô]
.TextMatrix(0, 8) = [Ô]Grupo[Ô]
.TextMatrix(0, 9) = [Ô]Sub-Grupo[Ô]
.TextMatrix(0, 10) = [Ô]Numero do Lote[Ô]
End With
End Sub
a parte do codigo de integração entre o grid e o sqlserver nao consegui fazer
Loop (todos as linhas do grid)
{
SQL>execute [Ô]Insert into tabela (campo1, campo2) values (grid[linha, coluna], grid[linha, coluna])
}
Em VB6(algo parecido com isso):
Dim Cn as new Adodb.Connection
Cn.Open([Ô]sua connection string[Ô])
For i% = 1 to MSFlexGrid1.Rows -1
Cn.Execute [Ô]Insert Into SUA_TABELA(campo1, campo2) Values ([ô][Ô] & MSFlexGrid1.TextMatrix(i%, 0) & [Ô][ô],[ô][Ô] & MSFlexGrid1.TextMatrix(i%, 0) & [Ô][ô])[Ô]
Next i%