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..

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

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

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.

Ok, cara, vlw

pra que dar quote nos seus post do tópico???????? Galera esvaziando a cache funciona, mais por que isso esta ocorrendo ? como posso resolver isso ? Obrigado

FUNCIONOU !!! Só que esta acontecendo uma coisa estranha, só funciona um vez, ele insere o txt no banco uma vez e depois não insere mais, mesmo alterando os dados do txt, pra inserir novamente tenho que mudar o nome do arquivo que esta realizando o insert no bd, tipo, funcionou com inserir.asp, depois não funciona mais tenho que alterar o nome para inserir2.asp aí ele cadastra de novo.. nunca ví isso... será que é algum problema do servidor ? []'s

Não vou desistir não, vlw.... Achei esse script que promete importar o txt, segui certinho o que esta dizendo porém ele só me exibe essa mesnsagem de erro: 'Abaixo, caso a ordem ou a quantidade de campos do arquivo de texto 'seja inferior a do banco de dados, retornaremos uma mensagem de erro if err>0 then response.write "<script>history.back(1);alert('Ocorreu algum problema na inserção.\nVerifique o layout do arquivo de texto.')</script>" response.End() end if Segue o script: <% Option explicit %> <% 'Primeiramente iremos setar um valor de execução de script 'Pois dependendo do tamanho do arquivo o script pode exeder o tempo limite Server.ScriptTimeout = 100000 'Iremos também fazer com que o script siga quando ocorrer um erro 'Para podermos tratá-lo após o script on error resume next 'Criaremos a conexão com o banco de dados Dim Conexao Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/cadastros.mdb") 'Antes de criarmos o FSO, iremos exibir uma imagem de envio 'Somente para ilustrar pois dependendo do arquivo o processo pode ser demorado response.write "<img src='inserindo.gif'>" Dim objFSO 'Aqui que daremos início ao sistema 'Criaremos o objeto FileSystemObject Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim varArquivo 'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar Set varArquivo = objFSO.OpenTextFile(server.MapPath("cadastros.txt"), 1) dim arrayLinha 'Agora que o arquivo já foi aberto, iremos ler linha por linha 'O comando AtEndOfStream determina que iremos repetir o processo abaixo 'até o fim do arquivo Do while not varArquivo.AtEndOfStream 'Abaixo criaremos um array para separar os dados entre ponto-e-vírgula 'ReadLine é usado para indicar que iremos separar os dados desta linha arrayLinha=split(varArquivo.ReadLine,";",-1,1) 'Com o array criado, iremos inserir de acordo com a ordem dos campos 'Usando 'arrayLinha(0)' nós determinamos cada dado pela ordem do arquivo de texto 'começando pelo zero que é respectivamente o campo nome e por ai adiante conexao.execute "INSERT INTO cadastros (nome, nascimento, profissao, cidade, estado) VALUES ('"&arrayLinha(0)&"',"&arrayLinha(1)&",'"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"')" 'Passar para próxima linha loop 'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto varArquivo.Close Set varArquivo = Nothing Set objFSO = Nothing 'Destruiremos e fecharemos a conexão com o banco de dados Conexao.close Set Conexao = nothing 'Abaixo, caso a ordem ou a quantidade de campos do arquivo de texto 'seja inferior a do banco de dados, retornaremos uma mensagem de erro if err>0 then response.write "<script>history.back(1);alert('Ocorreu algum problema na inserção.\nVerifique o layout do arquivo de texto.')</script>" response.End() end if 'Caso tudo tenha ocorrido corretamente, iremos para uma página 'para verificarmos se o conteúdo foi inserido corretamente response.write "<script>location = 'exibir.asp'</script>" %> Obrigado pela ajuda pessoal....

Estou enrrolado com esse sistema cada hora me pedem uma coisa, estou quase desistindo... <_<

