rodrigo noma

Ta OK, vou perguntar de outra forma. Existe como pegar a quantidade total de registros utilizando ubound e verificar um por um se possui a letra "a"? Obrigado.

Seria um bd unico para um aplicativo usado por todos os micros. Como seria a melhor forma de fazer minha conexão?Pelo modo que eu mostrei ou pelo que você mostrou? OK,obrigado Kuroi pela informação. Rodrigo

Em uma conexão de rede criada para access no vb, sendo que o bd esteja local é assim: Set cn = new "ADODB.Connection" ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bd.mdb;" Cn.Open ConnString E se o bd estiver em um servidor com ip 192.168.0.120 e instalar o programa em vb em outras maquinas, como deve ser feito no codigo para que ocorra a conexao? Sera que assim funcionaria sem problemas? Set cn = new "ADODB.Connection" ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.120\c\bd.mdb;" Cn.Open ConnString Obrigado Rodrigo

Estou tentando trabalhar com datagrid, mas estou tendo dificuldades. Criei um datagrid e um botao, para iniciar a busca no bd Private Sub Command1_Click() Set cn = New ADODB.connection connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\cad_cli.mdb;" cn.open connstring Set rq = cn.execute("select * from cad_cli") DataGrid1.Caption = Teste DataGrid1.Columns.Add (0) For i = 0 To rq.Fields.Count - 1 DataGrid1.Columns(i).Caption = rq.Fields(i).Name Next Set DataGrid1.DataSource = rq DataGrid1.Refresh End Sub O que tem de errado para conseguir o desejado? Obrigado Rodrigo

Tenho no meu form um combo que busca os registros de um bd, e um botao "excluir", quando faço a escolha de um registro e clico em excluir, o registro é excluido normalmente, mas ele continua sendo mostrado no combo.Se eu fechar o programa e abrir novamente, o registro não estara mais la. So que gostaria que saisse do combo sem eu fechar o programa e abrir novamente,como se desse um refresh no exe. Obrigado Rodrigo

O que é datagrid, quando utilizar e como utilizar? Desculpe a minha ignorancia... Rodrigo

porque toda vez que vou executar meu programa ele da um erro e tenho que fazer tal procedimento: Project -> References -> Microsoft ActiveX Data Objects 2.x E marcar a opção? Tem como já deixar marcado ou algum realizar algum procedimento que faça com que não seja mais necessario marcar o Microsoft Active Data Objects? Obrigado

Fabiano Muito obrigado pela explicação....realmente deu para entender tudo que você citou... No ASP eu utilizo Rs("Nome"), no VB não sabia que isso equivale a Rs!nome, agora entendi.... quanto ao vValor1, foi burrada minha mesmo.....confundi string com numerico e assim deu erro, mas o meu programa não estava funcionando da maneira que eu queria por um motivo que vim descobrir mais tarde....estava fazendo a programação no evento Change e por isso não estava executando corretamente, ai fiz o mesmo codigo para o evento Click e foi tudo resolvido... Obrigado por tudo e espero que possa aprender mais com você e outras pessoas que me ajudam no forum. Abraços Rodrigo

OK, fiz esta alteração e deu certo: Combo1.AddItem rs_pesq!nome Por que da exclamação?????? Agora tenho 3 textbox denominadas codigo,idade e cor quando escolho o nome no combo, gostaria de que esses 3 campos fossem preenchidos automaticamente,então criei um codigo assim: Private Sub Combo1_Change() Set Cn = New ADODB.Connection ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;" Cn.Open ConnString vValor1 = Combo1.Text Set Rs_Comb = Cn.Execute("Select * from tb_teste where nome=" & vValor1) If Not Rs_Comb.EOF Then txtnome.Text = Rs_Comb("codigo") txtidade.Text = Rs_Comb("idade") txtcor.Text = Rs_Comb("cor") Else MsgBox ("Nenhum registro encontrado!!!") End If End Sub Não sei se isso é possível..... Obrigado pela ajuda. Rodrigo

Obrigado Graymalkin, agora entendi o meu erro e parece que começou a dar certo a busca no bd, mas ainda acho que há um erro,quando executo fica uma faixa amarela na linha: Combo1.AddItem = Rs_Pesq("nome") Qual propriedade eu utilizo? Obrigado Rodrigo

Estou usando isso no Combo1 Private Sub Combo1_Change() Set Cn = New ADODB.Connection ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;" Cn.Open ConnString Set Rs_Pesq = Cn.Execute("Select * from tb_teste") Do While Not Rs_Pesq.EOF Combo1.AddItem = Rs_Pesq("nome") Rs_Pesq.Movenext Loop End Sub Para retornar os dados que eu tenho no bd, mas fica vazio. Onde pode estar o erro? Obrigado Rodrigo

Jóia cara....deu certo..... é estranho quando a gente tenta programar em outra linguagem.....fica meio perdido......... mas obrigadao mesmo.... Abraços Rodrigo

Opa, obrigado Kuroi....parece que deu certo a conexão.... quando eu executo o projeto e tento faezr um select ele me aparece uma mensagem assim: "Nenhum valor foi fornecido para um ou mais parâmetros necessários" O codigo esta assim: Set Cn = New ADODB.Connection ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;" Cn.Open ConnString vValor1 = Text1.Text Set Rs_Pesq = Cn.Execute("Select * from tb_teste where codigo=vValor1") lblnome.Caption = Rs_Pesq("idade") Obrigado pela ajuda Rodrigo

Ola Sou programador ASP e estou iniciando em VB, estou com uma dúvida em relação a BD Access. No asp eu criaria uma conexão assim: Set Cn = Server.CreateObject("ADODB.Connection") ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;" Cn.Open ConnString No VB para criar uma conexão eu posso aproveitar a mesma string ou é muito diferente disto? E onde eu coloco a string, no botão ou no form? Obrigado Rodrigo

Entendi Kuroi.....era isso mesmo o erro......desculpe minha ignorancia.... Obrigado mesmo.... Rodrigo