(Resolvido) bd não aceita campo com letras e numeros

[dcoder]

Bom dia,

Como orientado já busquei no google e não achei a resposta.

Estou inserindo dados no access e não esta aceitando campos com letras e numeros misturados, já mudei o tipo de campo para texto no access, porém não adiantou.

Como faço para formatar esse campo de uma maneira que aceite numeros e letras misturados ?

Obs: os dados estao vindo de uma planilha do excel, cujo codigo encontrei aqui no forum.

obrigado.

Editado Fevereiro 13, 2009 por dcoder

[Rafael Spilki]

Se você colocou o campo como texto você pode colocar qualquer caracter ali dentro... deve ser outro erro!

Qual a mensagem de erro que está aparecendo pra você?

[]'s

[dcoder]

Não aparece nenhum erro, simplesmente não insere, segue o codigo:

<%
set Cmd=server.CreateObject("ADODB.COMMAND")
Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/novo.mdb")
%>

<%
Dim Conn, RS
Dim Campos, contador

'// CONECTAMOS COM O BANCO DE DADOS
Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

'// Nesta linha perca que a conexão indica que utilizaremos um arquivo do Excel
.ConnectionString = "Data Source="& Server.MapPath("fonte.xls") &";Extended Properties=Excel 8.0;"
.Open
End With

'// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO
Set RS = Conn.Execute("SELECT * FROM [fonte$] ")

'// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO
Campos = RS.Fields.Count

'// INICIAMOS O LOOP
response.write "<table border=""1"">"
Do While RS.EOF = False
response.write "<tr>"
'// Aqui informamos os nomes das colunas para então lista os resultados
response.write "<td><font size=1 face=verdana><b>" & RS("dtentrega") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("item") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("cliente") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("endent") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("fab") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("qtembalagem") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("embalagem") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("total") & "</td>"
response.write "</tr>"

dtentrega   = RS("dtentrega")
item        = RS("item")
cliente     = RS("cliente")
endent      = RS("endent")
fab         = RS("fab")
qtembalagem = RS("qtembalagem")
embalagem   = RS("embalagem")
total       = RS("total")

cmd.CommandText="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)"
Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) 

RS.MoveNext
Loop
response.write "</table>"

'// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS
response.write campos

'// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing 
%>


<%set Cmd = nothing%>

o campo no qual não insere os dados é o "Item"....

[]'s

Editado Fevereiro 13, 2009 por dcoder

[Rafael Spilki]

tente assim:

Cmd.Execute ="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values ('"&dtentrega&"','"&item&"','"&cliente&"','"&endent&"','"&fab&"','"&qtembalagem&"','"&embalagem&"',"&total&")"

obs.: subentendi que total é campo tipo número!

[]'s

[dcoder]

Não funcionou cara, o engraçado é que possuo outros campos com a mesma formatação numeros, letras e sinais -+-+, tudo misturados e insere normal, somente o campo item mesmo..

Dei uma analizada no arquivo do excel e os campo são iguais não contém nenhuma avaria ou erro nos dados...

[]'s

Editado Fevereiro 13, 2009 por dcoder

[Rafael Spilki]

veja se está tudo vindo normalmente debugando a instrução...

faça assim:

'cmd.CommandText="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)"
'inicio debug
teste="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)"
response.write teste
response.end
'fim debug
Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)

depois poste aqui os resultados!

[dcoder]

Parece estar passando os dados normalmente, olha o retorno da consulta:

insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)

É pessoal, já editei e formatei os campos onde estou tendo problema cadastrando manualmente os valores e nadaaa..

só esta ocorrendo isso com os valores da coluna item onde os campos contem letras numeros e caracteres como+-

sem explicação..

Editado Fevereiro 13, 2009 por dcoder

[bareta]

isso aqui não funciona mesmo:

cmd.CommandText="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)"

talvez:

cmd.CommandText="insert into dados (dtentrega,item) values ('"&dtentrega&"','"&item&"')"

[dcoder]

Cara, não deu certo de novo:

cmd.CommandText="insert into dados (dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) values ('"&dtentrega&"','"&item&"','"&cliente&"','"&endent&"','"&fab&"','"&qtembalagem&"','"&embalagem&"','"&total&"')"

Realmente é alguma coisa com o codigo pois tentei importar a tabela do excel direto pelo access e deu certo...

[]'s

______________________

Galera, consegui fazer funcionar, alterando o formato da coluna no proprio excel alterando o formato dos dados da coluna de geral para texto...

Segue os passos que segui:

Selecionando a coluna no excel vá em,

Dados> Textos para colunas> Largura fixa, Avançar>Avançar>no formato de dados da coluna selecione o campo texto e clique em concluir.

Pronto, inseriu certinho....vai entender.......

Obrigado pela ajuda de todos...

[]'s

Editado Fevereiro 13, 2009 por dcoder

[bareta]

hum... eu tenho um script aqui mais ou menos neste estilo..

o excel importa os dados do CMA realiza uma série de conversões e exporta arquivos.htm a cada 2 minutos....

justamente por causa dos tipos de dados tive que fazer dessa forma... algumas células numca apareciam quando o xls funcionava como bd