Ir para conteúdo
Fórum Script Brasil

rodrigo noma

Membros
  • Total de itens

    16
  • Registro em

  • Última visita

Tudo que rodrigo noma postou

  1. 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.
  2. 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
  3. 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
  4. 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
  5. 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
  6. O que é datagrid, quando utilizar e como utilizar? Desculpe a minha ignorancia... Rodrigo
  7. 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
  8. 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
  9. 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
  10. 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
  11. 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
  12. Jóia cara....deu certo..... é estranho quando a gente tenta programar em outra linguagem.....fica meio perdido......... mas obrigadao mesmo.... Abraços Rodrigo
  13. 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
  14. 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
  15. Entendi Kuroi.....era isso mesmo o erro......desculpe minha ignorancia.... Obrigado mesmo.... Rodrigo
  16. Olá, sou iniciante e seguindo o passo a passo de uma apostila, criei esse codigo: Private Sub optHappy_Click() picHappy.Visible -True picOk.Visible -False picSad.Visible -False lblHappy.Caption -"Eu vou para Disney" lblOk.Caption -Empty lblSad.Caption -Empty Quando marco a cx de opção optHappy ele gera esse erro: compile error: Invalid use of property E uma faixa amarela em cima de Private Sub optHappy_Click() e uma azul em ".Visible-True" Obrigado pela ajuda Rodrigo
×
×
  • Criar Novo...