Boa tarde pessoal, Tenho um arquivo de texto mais ou menos assim: Dt.Entrega;Hora;Item;Cliente;End.Ent.;Fab.;Qt.Embalagem;Embalagem;T.Prg;Chamada;Quant/Uc.;Qt.Ucs;Total;Sit. 01/01/01; ;464516550;B.M.A.;;;0;;P.E.;;0;0;50;; 01/01/01; ;467784990;B.M.A.;;;0;;P.E.;;0;0;87;; 01/01/01; ;467794120;B.M.A.;;;0;;P.E.;;0;0;3;; 01/01/01; ;467834940;B.M.A.;;;0;;P.E.;;0;0;5;; 01/01/01; ;468048420;B.M.A.;;;0;;P.E.;;0;0;100;; 01/01/01; ;468088790;B.M.A.;;;0;;P.E.;;0;0;269;; 01/01/01; ;517033720;B.M.A.;;;0;;P.E.;;0;0;100;; 01/01/01; ;77700630;B.M.A.;;;0;;P.E.;;0;0;33;; 01/01/01; ;90412854;B.M.A.;;;0;;P.E.;;0;0;4;; 01/01/01; ;93276204;B.M.A.;;;0;;P.E.;;0;0;38;; 01/01/01; ;93303361;B.M.A.;;;0;;P.E.;;0;0;50;; 01/01/01; ;93303362;B.M.A.;;;50;0340-154;P.E.;;0;0;34;; 01/01/01; ;93366639;B.M.A.;;;0;;P.E.;;0;0;20;; 01/01/01; ;9639172880;B.M.A.;;;0;;P.E.;;0;0;10;; 01/01/01; ;B32437;B.M.A.;;;0;;P.E.;;0;0;11;; 22/06/09; ;93303361;DELPHI JAGUA;;;30;KLT6428;P.E.;;0;0;30;; 08/06/09; ;93399696;DELPHI JAGUA;;;0;;P.E.;;0;0;50;; 28/01/09; ;BC0172687130;DENSO BR;PIN ;PIN;0;;P.E.;;0;0;40;; 11/02/09; ;BC0172687130;DENSO BR;PIN ;PIN;0;;P.E.;;0;0;40;; 11/03/09; ;BC0172687130;DENSO BR;PIN ;PIN;0;;P.E.;;0;0;40;; 08/04/09; ;BC0172687130;DENSO BR;PIN ;PIN;0;;P.E.;;0;0;40;; gostaria de saber como posso fazer para importar esse arquivo para access utilizando o asp mantendo suas colunas... Obrigado, galera.

Bom dia !!! desculpe a demora para postar, estavamos sem link... segue o codigo: <% Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../dados/geral.mdb") 'consulta sql para exibição dos valores das demandas mensais set sql = conexao.Execute("select * from TBFIAT") Dim mes_atual, mes, mes1, mes2, mes3, mes4, mes5, mes6, mes7, mes8, mes9, mes10, mes11, mes12 mes = MonthName(month(date)-1) mes1 = MonthName(month(date)) mes2 = MonthName(month(date)+1) mes3 = MonthName(month(date)+2) mes4 = MonthName(month(date)+3) mes5 = MonthName(month(date)+4) mes6 = MonthName(month(date)+5) mes7 = MonthName(month(date)+6) Dim mesant, mais1, mais2, mais3, mais4, mais6, mais7, mais8, mais9, mais10, mais11, mais12 mais1 = datepart ("m", date) mais2 = dateadd ("m", 1, mesatual) mais3 = dateadd ("m", 2, mesatual) mais4 = dateadd ("m", 3, mesatual) mais5 = dateadd ("m", 4, mesatual) mais6 = dateadd ("m", 5, mesatual) mais7 = dateadd ("m", 6, mesatual) %> <td width="104" bgcolor="#D7F4EB" class="style3"><div align="center"><strong>Item</strong></div></td> <td width="101" bgcolor="#96E2CB" class="style3"><div align="center"><%=mesant%></div></td> <td width="95" bgcolor="#F2F2F2" class="style3"><div align="center"><%=janeiro%></div></td> <td width="88" bgcolor="#F2F2F2" class="style3"><div align="center"><%=fevereiro%></div></td> <td width="95" bgcolor="#F2F2F2" class="style3"><div align="center"><%=marco%></div></td> <td width="97" bgcolor="#F2F2F2" class="style3"><div align="center"><%=abril%></div></td> <td width="94" bgcolor="#F2F2F2" class="style3"><div align="center"><%=maio%></div></td> <td width="100" bgcolor="#F2F2F2" class="style3"><div align="center"><%=junho%></div></td> <% Do Until sql.EOF %> <table width="1500" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="106" bgcolor="#D7F4EB" class="titulo_menor"> <div align="center"> <% Response.Write sql("item") %> </div></td> <td width="104" bgcolor="#96E2CB" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais1" Then Response.Write sql("janeiro") Else Response.Write sql("fevereiro") End IF %> </div></td> <td width="93" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais2" Then Response.Write sql("fevereiro") Else Response.Write sql("marco") End If %> </div></td> <td width="91" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais3" Then Response.Write sql("marco") Else Response.Write sql("abril") End If %> </div></td> <td width="94" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais4" Then Response.Write sql("abril") Else Response.Write sql("maio") End If %> </div></td> <td width="100" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais5" Then Response.Write sql("maio") Else Response.Write sql("junho") End If %> </div></td> <td width="95" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais6" Then Response.Write sql("junho") Else Response.Write sql("julho") End If %> </div></td> <td width="102" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais7" Then Response.Write sql("julho") Else Response.Write sql("agosto") End If %> </div></td> <td width="106" bgcolor="#D7F4EB" class="titulo_menor"><div align="center"> <% Response.Write media("fevereiro") %> </div></td> <% sql.MoveNext Loop %> ranquei um pouco dos html ae ok... []'s

