Ir para conteúdo
Fórum Script Brasil

Ceh

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    452

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Ceh

  3. Inserção De Imagens

    em ASP

    Postado

    Cara, eu acho q você podia melhorar um pouco essa lógica do seu banco, porque cadastrar 3X o mesmo produto é coisa de loko...

    P/ o produto não aparecer 3X, você tem q fazer um filtro por tamanho na query.

    tamanho=Request.Form("tamanho")
sql="Select * from produto where tamanho='"&tamanho"'"

    Coloca seu código assim lá, que vai listar todos os produtos num tamanho x q você pode colocar numa combo.

    De qualquer forma é melhor você tratar isso no bd, melhorar esse tamanho æ pra num ter q colocar no banco 3X.

    [ ]'s

  5. Preencher List Box Por Textbox

    em Visual Basic

    Postado

    Do jeito que você postou deu erro, então fiz assim e funcionou, mas só na primeira letra, não entendo porque, se eu coloquei o evento Change.

    ##Formulário##

    Private Sub txtUsuario_Change()
    Dim usuario, senha
    usuario = txtUsuario.Text
    senha = txtSenha.Text
    
    Call Conecta(caminho)
    
    Dim strSQL, rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    strSQL = " SELECT *" & _
             " FROM cad_part" & _
             " WHERE nome  Like'" & Trim(usuario) & "%' " & _
               "order by nome"
    rs.Open strSQL, GotoAccess, adOpenKeyset, adLockOptimistic
    
    If rs.RecordCount > 0 Then
            Do While Not rs.EOF
               Lstpesquisa.AddItem rs.Fields(5)
               rs.MoveNext
            Loop
    End If

End Sub
    ##Módulo## 
    Public caminho, usuario, senha, GotoAccess, strSQL
Function Conecta(caminho)

Dim sLocal As String
Dim Access As String

sLocal = App.Path

DoEvents

Set GotoAccess = New ADODB.Connection

    Set GotoAccess = CreateObject("ADODB.Connection")
    Access = "Driver={Microsoft Access Driver (*.mdb)};" & _
    "Dbq= C:\vb\db1.mdb;" & _
    "DefaultDir=" & sLocal & ";"
    GotoAccess.Open Access
    
End Function

    [ ]'s

  10. Preencher List Box Por Textbox

    em Visual Basic

    Postado

    Pessoal, já consegui colocar tudo no listbox, mas surgiu outro problema... rssss

    Ex: Eu digito a letra p(seleciona todo mundo com p), mas se eu continuo digitando paulo(não muda só para os nomes que começam com paulo), Aparece tb, Pablo, Patricia etc... aparecem todos que comecam com a letra p, mas as outras letras que eu digitei não!

    Eu já separei tudo, tem uma parte só com o banco(módulo). Não sei porque não vai mudando se eu coloquei inclusive no evento Change.

    [ ]'s

  12. Erro Conectar O Banco De Dados

    em ASP

    Postado

    Dois problemas:

    1º: as linhas 

    Set conCadLivro =
Server.CreateObject("ADODB.Connection")

Set recLivro =
Server.CreateObject("ADODB.Recordset")

devem estar em uma só ASSIM:

Set conCadLivro = Server.CreateObject("ADODB.Connection")

Set recLivro = Server.CreateObject("ADODB.Recordset")

    2º: Você não fez um select para colocar os dados do bd na memória.

    [ ]'s

  13. Preencher List Box Por Textbox

    em Visual Basic

    Postado

    Pessoal, estou com um problema aqui! Preciso fazer uma busca no bd cada vez que um usuário pressiona uma tecla e colocar o resultado em um listbox... eu até tenho um código aqui, mas não funciona... vou postar aqui para ver se alguém consegue me ajudar.

    Private Sub Txtpesquisa_Change()
    Dim I As Integer
    Dim J As Integer
    Dim aux As String
    Dim SQL As String
    Dim Sansql As String
    Dim db As Database
    Dim rs As Recordset
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path + "\..\db1.mdb")
    Set rs = db.OpenRecordset("CAD_PART")
    LstPesquisa.Clear
    If Txtpesquisa <> "" Then
        J = Len(Txtpesquisa)
        J = J Mod Letras
        If J <> 0 Then
            Exit Sub
        End If
            SQL = "Select * from cad_part where nome like '" + Txtpesquisa + "%' order by nome"
                Set rs = db.OpenRecordset(SQL)
        If rs.RecordCount > 0 Then
            Do While Not rs.EOF
               LstPesquisa.AddItem rs.Fields(0)
               rs.MoveNext
            Loop
        End If
        rs.Close
    End If
End Sub

    Não ocorre nenhum erro, mas também não preenche o listbox quando eu pressiono uma tecla!

    [ ]'s

  14. Um Sistema Assim

    em ASP

    Postado

    Eu acho que você deve cobrar um valor/hora e estimar quantas horas irá gastar fazendo o trabalho... assim, você estima quanto vai cobrar, mas um sistema desses, vai levar muitaaaaasssss horas... isso só de programação, fora que você vai desenvolver algum design... se você não trabalha com design, vai ter q terceirizar... tem q pensar no custo que será isso tb... e não esqueça de "amarrar" tudo muito bem em contrato.

    [ ]'s

  16. Discador

    em ASP

    Postado

    Eu acho que a internet discada está com os dias contados, mas ainda vai levar alguns anos para essa realidade mudar... por mais tecnologia que se tenha... tem mta gente que nunca viu um computador de perto, que nunca mexeu no computador... digo isso, porque eu fui instrutora aqui na minha cidade(que não é pequena) e a maioria dos meus alunos nunca tiveram contato algum com a informática.

    De qualquer forma, seria mais "negócio" tentar montar um provedor que gere o conteúdo e fazer uma parceria com os provedores banda larga.

    [ ]'s

  18. Discador

    em ASP

    Postado

    Acho que você deveria postar em redes... porque p/ disponibilizar acesso à internet, você tem q alugar um link na Embratel, Intelig, Telemar(esse é caro, pra você num poder concorrer com o velox)... Tem forma de você conseguir grana com acesso gratuito, eu não sei bem como eles trabalham, mas esses comerciais que a Intelig faz é justamente isso... você usa e eles cobram de alguém... vou pesquisar mais à respeito e posto aqui.

    [ ]'s

  19. Paginação E Consulta

    em ASP

    Postado

    Então, você coloca a session recebendo a sua variável

    Session("pesquisa") = strPesquisando

    toda vez que você precisar do que está na variável, você pode usar agora a session... para recuperar o que está armazenado na session, é só fazer ao contrário.

    strPesquisando = Session("pesquisa")

    [ ]'s

  20. Paginação E Consulta

    em ASP

    Postado

    Assim ó:

    Session("pesquisa") = variavel

    Mas eu acho desnecessário o uso de session, até porque, quando você cria uma session cada usuário que entra no seu site tem uma... você tem q ver se não vai ficar sobrecarregado o sistema com tanta session.

    [ ]'s

  23. Global Asa

    em ASP

    Postado

    Que eu saiba sim, você pode determinar um horário pra executar, mas você pode executar quando o usuário logar e deslogar(no caso de sessão, porque gera uma pra cada usuário, com application eu nunca testei).

    Eu por exemplo, envio uma mensagem pra minha caixa toda vez que alguém entra no meu site... sei q com bd seria mais "fácil", mas assim monitoro melhor.

    [ ]'s

×
×
  • Criar Novo...