Banco De Dados

[Denis_Rave]

Eu to com umas duvidas sobre BD, são duas perguntas:

1- Como fazer uma comparação entre um campo de uma tabela e um texto de um Textbox, e se for igual dar uma mensagem....

2-Tenho uma Listbox com alguns nomes, e tenho um textbox onde vou digitar alguma coisa e um botao ao lado.....queria q quando fosse clikado este botao ele achasse na List um nome parecido com o do text e mostrasse ele.....tipo, eu tenho na List:

Lapis

Caneta

Borracha

ai eu digitaria no text assim " bor" e quando clikasse no botao, apareceria selecionado

"Borracha" na List

vlw........

[PiGmEu]

Bom pelo q eu entendi la vai:

1 - para fazer a comapracao você tem q fazer...

A) Fazer um Select com o Campo q você quer: exemplo Select codigo from tbCadastro

Fazer a comparacao do q foi encontrado: exemplo if txtcodigo = codigo.... ai você da a msg

2) acho q essa pagina do macoratti pode t ajudar um pouco nessa duvida: http://www.macoratti.net/dica10.htm

Bom.. to meio na correria.. dei uma passadinha por aki...

espero ter ajudado

[]´s

[William Rodrigues]

Não acredito....o grande PiGmEu aqui....

Ah...muleke

gente boa essa cara meu...

Denis_Rave se ainda tiver dúvida cara posta aí

Abraços,

William Rodrigues

[Denis_Rave]

olha só....ve o q ta errado pra 1 pregunta

eu tava fazendo assim

If text1.text= Data1.recordset!Nome then
Msgbox "Erro"
end if

q ta errado?

e sobre a pregunta 2

esse codigo se aplica a list tb???

vlw.......

[rodfraga]

MEU DEUS, O PIGMEU... MEU DEUS, OLHA O ARAGORN13 ALI...Parando com a brincadeira (ando meio sumido não?), existe muito material na lista de sites pra você pegar sobre bando de dados.

[William Rodrigues]

MEU DEUS, O PIGMEU... MEU DEUS, OLHA O ARAGORN13 ALI...Parando com a brincadeira (ando meio sumido não?),

Anda meio sumidão mesmo brother...

existe muito material na lista de sites pra você pegar sobre bando de dados.

Dê uma olhadinha brother..

q ta errado?

Aparece alguma mensagem de erro?

Em que evento você está colocando esse código cara?

Abraços,

William Rodrigues

[Denis_Rave]

wu to pondo no botao de gravar.....o de update.......mas não ta funcionando......

e otra coisa.....essa rotina d API do marcorrati funciona com list box?? porque eu num consegui fazer não........

[Denis_Rave]

eu to pondo no botao de gravar.....o de update.......mas não ta funcionando......

e otra coisa.....essa rotina d API do marcorrati funciona com list box?? porque eu num consegui fazer não........

[PiGmEu]

eu to pondo no botao de gravar.....o de update.......mas não ta funcionando......

e otra coisa.....essa rotina d API do marcorrati funciona com list box?? porque eu num consegui fazer não........

POsta ae seu codigo de Insert e Update para ver o que esta de errado..

[]´s

Sobre o codigo... não sei não... mais olhe la e tente converter para um listbox!

[]´s

[Denis_Rave]

Private Sub Update_Click()

If txtnome.Text = "" Then
    MsgBox "Digite um nome de Anime", vbExclamation, "Erro"
    txtnome.SetFocus
End If
If txtnome.Text = Data1.Recordset!Nome Then
    MsgBox "Erro"
Else
    frmanimesdb.List1.AddItem (frmincluir.txtnome.Text)
    Data1.Recordset.Update
    frmanimesdb.Data1.Refresh
    Unload Me
    frmanimesdb.Enabled = True
    frmanimesdb.Show
End If

End Sub

[Ø£¡vë¡®'§®]

galera...

aproveitando este tópico eu gostaria de saber a rotina q

[Ø£¡vë¡®'§®]

galera...

aproveitando este tópico eu gostaria de saber a rotina q eu faço para que um banco access aceite imagens (se der para fazer isso no access não é?) e como eu configuro o grid...

a rotina seria mais ou menos em um OptionButton tipo Opt1 e Opt2 cada um com uma figura ai o usuario escolheria uma figura e esta figura seria salva no bd em seu cadastro!!!!!!!!!

abraços.............

[Denis_Rave]

OPA, BOA....EU TB QUERIA SABER

MAS SE PUDEREM RESPONDER MINHA PREGUNTA EU AGRADEÇO....

[William Rodrigues]

Brother...

Sempre antes de postar cara, faça uma busca aqui no fórum...

Já foram feitos alguns tópicos falando sobre isso! Veja:

Banco de Dados e Imagens

Conto com a colaboração de vocês

Abraços,

William Rodrigues

[Denis_Rave]

bom, eu consegui resolver a segunda pergunta assim:

'General Declarations.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

Mas ainda não sei o q esta dando errado na 1ª.....sera q ninguém sabe não??