Nilton

Private Sub Form_Load() LongData 'data fomato no StatusBar End Sub 'Para mostrar data formato Longdate Sub LongData() dLng = Format(Date, "dddd") Dia = Format(Date, "dd") mes = Format(Date, "mmmm") Ano = Format(Date, "yyyy") StatusBar.Panels(4).Text = StrConv(dLng, vbProperCase) & ", " & Dia & " de " & mes & " de " & Ano End Sub

:angry: Puxa como esse POST não Funcina muito Fraquinho............ já Consegui By

Não Deu certo Não.. :wacko:

desculpa masi esqueci de mencionar que no meu campo text tenho um LIst que lista tb os pacientes para facilitar a busca, nele aparece todos da tabela no grid não . Grato

vou fazer o teste muito obrigado

ok eu já tenho esse comando ele pega todos os nomes ao mesmo tempo quando eu abro o form com o nome já definido ele joga no Grid todos os nomes correspondente a ele Consulta ("select * FROM Cad_Paciente WHERE MedicoID='" & Trim(lblMedicoID) & "'") Ok. tudo bem, mas so quando fazo a pesquisa o campo txtNome.text 'Sql = "SELECT * FROM Cad_Paciente WHERE Nome Like '" & txtNome.Text & "%'ORDER BY Nome" ele pega da tabela inteira.. eu queria pegar somente um qua carrega na tabela grid. Grato Sera que niguem tem uma luz pra mim...

Tenho uma tabela no firebird Com os campos ControelID , PedidoID, Nome, Endereço, Etc... Minha duvida é que estou tentando gerar um busca Sql = Select * From Tabela Nome Like txtNome Mais ou menos assim So que quero pegar os nomes somente dos pedidoID = 01 ControelID = 01 = Paulo ControelID = 02 = Marcio So quando faço a busca ele pega dos da tabela 01 e 02 Grato