|
|
Postada em 07/10/2004 11:01 hs
Estou sem solução, fiz uma pesquisa em 2 tabelas, onde gravei estes dados em uma matriz... Apresento ela num MSflexgrid, os dados são apresentados e depois quero um botão, onde grave estes dados em um banco existente fiz o seguinte: For Indice = 0 To Indice - 1
SQL = "Insert Into Banco_teste (Cliente, Numero, CEP, Preco_E-Sedex, Preco_Sedex) "
SQL = SQL & "Values"
SQL = SQL & "('" & Matriz_Frete(Indice).Cliente & "', "
SQL = SQL & "'" & Matriz_Frete(Indice).Numero & "', "
SQL = SQL & "'" & Matriz_Frete(Indice).CEP & "', "
SQL = SQL & "'" & Matriz_Frete(Indice).Preco_ESedex & "', "
SQL = SQL & "'" & Matriz_Frete(Indice).Preco_Sedex & "' )"
Indice = Indice + 1
Next
SQL.Execute apresenta o erro: Object requerid alguem pode me ajudar??? |
|
|
|
|
|
|
|
Postada em 07/10/2004 11:20 hs
vc não pode colocar (0) zero para a variavel Indice no for use outra variavel exe: for i = 0 to indice -1 '( certo ) porque: for incide = 0 to indice -1 ' ( isso é igual a {0} zero..) creio eu que é só isso. ve ai e qualquer coisa post para nos. ate |
|
|
|
|
|
Postada em 07/10/2004 12:06 hs
Amigo, eu coloco o indice variando de 0 a indice - 1, mas no final não incremento indice = indice + 1, pq isso faria o indice variar de 2 em 2. Se eu não usar o indice, a matriz não vai captar do 0 ao final da consulta, pq la esta assim Matriz_frete(Indice).cliente, o Indice que ordena as posições na matriz. Consegui, o problema e que quando grava no banco depois do loop não pula a linha, fica gravando na mesma linha.... tem alguma solução |
|
|
|
|
|
Postada em 08/10/2004 12:21 hs
O sql.execute tem que esta dentro do loop |
|
|
|
|
|
Postada em 08/10/2004 13:15 hs
Eu nunca vi usarem um array (matriz) com esse esquema do ponto e nome do campo. Se você já usou algo assim antes e funcionou, dá uma dica aí sobre o assunto. Agora, como o teu for tá meio estranho e se for a primeira vez que você tá usando matriz, o erro pode estar na sintaxe. Experimente usar assim: For Indice = 0 To ubound(Matriz_Frete, 2) SQL = "Insert Into Banco_teste (Cliente, Numero, CEP, Preco_E-Sedex, Preco_Sedex) "
SQL = SQL & "Values"
SQL = SQL & "('" & Matriz_Frete(0, Indice) & "', "
SQL = SQL & "'" & Matriz_Frete(1, Indice) & "', "
SQL = SQL & "'" & Matriz_Frete(2, Indice) & "', "
SQL = SQL & "'" & Matriz_Frete(3, Indice) & "', "
SQL = SQL & "'" & Matriz_Frete(4, Indice) & "' )"
SQL.Execute Next
|
|
|
|
|
