rodrigo noma
-
Total de itens
16 -
Registro em
-
Última visita
Posts postados por rodrigo noma
-
-
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
-
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
Retornar todos os registros
em ASP
Postado
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.