Jump to content
Fórum Script Brasil

Thiago Peres

Membros
  • Posts

    10
  • Joined

  • Last visited

About Thiago Peres

Thiago Peres's Achievements

0

Reputation

  1. Bom, eu queria criar um programinha, onde eu ia colocar varios nomes 1 por 1 numa caixa de texto, tipo uma lista de festas, e ao dar OK, num command button esses nomes fossem sendo gravados num banco de dados, mas esses nomes tinham que ficar em Ordem Alfabetica. Procurei no Forum sobre o assunto e não achei nada... Agradeceria muito mesmo a ajuda! Abraço a todos da comunidade...
  2. não... esse evento LimparTela() é uma sub rotina.... mas eu já consertei meu codigo, e deu certo... hehehe!! msmo assim valeu pela ajuda... qualquer outra duvida, eu procuro aqui no forum... se não tiver eu crio um novo tópico... agradeço a comunidade! abraço.
  3. graymalkin! já consegui o resultado que eu keria... agradeço pela ajuda que você me deuu... abraço!
  4. Graymalkin.. consegui consertar meu erro de Object... só que agora está dando outro erro... e eu já tentei de tudo e nada... =/ poderia me ajudar? Eu preencho o formulario todo certinho, quando eu coloco pra salvar no banco de dados, ele salva, inclui o usuario no BD, aih eu dou OK, só que depois não limpa a tela, como deveria e da esse erro aqui: Run-time error '5': Invalid procedure call or argument o erro é na linha (txtCodUsuario.SetFocus), abaixo o codigo: Private Sub LimparTela() LimparDados Toolbar1.Buttons(3).Enabled = False txtCodUsuario.Text = Empty txtCodUsuario.SetFocus End Sub Quando eu entro no sistema novamente, vou cadastrar outro usuario, quando eu coloco o codigo do usuario já existe, aparece as informaçoes do usuarios, quando eu vou excluir, acontece tudo certinho, exclui o usuario do banco de dados, limpa o formulario, só que o ponteiro do mouse vai direto para a cx. de texto 'NOME', sendo que eu não posso subir pra o Codigo do Usuario.... entendeu ??? abraço!
  5. Eu fiz algumas mudanças no meu codigo e ainda esta dando erro na minha gravação... o erro é esse: Run-time error '424': Object Required bom esse é o erro... meu codigo vai aqui embaixo, agradeço desde já a ajuda: Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vConfMsg As Integer Dim vErro As Boolean vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False If txtNomeUsuario.Text = Empty Then MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEndereco.Text = Empty Then MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCidade.Text = Empty Then MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEstado.Text = Empty Then MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTelefon.Text = Empty Then MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCEP.Text = Empty Then MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vErro Then Exit Sub Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText If vInclusao Then .CommandText = "INSERT INTO Usuarios " & _ "(CodUsuario, NomeUsuario, Endereco, Cidade, " & _ "Estado, Telefone, CEP) VALUES ('" & _ txtCodUsuario.Text & ",'" & _ txtNomeUsuario.Text & "','" & _ txtEndereco.Text & "','" & _ txtCidade.Text & "','" & _ txtEstado.Text & "','" & _ txtTelefone.Text & "','" & _ txtCEP.Text & "');" Else .CommandText = "UPDATE Usuarios SET " & _ "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _ "Endereco = '," & txtEndereco.Text & "'," & _ "Cidade = '," & txtCidade.Text & "'," & _ "Estado = '," & txtEstado.Text & "'," & _ "Telefone = '," & txtTelefone.Text & "'," & _ "CEP = '," & txtCEP.Text & "' " & _ "WHERE CodUsuario = " & txtCodUsuario.Text & ";" End If .Execute End With MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK" LimparTela Screen.MousePointer = vbDefault Set cnnComando = Nothing End Sub abraços graymalkin!
  6. Graymalkin... acho que entendi sim, o que voce quis falar... vou ver se modifico meu codigo e testar... agradeço a ajuda que você tem me dado... qualquer erro que eu encontre em meu codido, eu volto a postar aqui no tópico... obrigado... atenciosamente, Thiago Peres.
  7. Po graymalker... muito obrigado pela ajuda... agora eu to conseguindo conectar com meu BD... mas estou com um outro problema quando vou cadastrar um usuario no meu BD... vai aih meu codigo... poderar me ajudar e vê o que esta de errado... agradeço desde já! Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vConfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False If txtNomeUsuario.Text = Empty Then MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEndereco.Text = Empty Then MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCidade.Text = Empty Then MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEstado.Text = Empty Then MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTelefon.Text = Empty Then MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro" vErro = True If txtCEP.Text = Empty Then MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vErro Then Exit Sub Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText If vInclusao Then .CommandText = "INSERT INTO Usuarios " & _ "(CodUsuario, NomeUsuario, Endereco, Cidade, " & _ "Estado, Telefone, CEP) VALUES ('" & _ txtCodUsuario.Text & ",'" & _ txtNomeUsuario.Text & "','" & _ txtEndereco.Text & "','" & _ txtCidade.Text & "','" & _ txtEstado.Text & "','" & _ txtTelefone.Text & "','" & _ txtCEP.Text & "');" Else .CommandText = "UPDATE Usuarios SET " & _ "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _ "Endereco = '," & txtEndereco.Text & "'," & _ "Cidade = '," & txtCidade.Text & "'," & _ "Estado = '," & txtEstado.Text & "'," & _ "Telefone = '," & txtTelefone.Text & "'," & _ "CEP = '," & txtCEP.Text & "' " & _ "WHERE CodUsuario = " & txtCodUsuario.Text & ";" End If .Execute End With MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK" LimparTela Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub
  8. Poww se der pra dar uma ajuda... a fazer um outro codigo pra eu acessar meu banco de dados e tal... agradeço muito ! hehe... porque tipo meu amigo que mandou eu colocar no timer e tal... bom, agradeço muito a ajuda que já esta me dando... abraço!
  9. pow brother eu tirei a linha de comando que você falou e deu esse erro ! Run-time error '-2147467259 (80004005)': Unrecognized database format 'E:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb'. agradeço pela ajuda, abraço!
  10. Pow está aí o codigo que eu estou usando... um amigo que me passou esse codigo! hehe... não to conseguindo conectar no banco de dados de jeito nenhum... está dando erro... e aparecendo a msg do MSGBOX... --> esse codigo esta na module: Biblio.bas Public cnnBiblio As New ADODB.Connection --> esse codigo esta no timer do formulario splash: frmSplash.frm Private Sub Timer1_Timer() On Error GoTo errConexao cnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\Biblio.mdb;" cnnBiblio.Open Unload Me frmBiblio.Show Exit Sub errConexao: With Err If .Number <> 0 Then MsgBox "Houve um erro na conexão com o banco de dados." & _ vbCrLf & "O sistema será encerrado.", _ vbCritical + vbOKOnly + vbApplicationModal, _ "Erro na conexão" .Number = 0 Set cnnBiblio = Nothing End End If End With End Sub valeu pela ajuda desde já! abraço.
×
×
  • Create New...