Inserindo Mais De Um Registro De Uma Vez

[Jony Walker]

E aí galera !! Eu já tinha postado algo assim antes mas não encontrei então estou postando novamente:

Esse projeto ficou um tempo parado mas agora eu estou mexendo nele de novo e estou encalhado nesse problema:

O objetivo aqui é num clique em uma página o cara inserir quatro registros de uma vez só para que depois umem outra instância ele altere esses dados

Eu tentei montar esse mas ele acusa erro na linha verde dizendo q falta aspas duplas

Dim Conexao, rsInsert, sqlInsert, rsSelect, sqlSelect

Dim varImg, varAmp, varMod, varFab, varAno, varMot, varTrac, varPort, varCor, varI

varImg = "semfoto.jpg"

varAmp = "xxx"

varMod = "xxx"

varFab = "xxx"

varAno = "xxx"

varMot = "xxx"

varTrac = "xxx"

varPort = "xxx"

varCor = "xxx"

varMod = Replace(varMod, "'", "")

varTrac = Replace(varTrac, "'","")

varI=0

while varI <= 3

sqlInsert = "INSERT INTO veiculos (imagem, img_amp, modelo, fabr, ano, motor, trac, portas, cor) "

sqlInsert = sqlInsert & " values ('" & varImg & "','" & varAmp & "','"

sqlInsert = sqlInsert & varMod & "','" & varFab & "','"

sqlInsert = sqlInsert & varAno & "','" & varMot & "','"

sqlInsert = sqlInsert & varTrac & "'," & varPort & ",'"

sqlInsert = sqlInsert & varCor & "')"

Set rsInsert = Conexao.Execute(sqlInsert)

varI = varI + 1

wend

Onde foi q eu errei ??

[bareta]

tente algo assim

[Jony Walker]

E como eu faço o incremento da variável i ?? eu tentei i++ e ele não aceitou....

[.Andreia.]

[bareta]

E como eu faço o incremento da variável i ?? eu tentei i++ e ele não aceitou....

ele não precisa de incremento... vai passar de um até 4... se não rodou tente:

[Jony Walker]

Eu declarei o x e o i mas ele tah dando erro na linha de insert

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/garage/AdmVeiculosInclui4.asp, line 35

essa é a linha do erro

Set rsInsert = Conexao.execute(sqlInsert)

[bareta]

verifique a conexão... e se todos dados estão corretos

você não bprecisa setar nada no insert assim já funciona:

Conexao.execute(sqlInsert)

[Jony Walker]

Cara, tah tudo certo, o scritp para inserir um funciona, mas quando eu tento fazer esse de colocar mais de um, fica esse mesmo erro....

Será q não tem outro jeito, nem q eu tenha q fazer quatro instruções de insert diferentes ???

[Ceh]

Ao invés de for, usa for each!

Eu uso for each pra deletar mais de um registo(checkbox) e funciona direitinho.

Aqui esplica como usar.

[ ]'s

[Jony Walker]

Tentei, mas continua dando o mesmo erro

<%

Dim Conexao, sqlInsert, item

Dim varImg, varAmp, varMod, varFab, varAno, varMot, varTrac, varPort, varCor

Dim dia(3)

dia(0)="Domingo"

dia(1)="Segunda-Feira"

dia(2)="Terça-Feira"

dia(3)="Quarta-Feira"

varImg = "semfoto.jpg"

varAmp = "xxx"

varMod = "xxx"

varFab = "xxx"

varAno = "xxx"

varMot = "xxx"

varTrac = "xxx"

varPort = "xxx"

varCor = "xxx"

varMod = Replace(varMod, "'", "")

varTrac = Replace(varTrac, "'","")

For Each item In dia

sqlInsert = "INSERT INTO veiculos (imagem, img_amp, modelo, fabr, ano, motor, trac, portas, cor) "

sqlInsert = sqlInsert & " values ('" & varImg & "','" & varAmp & "','"

sqlInsert = sqlInsert & varMod & "','" & varFab & "','"

sqlInsert = sqlInsert & varAno & "','" & varMot & "','"

sqlInsert = sqlInsert & varTrac & "'," & varPort & ",'"

sqlInsert = sqlInsert & varCor & "')"

'abre a conexao

Call abre_conexao

Conexao.execute(sqlInsert)

next

%>

[Jony Walker]

Todos os códigos q vocês me passaram fucioam, mas com response.write, nunca com a instrução de inserção dos registros

[Ceh]

Eu fiz assim e funcionou:

[bareta]

posta a conexão que ta usando ai????

[Jony Walker]

Estou trabalhando com este arquivo como include file

<%

sub abre_conexao

  Set Conexao = Server.CreateObject("ADODB.Connection")

  Conexao.Open "DBQ=C:\Inetpub\wwwroot\carcar\carrossb.mdb;Driver={Microsoft Access Driver (*.mdb)}"

end sub

sub fecha_conexao

  Conexao.Close

  Set Conexao = nothing

end sub

%>

[Jony Walker]

Opa, tah começando a funcionar !!!!

usei o código q a Ceh passou (obrigado!!!) e funcionou para um e dois campos, mas para mais ele está dizendo q a quantidade de campos na consulta e no insert não coincidem...

seria isso porque eu tenho uns quatro campos de checkbox no banco q eu não estou maniupulando nessa inserção ???

[Ceh]

Não sei, raramente uso checkboxes no banco. Vou fazer uns testes aqui e mais tarde posto o resultado.

[ ]'s

[Jony Walker]

Sinceramente não acho q seja esse o problema, pois se funcionou com um só registro, deveria ter funcionado copm o resto... foi só eu inserir uma variável a mais e ele disse q os campos de inserção excediam os campos declarados