kuroi

o certo não seria <% = rvd.fields("produto") %> ou <% = response.write rvd.fields("produto") %> ?

quando for vender, por exemplo, 5 mil caixa de oleo, procure saber quantas latas tem em cada caixa e subtraia do banco o total de latas. se for 36 latas faca 36 * 5000. se o numero de latas varia pra cada caixa, tente saber qual o total de latas q estao sendo vendidas.

procure saber quantas unidades tem em cada caixa. grava no banco em unidade e não em caixa. se em cada caixa vem 50 unidades, e so multiplicar o numero de caixas por 50. se o numero de unidades por caixa varia, fica mais dificil, mas o mais importante e saber quantas unidades estao sendo compradas por vez.

ae renato, procura no forum ou no google algo sobre winsock. pedro, não entendi essa resposta q c passou...

procura aqui no forum tb q tem bastante coisa.

se alguém souber posta ai, q eu tb queria saber...

não entendi. emprimir = imprimir? você diz imprimir na impressora? qual o codigo q c usa?

acho q sem problema nenhum. isso q c fez me parece correto.

se eu entendi, o q você quer deve ser algo tipo: Select * from ((tabela_relatorio INNER JOIN tabela_1 ON tabela_relatorio.id_tab1 = tabela_1.id_tab1) INNER JOIN tabela_2 ON tabela_relatorio.id_tab2 = tabela_2.id_tab2) INNER JOIN tabela_3 ON tabela_relatorio.id_tab3 = tabela_3.id_tab3

foi mal, molecada. em vez de pesquisar antes, já vou postando, ne? é a forca do habito. to tão acostumado a tirar minhas duvidas aqui q qualquer uma q aparece, por mais tonta q seja, já to vindo direto e postando. valeu fercosmig. mas na verdade, já tinha uma ideia do q era esse put. o q eu estava fazendo era tentando entender esse funcao: ela serve para carregar imagens do banco de dados. se não me engano, copiei do site do macoratti. Public Const nBUFFER As Long = 1024 Public Function MostraImagem(Imagem As ADODB.Field) As StdPicture Dim bytB() As Byte, lngFF As Long, File As String Dim lngCont, FileLen, Blocks, LeftOver As Long File = "imagem.bmp" lngFF = FreeFile Open File For Binary Access Write As lngFF Blocks = Int(Imagem.ActualSize / nBUFFER) LeftOver = Imagem.ActualSize Mod nBUFFER bytB() = Imagem.GetChunk(LeftOver) Put lngFF, , bytB() For lngCont = 1 To Blocks bytB() = Imagem.GetChunk(nBUFFER) Put lngFF, , bytB() Next Close lngFF Erase bytB Set MostraImagem = LoadPicture(File) Kill File Exit Function End Function entendi o q faz o put. mas não entendi direito toda a funcao. entendi tb q esse getchunk recupera valores binarios do banco. mas porque é passado o paramento nBUFFER (= 1024) para a funcao? porque bytB é uma variavel array? pra q servem as variaveis LeftOver e Blocks?

Pra q serve o comando put?

sim. e so fazer: sql = "INSERT INTO Principal (Data,Lote,Gen,Cond,Texto,Img,Minimo,Obs,Dono,Criador,Touro,Coment,Lances) values (data & "','" & lote & "','" & gen & "','" & cond & "','" & texto & "','" & img & "','" & minimo & "','" & obs & "','" & dono & "','" & criador & "','" & touro & "','" & coment & "','0')" Set rs = Conexao.execute(sql) response.Write sql não precisa ter o trabalho d ficar contando os registros.

tem certeza q os nomes dos campos, incluindo o "codPed", estao certos? então mostre qual é a linha 42, pra q a gente possa saber onde comecar para poder te ajudar...

ningum me conhece aqui no forum de asp, não é?... na verdade não manjo muito, mas acho legal e em breve espero comecar a mexer bastante com asp. vou tentar te ajudar, mas não tenho muita certeza pois não tenho muita experiencia... voce não deve por um formato na data? tente: rsRES.open("select * from tbReserva where IDAcomodacao = "& IDAcomodacao &" and RESERVA_Saida < #"& Format(RESERVA_Entrada, "YYYY-MM-DD") &"#"),conn se não for nesse formato, o banco de dados pode se confundir. outra coisa, qual bd esta usando? access mesmo? se não for, acho q você vai ter q tirar os # e substituir por '.

sim... você diz porta COM1, COM3, etc? não deu em nada... sim, mas so vai dar pra eu levar o pc pra loja no ano q vem... e enquanto eu não descobrir o q foi, fico com isso na cabeca o dia inteiro... alem disso, se puder resolver sem levar pra la, melhor...

de uma hora pra outra, meu modem de 56K parou de funcionar. eu tento conectar e ele diz erro 680 - sem sinal de discagem. já desinstalei, reinstalei os drivers, tentei varios discadores, mudei varias configuracoes e nada. imaginei q tenha sido algum raio q atingiu a rede eletrica q queimou o modem (o q já me aconteceu antes). mas o estranho é q o windows diz q o modem esta instalado normalmente. o programa q veio no cd do modem faz o teste e disse q o modem estava normal, mas acusou problema para encotrar sinal na linha. já testei o fio e ele esta funcionando. mesmo assim, tentei outro fio, tentei outra tomada e nada... so não posso abrir o pc e tentar outro modem pra não perder a garantia. e se for problema de raio mesmo a garantia não vai cobrir. sera q foi mesmo o raio, mas ele não chegou a queimar o modem, apenas a porta em q eu conecto o fio? o q vocês acham q pode ser?

se o codigo q te passei: Dim filesys, y, z Set filesys = CreateObject("Scripting.FileSystemObject") Set y = filesys.GetFolder("H:\") For Each z In y.Files filesys.DeleteFile y.Path & "\" & z.Name Next não funcionar em vbscript, então não tenho mais ideia...

você esta em vbscript e não em visual basic?... então já não posso ter certeza, mas acho que em vbscript todas as variaveis são variants. então em vez de: Dim filesys As New FileSystemObject, y As Folder, z As File tente: Dim filesys, y, z

não porque não tenho msdn.... q tristeza....

qual é o erro?

procura um cracker... mas não vai esquecer q é contra a lei.

o problema é q o * não funciona, acho q o visual basic tenta procurar um arquivo que chama *.txt mas c pode fazer assim: Dim filesys As New FileSystemObject, y As Folder, z As File Set filesys = CreateObject("Scripting.FileSystemObject") Set y = filesys.GetFolder("H:\") For Each z In y.Files filesys.DeleteFile y.Path & "\" & z.Name Next entendeu? o codigo procura todos os arquivos que estao no diretorio e apaga todos eles. se voce quer filtrar para q ele so apague os que forem txt, é só ver se o nome do arquivo acaba com ".txt" tipo assim: If Right(z.Name, 4) = ".txt" Then x.DeleteFile y.Path & "\" & z.Name

não entendi bem, mas em vez de If filesys.FileExists ("H:\*.txt") Then End If o certo não seria If not filesys.FileExists ("H:\*.txt") Then Exit Sub

desenterrando outro tópico... não entendi direito esse negocio de Xor não. fiz uns testes e vi que: 255 Xor 49 = 206 49 Xor 255 = 206 porque isso? me parece q ele faz uma conta de subtracao e tira o modulo testei outros numeros, e é a mesma coisa. mas porque 206 Xor 49 = 255 e não 206 Xor 49 = 157 ? e porque 0 Xor 2 Xor 1 = 3 ? 0 Xor 1 Xor 1 = 0?

ninguém sabe não?