AlexMunhoz

Ola Galera.... Estou precisando de algo que fale sobre Treeview, de preferência o básico porque não sei nada sobre ele.... Agradecido....

Eu tenho esse comando, acha que não me expressei bem... Amigão, Deu certo já descobri o que tinha de errado.... minha formula não estava certa.... a que você me mandou foi batata.... Muito obrigado......

Eu tenho esse comando, acha que não me expressei bem... O que eu não estou dando conta é aplicá-la no rs.open entende...

Ola Amigões, Estou com uma duvida. Alguém Pode me ajuder??? Estou usando essa conexão com o meu banco. Eu gostaria de saber como faço para somar o campo Quant da tabela cds, para que possa saber quando cds já estão cadastrados. Deu p/ entender? Estou no aguardo. Abraço........

Grande cassitos.... Valwwwww pela força....

Estou tentando filtrar o RecordSet através de um campo texto chamado setor, dessa forma... Mas esta dando erro. ele filtra mas não aparece nada no DataGrid O que tem de errado???

vlwwwwww mano deu certo

Amigão, você poderia dar um Ex: de como Preencho a lista do DBCombo com os dados de um banco access via ADO ?

E ESSE AI SIM AMIGÃO....... ESSE EX: É SHOWWWWW VLWWWW GRAYMALKIN .....

Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset '------------------------------------------- Private Sub Form_Load() 'Abre o banco de dados cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb" 'Abre a tabela rs.CursorLocation = adUseClient rs.Open "SELECT * FROM cadastro", cn, adOpenDynamic, adLockOptimistic 'Liga o recordset à grade Set DataGrid1.DataSource = rs 'Rotina que preenche os campos: Preenche End Sub 'Rotina que preenche as caixas de texto de acordo com o registro selecionado atualmente no Recordset Private Sub Preenche() If Not (rs.EOF Or rs.BOF) Then 'Se a tabela não estiver vazia txtNome.Text = rs.Fields("nome").Value 'Preenche a caixa de texto com o conteúdo do campo 'nome' txtICQ.Text = rs.Fields("icq").Value 'Preenche a outra caixa de texto com o conteúdo do campo 'icq' Else 'Senão, ou seja, se estiver vazia txtNome.Text = "" 'Limpa as caixas de texto txtICQ.Text = "" End If End Sub Amigão, estou procurando no site um ex: que um Brother me mandou, assim que achar eu tem passo o link.

vlw .... mesmo

Ola amigões, Estou com uma duvida nessa linha, trata-se de um evento localizar.. ex procurar = imputbox("Buscar Por?") rs.Find "nome LIKE '*" & prucurar & "*'" ' Estou com duvidas nessa linha Sei que tem q ser assim, mas não sei o significado dela, alguém pode me explicar com detalhes p/ que eu entenda.. p q serve o - nome LIKE - os ' - e os * Grato...

Amigão deu certo, o problema todo era no rs que estava aberto... Ficou assim. vou tentar com texto e números pré definidos, c não der conta posso te incomodar mais um pouco?. Obrigado pela paciência...

Amigão, sei que já to te enchendo mas fiz exatamente como você me falou, Mas está dando um outro erro agora.. Eu coloquei um outro campo chamado filtro e um botão que ativa o comando Private Sub cmdFiltro_Click() rs.Open "SELECT * FROM cds WHERE Codigo=" & txtFiltro.Text, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub mas ainda esta dando erro... olha só Run-time error '3705': Operation is not allowed when the object is open. sem querer ser chato, mas você pode me ajudar outra vez?

Amigão, deu certo obrigado... mas eu gostaria de que a mascar aparecesse quando a pessoa estivesse digitando a data entende. Mas mesmo assim já ajudou bastante...

amigão, poderia me dar um Help de como usar esse controle? Não to conseguindo nem inserir no meu form

ola, eu troquei a linha que você falou mas ela não está filtrando. olha só o campo código está em numero sim... quando eu coloca a linha assim ela da o seguinte erro: Run-tima error '-2147217900(80040e14)': Systax error(missing operator) in inquery expression 'codigo='. se eu coloco a (aspa simples) ele executa normal mas não filtra, o que será isso? o meu codigo ficou assim depois que coloquei a linha Private Sub Form_Load() cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=VCDS.mdb" rs.CursorLocation = adUseClient ' rs.Open "SELECT * FROM cds", cn, adOpenDynamic, adLockOptimistic rs.Open "SELECT * FROM cds WHERE 'codigo='" & txtCodigo.Text, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs Preenche End Sub

Amigão, esta dando o seguinte erro... ele cria a mascara mas não ajusta na data...

Ola Galera... Alguém pode me ajudar a criar mascaras em no textBox, Ex: Data, CPF Etc... ___/__/___, 000.000.000-00 Fico no aguardo... té +++++

Uso esse procedimento amigão...

Amigão, Não estou conseguindo usar, você pode me dar um ex:

Aki tem alguns. http://www.vbmania.com.br/vbmcategory.php?varType=5

Ola galerra sou eu novamente... Eu gostaria que criar um filtro para um DataGrid.... Ex.: Eu tenho um text chamado código, e esse codigo vai filtrar o conteúdo do meu Grid. entenderam... Fico grato dês de já Obs. C puderem me postar com urgência eu agradeço, pois o meu expediente já acabou e em casa eu não tenho net...

ola galera, estou com a seguinte duvida e ficaria grato cd me dessem um forcinha... tenho uma rotina que abre a comunicação co um banco access ex: eu gostaria de fechar essa comunicação. colocara no Unload do form uma rotina que fechasse isso... porque quando eu fecho o form e abro novamente ele me fala que o banco já está aberto...

Eu preciso desativar somente os botões não tirar da barra de titulo, alias acho que essa opção não existe em MDIFORM... Assim mesmo muito obrigado pela atenção.