mestre fyoda

Codigo

não deu certo cara .

ta dando erro Run-Time error '424' Object Required . sql = "SELECT * FROM usuarios WHERE codigo='" & Codigo.Text & "' " Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load() Dim sql As String Set rs = CreateObject("ADODB.Recordset") cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD sql = "SELECT * FROM usuarios WHERE codigo='" & Codigo.Text & "' " rs.Open sql, cn, 2, 3 Nome.Text = rs.Fields("nome").Value End Sub

agora ta dando pau no If rs.EOF Then Operação não permitida quando o objeto esta fechado .

ta dando pau aqui Argumentos incorretos , estão fora do intervalo aceitavel ou estao em conflito . rs.Open sql, 2, 3

Eu tenho um login onde os campos Text são : -> Codigo -> Nome Vou citar um expmplo pra ficar mais explicado . Loguei com o Codigo 100 e Nome Rafael . Como Faço pra escolher todos os Dados do Bd para o Codigo 100 .

não manjo nada de vb , tem como eu guardar dentro de uma variavel do form1 e passar essa variavel para o form2 . Exemplo : Form1 Verifica = Codigo.Text Form2 Nesse form2 ele ira receber o Verifica . Como faço , por favor me passe passo a passo .

é enable , aonde deixo false ? não deu certo o seu codigo de Collection. codigo do login Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Coleção As New Collection Private Sub Command1_Click() Dim sql As String Set rs = CreateObject("ADODB.Recordset") With rs .Open " Select * from usuarios where codigo ='" & Codigo.Text & "' and nome ='" & Nome.Text & "'", cn, adOpenKeyset, adLockOptimistic If rs.EOF Then MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro" Else Coleção.Add Codigo.Text, "codigo" Form2.Show Unload Me End If .Close End With End Sub Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" End Sub codigo do update Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Coleção As New Collection Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD rs.Open "SELECT * FROM usuarios where codigo = '" & Coleção("codigo") & "' ", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" Codigo.Text = rs.Fields("codigo").Value Nome.Text = rs.Fields("nome").Value Endereco.Text = rs.Fields("endereco").Value Numero.Text = rs.Fields("numero").Value End Sub Private Sub Update_Click() Dim sql As String sql = "UPDATE usuarios SET nome = '" & Nome.Text & "' , numero = '" & Numero.Text & "' WHERE codigo = '" & Codigo.Text & "' " cn.Execute sql End Sub

não deu certo . Ei mano como você manja , como deixo enabled um text ?

como que se usa essa Coleçoes numa instruçao por exemplo em asp é assim . rs.Open "SELECT * FROM usuarios WHERE login = '"&Session("login")&"' " Esta parte em negrito , como faria com uma Collection .?

no asp a session ela é perfeita , por que quando o usuario loga e vai dar o update em algum dado , é so usar a session no where , tem como usar esse codigo no where , como faz ?

tem alguma coiza parecida com o Session do asp , como é ?

ei mano agora eu descobri o meu erro , eu tinha que colocar um botao e clicar no botao pra funcionar . agora esta funcionando . Tem como eu fazer isso mas sem eu clicar no botao . Tipo , quando o usuario entrar no form4 ele já ve os dados do bd sem clicar no botao , como faço ?

não da nenhum erro .

ele esta preenchido sim . Só uma coisa , quando eu tentei fazer com o Data , ele dava esse erro : Unrecognized database format 'C:\Banco.mdb' . Esse erro no Data da na propriedades no RecordSet , aonde deveria mostrar as tabelas do bd . Será que tem algo a ver , por isso não mostra ?

ainda não deu certo

ei mano , como faço pra fazer uma paginação no vb , sem o campo data ?

Meu codigo ficou assim Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Nome_Change() Nome.Text = rs.Fields("nome").Value End Sub Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" End Sub E não aparece nada .

ei cara não deu nenhum erro , mas não esta aparecendo nada no campo text

como faço para colocar os dados do bd access para o campo texto do vb 6.0 ?

presizo de um tutorial de UPDATE, mas quero que os campos text sejam igual ao do html , você coloca value = a variavel do bd . Exemplo . No banco de dados na tabela esta : Nome : Rafael . No vb quero colocar Rafael no Text vindo do bd . como faço ?

isso , quando o usuario loga fica guardado na variavel .

Ai gente , alguém poderia me ajudar passando o codigo da Session do Vb6, é possivel .

Run-Time error '424': Object required Ai quando clico no Debug , essa linha frmPrincipal.Show fica amarela , alguém poderia corrigir o meu erro ControleGeral Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub cmdEntrar_Click() Set rs = CreateObject("ADODB.Recordset") With rs .Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimistic If .RecordCount = 0 Then MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro" Else codigo = CLng(rs("cod_usuario")) frmPrincipal.Show Unload Me End If .Close End With End Sub Private Sub cmdSair_Click() cn.Close Unload Me End Sub Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" End Sub frmPrincipal.Show Private Sub Form_Load() mnClientes.Enabled = False mnProdutos.Enabled = False mnFornecedores.Enabled = False mnPagar.Enabled = False mnReceber.Enabled = False mnFluxo.Enabled = False Set rs = CreateObject("ADODB.Recordset") With rs .Open "select a.aplicacao, b.acesso from aplicacoes a, acesso b where a.cod_aplicacao = b.cod_aplicacao " _ & "and b.cod_usuario=" & codigo, cn, adOpenKeyset, adLockOptimistic If .RecordCount = 0 Then MsgBox "Usuário sem acesso ao sistema!", vbExclamation, "Erro" Else Do While Not .EOF If rs("Aplicacao") = "Clientes" And rs("Acesso") = 1 Then mnClientes.Enabled = True End If If rs("Aplicacao") = "Produtos" And rs("Acesso") = 1 Then mnProdutos.Enabled = True End If If rs("Aplicacao") = "Fornecedores" And rs("Acesso") = 1 Then mnFornecedores.Enabled = True End If If rs("Aplicacao") = "Pagar" And rs("Acesso") = 1 Then mnPagar.Enabled = True End If If rs("Aplicacao") = "Receber" And rs("Acesso") = 1 Then mnReceber.Enabled = True End If If rs("Aplicacao") = "Fluxo" And rs("Acesso") = 1 Then mnFluxo.Enabled = True End If .MoveNext Loop End If .Close End With End Sub Private Sub mnSair_Click() cn.Close Unload Me End Sub

valeu cara . Grato pela Atenção .