Ir para conteúdo
Fórum Script Brasil

Wakim

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Tudo que Wakim postou

  1. É o seguinte pessoal, tenho um formulário com vários combobox que devem ser preenchidos com dados de outras tabelas. No primeiro eu consigo puxar os dados nos demais não estou conseguindo. Estou usando Access 2007 e ADO. Estou usando a seguinte programação: Dim Banco As String Dim Conexao As ADODB.Connection Dim Dados As ADODB.Recordset Dim Autores As ADODB.Recordset Set Conexao = New ADODB.Connection Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd.mdb;Persist Security Info=False" Set Dados = Conexao.Execute("SELECT * FROM Revista") cmbrevista.Clear Do While Not Dados.EOF Debug.Print Dados("Revista") cmbrevista.AddItem (Dados("Revista")) Dados.MoveNext Loop Dados.Close Conexao.Close Set Conexao = Nothing Preciso preencher 5 combobox com dados de uma tabela (Autores) e não estou conseguindo. Lembrando que são no mesmo formulário. Se puderem me ajudar agradeço. Abraços.
  2. Pessoal, estou criando um formulário onde ao ser carregado ele busque informações em outra tabela. Por exemplo: Na Tabela Fornecedores, cadastro todos os dados. Na Tabela Pedido, ao invés de eu ter que digitar o nome novamente, o formulário buscaria as informações da tabela fornecedores. Alguém pode me ajudar? Estou usando conexão DAO com base de dados no Access Att.
  3. Posta o link ai que eu dou uma olhada se ainda tiver dúvida eu volto! Valeu.
  4. boa tarde pessoal, sou iniciante em VB e estou tentando fazer um form de login. No entanto, quero que ele acesse a tabela de usuários e verifique se o nome e senha estão cadastrado, se estiverem, deve avançar para outro formulário, se não apresenta uma mensagem de erro: Estou usando a seguinte programação, mas não sei se está correta, pois está dando uma mensagem de erro: Public bd as Database Public Usuarios as Recordset If txtlogin.Text = Usuarios("Usuario") And txtsenha.Text = Usuarios("Senha") Then formprincipal.Show Else MsgBox "Usuário ou senha não cadastrados!", vbExclamation + vbOKOnly, "ALERTA" End If End Sub Outra dúvida é quanto à rotina para gravar os dados dos usuarios: No formulário usuário tenho os seguintes dados: Código, Usuário, Senha, Novo, Salvar e Sair. Eu gostaria de o campo código fosse gerado automaticamente como no Access, como fazer? O código que estou usando é esse, no entanto, não consigo gravar na tabela. Private Sub Form_Load() Dim dbname as string dbname = "\bd.mdb" Set bd = DBEngine.Workspaces(0).OpenDatabase(App.Path & dbname) Set Usuarios = bd.OpenRecordset("Usuarios", dbOpenTable) txtcodigo.Enabled = False txtusuario.Enabled = False txtsenha.Enabled = False cmdnovo.Enabled = True cmdsalvar.Enabled = False cmdsair.Enabled = True End Sub Private Sub cmdnovo_Click() cmdnovo.Enabled = False cmdsalvar.Enabled = True cmdsair.Enabled = True txtcodigo.Enabled = True txtusuario.Enabled = True txtsenha.Enabled = True Usuarios.AddNew txtcodigo.SetFocus End Sub Private Sub cmdsalvar_Click() If txtcodigo.Text = Empty Then MsgBox "O cadastro do código é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtcodigo.SetFocus atualiza = False Exit Sub End If If txtusuario.Text = Empty Then MsgBox "O cadastro do nome de usuário é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtusuario.SetFocus atualiza = False Exit Sub End If If txtsenha.Text = Empty Then MsgBox "O cadastro da senha é necessária!", vbExclamation + vbOKOnly, "ALERTA" txtsenha.SetFocus atualiza = False Exit Sub End If Usuarios!("Codigo") = IIf(IsNull(codigo), "", codigo) Usuarios!("Usuário") = IIf(IsNull(Usuario), "", Usuario) Usuarios!("Senha") = IIf(IsNull(Senha), "", Senha) End Sub Se alguém puder me dá uma luz onde estou errando ficarei grato. Abraços Vasconcelos
  5. boa tarde pessoal, sou iniciante em VB e estou tentando fazer um form de login. No entanto, quero que ele acesse a tabela de usuários e verifique se o nome e senha estão cadastrado, se estiverem, deve avançar para outro formulário, se não apresenta uma mensagem de erro: Estou usando a seguinte programação, mas não sei se está correta, pois está dando uma mensagem de erro: Public bd as Database Public Usuarios as Recordset If txtlogin.Text = Usuarios("Usuario") And txtsenha.Text = Usuarios("Senha") Then formprincipal.Show Else MsgBox "Usuário ou senha não cadastrados!", vbExclamation + vbOKOnly, "ALERTA" End If End Sub Outra dúvida é quanto à rotina para gravar os dados dos usuarios: No formulário usuário tenho os seguintes dados: Código, Usuário, Senha, Novo, Salvar e Sair. Eu gostaria de o campo código fosse gerado automaticamente como no Access, como fazer? O código que estou usando é esse, no entanto, não consigo gravar na tabela. Private Sub Form_Load() Dim dbname as string dbname = "\bd.mdb" Set bd = DBEngine.Workspaces(0).OpenDatabase(App.Path & dbname) Set Usuarios = bd.OpenRecordset("Usuarios", dbOpenTable) txtcodigo.Enabled = False txtusuario.Enabled = False txtsenha.Enabled = False cmdnovo.Enabled = True cmdsalvar.Enabled = False cmdsair.Enabled = True End Sub Private Sub cmdnovo_Click() cmdnovo.Enabled = False cmdsalvar.Enabled = True cmdsair.Enabled = True txtcodigo.Enabled = True txtusuario.Enabled = True txtsenha.Enabled = True Usuarios.AddNew txtcodigo.SetFocus End Sub Private Sub cmdsalvar_Click() If txtcodigo.Text = Empty Then MsgBox "O cadastro do código é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtcodigo.SetFocus atualiza = False Exit Sub End If If txtusuario.Text = Empty Then MsgBox "O cadastro do nome de usuário é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtusuario.SetFocus atualiza = False Exit Sub End If If txtsenha.Text = Empty Then MsgBox "O cadastro da senha é necessária!", vbExclamation + vbOKOnly, "ALERTA" txtsenha.SetFocus atualiza = False Exit Sub End If Usuarios!("Codigo") = IIf(IsNull(codigo), "", codigo) Usuarios!("Usuário") = IIf(IsNull(Usuario), "", Usuario) Usuarios!("Senha") = IIf(IsNull(Senha), "", Senha) End Sub Se alguém puder me dá uma luz onde estou errando ficarei grato. Abraços Vasconcelos
  6. boa tarde pessoal, sou iniciante em VB e estou tentando fazer um form de login. No entanto, quero que ele acesse a tabela de usuários e verifique se o nome e senha estão cadastrado, se estiverem, deve avançar para outro formulário, se não apresenta uma mensagem de erro: Estou usando a seguinte programação, mas não sei se está correta, pois está dando uma mensagem de erro: Public bd as Database Public Usuarios as Recordset If txtlogin.Text = Usuarios("Usuario") And txtsenha.Text = Usuarios("Senha") Then formprincipal.Show Else MsgBox "Usuário ou senha não cadastrados!", vbExclamation + vbOKOnly, "ALERTA" End If End Sub Outra dúvida é quanto à rotina para gravar os dados dos usuarios: No formulário usuário tenho os seguintes dados: Código, Usuário, Senha, Novo, Salvar e Sair. Eu gostaria de o campo código fosse gerado automaticamente como no Access, como fazer? O código que estou usando é esse, no entanto, não consigo gravar na tabela. Private Sub Form_Load() Dim dbname as string dbname = "\bd.mdb" Set bd = DBEngine.Workspaces(0).OpenDatabase(App.Path & dbname) Set Usuarios = bd.OpenRecordset("Usuarios", dbOpenTable) txtcodigo.Enabled = False txtusuario.Enabled = False txtsenha.Enabled = False cmdnovo.Enabled = True cmdsalvar.Enabled = False cmdsair.Enabled = True End Sub Private Sub cmdnovo_Click() cmdnovo.Enabled = False cmdsalvar.Enabled = True cmdsair.Enabled = True txtcodigo.Enabled = True txtusuario.Enabled = True txtsenha.Enabled = True Usuarios.AddNew txtcodigo.SetFocus End Sub Private Sub cmdsalvar_Click() If txtcodigo.Text = Empty Then MsgBox "O cadastro do código é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtcodigo.SetFocus atualiza = False Exit Sub End If If txtusuario.Text = Empty Then MsgBox "O cadastro do nome de usuário é necessário!", vbExclamation + vbOKOnly, "ALERTA" txtusuario.SetFocus atualiza = False Exit Sub End If If txtsenha.Text = Empty Then MsgBox "O cadastro da senha é necessária!", vbExclamation + vbOKOnly, "ALERTA" txtsenha.SetFocus atualiza = False Exit Sub End If Usuarios!("Codigo") = IIf(IsNull(codigo), "", codigo) Usuarios!("Usuário") = IIf(IsNull(Usuario), "", Usuario) Usuarios!("Senha") = IIf(IsNull(Senha), "", Senha) End Sub Se alguém puder me dá uma luz onde estou errando ficarei grato. Abraços Vasconcelos
×
×
  • Criar Novo...