1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

V B urgente access\datasource

Discussão em 'Programação' iniciada por joao_esg, 21 de Junho de 2007. (Respostas: 3; Visualizações: 661)

  1. boas...
    eu tenho uma basse de dados em access em k o registo e regido pelo nume de avaria e esse por sua vez tem o nome de um cliente e eu queria faser procura por nome de cliente utilizando o datasource...

    se me poderem ajudar....


    ja tenho este codigo mas dam erro....


    dodc1.Index = "IAdodc1"
    test
    Adodc1.Seek "=", Text1.Text 'busca exata do nome
    Adodc1.Seek "=>", Text1.Text 'busca aproximado do nome
    If Adodc1.NoMatch Then 'se ele não achar faça
    MsgBox "Cliente não existe"
    Else
    MostraDados
    End If


    [ ]
     
  2. PJTuga

    PJTuga Power Member

    qual é o erro que te dá?
    analisando esse codigo rapidamente:
    dodc1--> não será Adodc1
    O adodc control não tem as propriedades Seek nem NoMatch

    mas posta aqui o erro...
     
  3. pois

    já deixei esse


    Adodc1.Refresh
    If Not Text1 = "" Then
    Adodc1.Recordset.Find "Nome: '" & Text1 & "%'"
    If Adodc1.Recordset.EOF Then
    Adodc1.Refresh
    MsgBox "Nome não encontrado"
    Exit Sub
    Else
    ******

    End If
    End If


    faltame é descobrir o codigo para ir boscar os dados a bd.....
     
    Última edição: 21 de Junho de 2007
  4. boas podes ir buscar os dados por um subformulario onde o link é text1 e o campo da tabela
    ...
    Mas eu n tou a perceber muito bem a duvida...

    Else
    dim a as string
    a= "Select * From Tabela1 Where Campo='Text1'"
    Me.RecordSource = a
    end if

    será isto??
     

Partilhar esta Página