isso cara, imprimir os dados da coluna, não consigo fazer isso tomando decisoes ? 'aqui você abre o bd: Set conexao= server.createObject("ADODB.Connection") conexao.CursorLocation = 3 conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("bd.mdb") 'query sql = "select * from sua_tabela " 'aqui você seta o objeto recordset Set rs= Server.CreateObject( "ADODB.RecordSet" ) rs.Open sql, conexao 'aqui você imprime os dados que tem no campo do bd <% If MonthName(month(date)+3) > "mais2" Then Response.Write sql("fevereiro") Else Response.Write sql("marco") End If %> fiz isso aqui e funcionou porém quando altero a data do micro para o mes seguinte ele retorna a imprimir os campos anteriores... o papo ta ficando bom em...hehe... []'s

hehe, complicado, faz parte do meu estágio sem isso nada de vaga.. Estou reformulando aqui, mais tipo estou encanado com a minha lógica.. assim, não tem como eu fazer uma comparação assim: <% If MonthName(month(date)) > "mais1" Then Response.Write sql("fevereiro") Else response.Write sql("janeiro") End IF %> onde : MonthName(month(date)) 'é o mes atual que estamos fevereiro e: mais1 'que é MonthName(month(date)+1), no caso estaria com o valor de março correto ? aí ele exibe pra mim todos os resultados da coluna fevereiro se MonthName(month(date)) for maior que MonthName(month(date)+1) ou a de janeiro se não for.. []'s

Entendi, vou dar uma modificada no meu banco. mais eu acho que é o que esse pessoal esta me pedindo que esta fora dos padroes... Obrigado cara. []'s

Bom dia! Estou fazendo a consulta somente atraves dessa query set sql = conexao.Execute("select * from TBFIAT") na minha tabela não tem nenhuma coluna com campos em data, meu pensamento é o seguinte: se o mes for > que o mes atual ele exibe os valores da coluna do mes atual, se não ele exibe a coluna do proximo mes. <% If MonthName(month(date)) > "mais1" Then Response.Write sql("janeiro") Else response.Write sql("fevereiro") End IF %> pode ser meu banco, nele tenho as colunas somente com campos numericos: item - janeiro - fevereiro - marco - abril - maio - junho - julho 555 200 4545 6565 656 6565 656 656 não era pra mudar só com esse if, exibindo a coluna de janeiro se não a de fevereiro ? Que rolo..rsrs..obrigado

Vixe ,, não vai não... se eu altero a data do micro pra janeiro o sistema exibe os valores como estao, se eu altero a data para o mes de março, o sistema mostra os valores de janeiro..ta tudo doidao aqui...segue o script: 'consulta sql para exibição dos valores das demandas mensais set sql = conexao.Execute("select * from TBFIAT") Dim mes_atual, mes2, mes3, mes4, mes5, mes6, mes7 mes_atual = MonthName(month(date)) mes2 = MonthName(month(date)+1) mes3 = MonthName(month(date)+2) mes4 = MonthName(month(date)+3) mes5 = MonthName(month(date)+4) mes6 = MonthName(month(date)+5) mes7 = MonthName(month(date)+6) Dim mesatual, mais1, mais2, mais3, mais4, mais6, mais7, mais8, mais9, mais10 mesatual = datepart ("m", date) mais1 = dateadd ("m", 1, mesatual) mais2 = dateadd ("m", 2, mesatual) mais3 = dateadd ("m", 3, mesatual) mais4 = dateadd ("m", 4, mesatual) mais5 = dateadd ("m", 5, mesatual) mais6 = dateadd ("m", 6, mesatual) mais7 = dateadd ("m", 7, mesatual) %> <% Response.Write sql("item") %> </div></td> <td width="104" bgcolor="#96E2CB" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais1" Then Response.Write sql("janeiro") Else response.Write sql("fevereiro") End IF %> </div></td> <td width="93" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais2" Then Response.Write sql("fevereiro") Else Response.Write sql("marco") End If %> </div></td> <td width="91" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais3" Then Response.Write sql("marco") Else Response.Write sql("abril") End If %> </div></td> <td width="94" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais4" Then Response.Write sql("abril") Else Response.Write sql("maio") End If %> </div></td> <td width="100" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais5" Then Response.Write sql("maio") Else Response.Write sql("junho") End If %> </div></td> <td width="95" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais6" Then Response.Write sql("junho") Else Response.Write sql("julho") End If %> </div></td> <td width="102" bgcolor="#F2F2F2" class="titulo_menor"><div align="center"> <% If MonthName(month(date)) > "mais7" Then Response.Write sql("julho") Else Response.Write sql("agosto") End If %> obrigadooo..

