Ale3009
-
Total de itens
10 -
Registro em
-
Última visita
Posts postados por Ale3009
-
-
droplist é o nome da tabela??? é isso né???... ai o txt todo eu colo assim?
(18001,1806,1,1,-1,10868),
(18001,57,765,1528,0,700000),
(18001,4069,1,1,1,2102),
(18001,4070,1,1,1,3192),
(18001,4071,1,1,1,1615),
(18001,1419,1,1,2,200000),
(18001,1864,1,1,2,166667),
(18001,1866,1,1,2,62500),
(18001,1878,1,1,2,37037),
(18001,1885,1,1,2,7092),
(18001,1889,1,1,2,5435),
(18001,4197,1,1,2,8);
Muito obrigada.. você ta me ajudando muitão
-
Tenho isso na minha loja...
<%
'Cria o objeto para upload de arquivo
Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")
myFileUpload.Form("txtAtualizacao").Path = Application("DiretorioAtualizacaoProdutos")
Arquivo = Mid(myFileUpload.Form("txtAtualizacao").UserFilename, InstrRev(myFileUpload.Form("txtAtualizacao").UserFilename, "\") + 1)
myFileUpload.Form("txtAtualizacao").SaveAs Arquivo
'Destroi o objeto de upload
Set myFileUpload = Nothing
'Cria o objeto para abrir arquivo texto
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Application("DiretorioAtualizacaoProdutos") & Arquivo
'Cria o objeto para ler o arquivo texto
Set openTxt = objFSO.OpenTextFile(caminho, 1,0)
'Loop para leitura das linhas do arquivo texto
while (not openTxt.AtEndOfStream) and response.isclientconnected()
linha_txt = openTxt.readline
arrayx = split(linha_txt,"|")
If UBound(arrayx) <> 2 Then
response.write UBound(arrayx)
response.end
End if
'Response.write "SELECT codigo_produto_loja, preco_base, preco_unitario, quantidade_produto FROM produtos WHERE codigo_produto_loja = '" & arrayx(0) & "'"
'Query de consulta a tabela Produtos
Query_produtos = "SELECT codigo_produto_loja, preco_base, preco_unitario, quantidade_produto FROM Produtos WHERE codigo_produto_loja = '" & arrayx(0) & "'"
'Cria objeto para consultar as podutos
Set RS_Produtos = Server.CreateObject("ADODB.Recordset")
'Conexão ADO
Set RS_Produtos.ActiveConnection = Conexao
RS_Produtos.CursorLocation = 3
RS_Produtos.CursorType = 0
RS_Produtos.LockType = 3
'Executa a query
RS_Produtos.Open Query_produtos
'Se o registro existe, atualiza.
If not RS_Produtos.Eof then
preço = arrayx(1)
'Retira o ponto
preco_unitario = replace(preço,".","")
' Retira virgula e repoe por ponto, para evitar problemas no UPDATE, caso banco seja SQL
If Application("TipoBanco")="mssql" Then
preco_unitario = replace(preco_unitario,",",".")
End if
quantidade = arrayx(2)
If preço <> "" Then
'Response.write "UPDATE Produtos SET preco_base = '" & preco_unitario & "', preco_unitario = '"& preco_unitario &"' WHERE codigo_produto_loja = '" & arrayx(0) & "'" & "<br>"
Conexao.Execute "UPDATE Produtos SET preco_base = '" & preco_unitario & "', preco_unitario = '"& preco_unitario &"' WHERE codigo_produto_loja = '" & arrayx(0) & "'"
End if
If quantidade <> "" Then
RS_Produtos("quantidade_produto") = arrayx(2)
Conexao.Execute "UPDATE Produtos SET quantidade_produto = " & arrayx(2) & " WHERE codigo_produto_loja = '" & arrayx(0) & "'"
End if
'Se o registro não existe acumula na variavel indicativa
Else
nolocali = nolocali & arrayx(0) &"|"& arrayx(1) &"|"& arrayx(2) & "<br>"
End if
wend
Set RS_Produtos = Nothing
openTxt.close
'Destrói os objetos criados
set openTxt = nothing
set objFSO = nothing
Call Fecha_conexao()
'Transfere o valor da variavel indicativa para uma session
'A session será exibida na página de upload de arquivo
session("nolocali") = nolocali
'Mensagem de resposta
msg_resultado = "Informações atualizadas"
'Redirect para página do POST
Response.redirect "ADM_envia_txtProdutos.asp?msg_resultado="& msg_resultado
%>
Só que é um update da seguinte forma padrão que é CODIGOPRODUTOLOJA|VALOR|QUANTIDADE (SNY000|3212,40|10)
poderiam me ajudar a transformar isso num INSERT com codigo_categoria|Nome_produto|autor|descricao_produto (1|00010367647896015516642AVODART|0,5 MG C/30 CPS|0263SMITH KLINE 001.2ETICOS - NEG UND00000000000000000100001000122.43000162.83000090.750033.0000000000010D10/2008 07/04/200901/02/200830/01/200804)
-
O problema é que não é SQL server.. é My SQL no php admin.. é on line
lá tem uma parte que tem
Importar
Arquivo para importar
Localização do arquivo texto
mas ai q formato tem q esar esse arquivo txt? é só importar depois que da certo?
Obrigada pelas rapidas respostas
-
Não entendi... já tenho a tabela criada e o txt pronto... quero saber como inserir na tabela esse txt entende?
-
Olá Galera.... tenho um banco já pronto c/ as tabelas neste aspecto:
INSERT (codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, Nome_produto, descricao_produto, peso, disponivel, sigla_idioma) INTO `Produtos` VALUES('', 1, 1, 0, 0, 'Cataflan', 'Cataflan D.. Usado para infecções', 0, 1, 'pt_BR');
e preciso inserir via txt uns 6 mil ítens.. como eu poderia fazer isso???
me passaram um arquivo txt com esses dados; mas como seria este script?
Desde já obrigada
-
Não ta.. o q eu não consigo é capturar essa variavel do modelo entende???
não sei porque não chega lá quando dou post... por favor me ajudeeeee :wacko:
-
é identico ao do modelo.. só acrescentei algumas coisas tipo ano.. etc.. nem os nomes eu mudei para testar olha só...
são estados.asp, ajax.js e seleciona_cidade.asp
mas a ultima variável não é enviada no post
olha pra você ver
http://shopsul.tempsite.ws/agencia/
ai mandei escrever... só chega a 1ª a selecionar...
-
Amigo.. foi esse dela mesmo que usei.. ta igualzinho...
o que eu preciso é algo bem parecido c/ a sua busca de marcas e modelos que você fez em
http://www.portalmaracaju.com.br/cg_car/
só isso...
Abraços
ale
-
Estou há 3 dias sem conseguir resolver esse "pepinoooo" quando dou post a categoria(marca).. q no caso seria cidades não é mandado no form...
Estou usando um ajax simples daki da net pra estado/cidade
como posso resolver isso?
<form name="busca" method="post" action="produtos.asp" onSubmit="return valida_busca()"> <input type="hidden" name="lang" value=<%=request("lang")%>> <td width="100%" align="center"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="10%">Marca:</td> <td width="30%"> <select name="estados" onChange="MandaID(this.value)"> <option value="">Selecione</option> <% while not tab.eof %> <option value="<%= tab("codigo_categoria") %>"><%= tab("nome_categoria") %></option> <% tab.movenext wend %> </select> </td> </tr> <tr> <td>Modelo:</td> <td><div id="exibe_cidade"><select><option value="">Selecione uma Marca</option></select></div></td> </tr> <tr> <td colspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <% Dim Valor(25) Valor(1)="0000" Valor(2)="4000" Valor(3)="6000" Valor(4)="8000" Valor(5)="10000" Valor(6)="12000" Valor(7)="14000" Valor(8)="15000" Valor(9)="16000" Valor(10)="17000" Valor(11)="18000" %> <td style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px" class="MNlatesquerda"> Preço de: <SELECT NAME="preco1" class="FORMbox"> <OPTION SELECTED VALUE="0000">Todos</OPTION> <% opcao = request("preco1") For I=1 to UBound(Valor) If opcao = Valor(i) Then %> <OPTION SELECTED VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% Else %> <OPTION VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% End If Next %> </SELECT> à <SELECT NAME="preco2" class="FORMbox"> <OPTION SELECTED VALUE="1000000">Todos</OPTION> <% opcao = request("preco2") For I=1 to UBound(Valor) If opcao = Valor(i) Then %> <OPTION SELECTED VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% Else %> <OPTION VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% End If Next %> </SELECT> </td> </tr> <tr> <td height="15" colspan="2"></td> </tr> <tr> <td align="center"> <input name="Submit" type="submit" class="LCNlatesquerda" value="Buscar"> </form> Esse em negrito não chega de modo algum quando dou o post.... olhem o meu seleciona cidade (que na verdade é subcategoria marca) <select name="cidades"> <% if codigo_categoria = "" then %> <option value="">Selecione um modelo</option> <% else Call abre_conexao(conexao) Set RS_SubAtividades = Server.CreateObject("ADODB.Recordset") RS_SubAtividades.CursorLocation = 3 RS_SubAtividades.CursorType = 0 RS_SubAtividades.LockType = 1 RS_SubAtividades.Open "SELECT * FROM Subcategorias WHERE codigo_categoria = "&codigo_categoria&" ORDER BY nome_subcategoria", Conexao While Not RS_SubAtividades.EOF %> <option value="<%=RS_SubAtividades("codigo_subcategoria")%>"> <%=RS_SubAtividades("codigo_subcategoria")%> - <%=RS_SubAtividades("nome_subcategoria")%> </option> <% RS_SubAtividades.MoveNext Wend %> <option value="">Nenhuma</option> <% Call fecha_conexao set RS_SubAtividades = nothing end if %> </select>
o nome dele é cidades... num tinha que chegar lá o <%=request("cidades")%> como chega o estados?
Gerar XML + atributos vindo de banco
em ASP
Postado · Editado por Ale3009
Olá Galeraaaa
to c/ um pepinho básico aki por falta de experiencia mesmo .. heheheeh
preciso gerar um XML pra um banner rotator, sendo que esses dados vem de banco.
deve ser gerado da seguinte forma
Aí o cod que fiz foi assim só que assim gera da seguinte formaSem as aspa...
alguém pode me ajudar a inserir com estas aspas por favor?
Desde já obrigada
Alessandra