Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    7.184

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por kuroi

  1. Mandar Uma Info. Digitada Para Meu E-mail.

    em Visual Basic

    Postado

    aqui, você vai encontrar muita coisa sobre MAPI:

    http://scriptbrasil.com.br/forum/index.php...s&highlite=mapi

    e aqui c pode encontrar o componente do graymalkin pra envio de e-mail q tb funciona bem:

    http://scriptbrasil.com.br/forum/index.php...c=64927&hl=mapi

    leia nos topicos como usar mapi.

    sem esquecer q pra enviar e-mail é necessario q o pc tenha outlook ou algum outro programa de envio de e-mail instalado e configurado.

    se tiver encontrando problemas ou tiver com alguma duvida poste aqui.

    editado:

    so pra lembrar, pra adicionar o mapi entre em Projects -> Components e escolha Microsoft MAPI Controls 6.0

  6. Controle De Estoque - Gerenciamento

    em ASP

    Postado

    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.

  12. Vários Inner Join

    em ASP

    Postado

    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

  13. Put

    em Visual Basic

    Postado

    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?

  15. Problemas Com Auto Numeração

    em ASP

    Postado

    então.. eu posso tirar o contador de post que o banco cuida disso sozinho?

    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.

  17. Data Dentro Do Where

    em ASP

    Postado

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

  18. Pq Meu Modem Nao Funciona Mais?

    em Hardware

    Postado

    já tentou trocar a porta?(comm)

    sim... você diz porta COM1, COM3, etc? não deu em nada...

    pô, c você tem garantia vai atrás............. tem q ver o q é.................. o cara q se vire pra descobrir..............

    pode ter sido raio sim, mas é dificil saber "do 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...

  19. Pq Meu Modem Nao Funciona Mais?

    em Hardware

    Postado

    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?

  25. Atualizar Pasta Do Windows

    em Visual Basic

    Postado

    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

×
×
  • Criar Novo...