Isso, vou tentar aqui, obrigado Rafael... Cara, os meses mudam mais os valores que correspondem aos meses não .... como faço para amarrar isso ?

então, tenho um tabela com as colunas item, janeiro, fevereiro, marco e etc.. no meu sistema aprace o item, o mes acima e o total fabricado neste mes, tipo: item - janeiro 550 - 400pcs o que preciso é que quando acabar o mes de janeiro entre o mes de fevereiro no lugar com seus valores.. estou tentando assim: criei as variaveis: Dim mes_atual, mes_2, mes_3, mes_4, mes_5, mes_6, mes_7 mes_atual = MonthName(month(date)) mes_2 = MonthName(month(date)+1) mes_3 = MonthName(month(date)+2) mes_4 = MonthName(month(date)+3) mes_5 = MonthName(month(date)+4) mes_6 = MonthName(month(date)+5) mes_7 = MonthName(month(date)+6) e depois para a exibição: <% If mes_atual<>"mes_2" Then Response.Write sql("janeiro") Else If Response.Write fevereiro("fevereiro") Else response.Write marco("marco") End If %> não sei se fui claro, mais é isso ae... obrigado..

Bom dia pessoal, eu de novo com outro pepino... novamente a imagem do meu sistema: http://img4.imageshack.us/img4/672/imagemif0.jpg a dúvida é a seguinte, como faço para colocar esses valores para exibir dinamicamente de acordo com o mes corrente ? Tipo, estamos em fevereiro, acabou fevereiro entre março lá no mes atual e os proximos meses tambem mudam com seus respectivos valores, deu pra sacar ? não sei se é bem isso que estou iniciando: Dim mes_atual, mes_2, mes_3, mes_4, mes_5, mes_6, mes_7 mes_atual = MonthName(month(date)) mes_2 = MonthName(month(date)+1) mes_3 = MonthName(month(date)+2) mes_4 = MonthName(month(date)+3) mes_5 = MonthName(month(date)+4) mes_6 = MonthName(month(date)+5) mes_7 = MonthName(month(date)+6) essas variaveis exibem os meses corretamente se eu alterar a data no sistema, mais como fazer isso mudar com os valores ? travei... Obrigado pessoal.

Obrigado jowwwww.... Logo estarei ensinando também :D

Bom dia spilk. Matou a charada sim cara, deu certo aqui. Obrigado mais uma vez pela ajuda de todos ae... Fevereiro = cint(request.form("fevereiro")) Marco = cint(request.form("marco")) Abril = cint(request.form("abril")) media = (fevereiro+marco+bril)/3 SQL="INSERT INTO items (MEDIA)" & "VALUES ('" & media & "')" Set rs = conexao.execute(SQL) resultado = (Fevereiro+Marco+Abril)/3 response.write FormatNumber(resultado,2) %> abraços

Que estranho o meu retorna isso 303.030,00 se eu digitar 30+30+30 Fevereiro = request.form("fevereiro") Marco = request.form("marco") Abril = request.form("abril") if fevereiro <> "" and marco <> "" and abril <> "" then media = (fevereiro+marco+bril) SQL="INSERT INTO items (MEDIA)" & "VALUES ('" & media & "')" Set rs = conexao.execute(SQL) resultado = (Fevereiro+Marco+Abril) response.write FormatNumber(resultado,2) end if

não funfou cara, o resultado esta retornando assim: 10+10+10/3 = 33.670,00 Codigo: <% Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/banco.mdb") Fevereiro = request.form("fevereiro") Marco = request.form("marco") Abril = request.form("abril") if fevereiro <> "" and marco <> "" and abril <> "" then media = (fevereiro+marco+bril)/3 SQL="INSERT INTO items (MEDIA)" & "VALUES ('" & media & "')" Set rs = conexao.execute(SQL) resultado = (Fevereiro+Marco+Abril)/3 response.write FormatNumber(resultado,2) end if %> Obrigado brother.

E ae jow consegui com seu codigo sim, deu certo porém o resultado não esta dando certo tipo: se eu digito 100 em fevereiro 100 em março 100 em abril o resultado da 33366,6666666667 a logica do codigo esta certa que é fevereiro+marco+abril/3 = 100 'era pra acontecer isso né.... não entendi esse resultado maluco.. olha o codigo: Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/banco.mdb") Fevereiro = request.form("fevereiro") Marco = request.form("marco") Abril = request.form("abril") if fevereiro <> "" and marco <> "" and abril <> "" then media = (fevereiro+marco+bril)/3 SQL="INSERT INTO itens (MEDIA)" & "VALUES ('" & media & "')" Set rs = conexao.execute(SQL) end if %> abraços

Não deu certo cara, a intenção é que o campo de texto seja preenchido automaticamente quando os valores são inseridos nos demais campos... Agradecido pela ajuda ae cara, abraços ..