Ir para conteúdo
Fórum Script Brasil

taffarel

Membros
  • Total de itens

    14
  • Registro em

  • Última visita

Tudo que taffarel postou

  1. taffarel

    Conexão Com Bd

    cara na boa isso não mi ajudo muito, mais valeew
  2. 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 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 Usuario " & _ " (CodUsuario, NomeUsuario, Endereco, Cidade, " & _ " Estado, CEP, Telefone) VALUES ('" & _ txtCodUsuario.Text & ",'" & _ txtNomeUsuario.Text & ",'" & _ txtEndereco.Text & ",'" & _ txtCidade.Text & ",'" & _ txtEstado.Text & ",'" & _ txtCEP.Text & ",'" & _ txtTelefone.Text & ",');" Else .CommandText = "UPDATE Usuarios SET " & _ "NomeUsuario = '" & txtNomeUsuario.Text & "'," & _ "Endereco = '" & txtEndereco.Text & "'," & _ "Cidade = '" & txtCidade.Text & ",'" & _ "Estado = '" & txtEstado.Text & ",'" & _ "CEP = '" & txtCEP.Text & ",'" & _ "Telefone = '" & txtTelefone.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 errGravação: 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 aparece isso quando eu tente gravar os dados na db como eu faço pra resolver????
  3. taffarel

    .ico

    axei um monte cara valeww
  4. galera como eu faço uma conexão de BD em acess pra vb???
  5. taffarel

    .ico

    essa mensagem de cima fui eu que postei entaum é essa minha pergunta
  6. taffarel

    .ico

    galera onde eu posso encontra um pacote de arquivos .ico com aparencia do WIN XP? pra mim colocar no VB 6?? ou os qui já vem no o Visual??
  7. taffarel

    Tudo Em Japones!

    já podem fechar o tópico eu já encontrei o VB 6 em ingles e Full, valeu galera
  8. taffarel

    Tem Como Criar?

    beleza cara eu já ate axei umas apostilas no google
  9. taffarel

    Tudo Em Japones!

    já tenho essa versaum ela falta algumas coisas como o "caption", entaum não server
  10. taffarel

    Tem Como Criar?

    valeww, mais esse assunto é muito compilcado pra um iniciante???
  11. galera tem como criar inteligencia artificial no Visual basic, pra jogos ou programas para deficientes???
  12. taffarel

    Tudo Em Japones!

    não, i tambem eu desculbri q ele ta incompleto, ta faltando forms e outra coisas mais, si alguém di vocês pudessem passa um link do VB 6, não posso comprar o cd porque meu driver ta quebrado ai não posso comprar o VB entaum alguém o link dele???? ai assim resolve tudo
  13. taffarel

    Tudo Em Japones!

    Nossa ninguém quis mi ajudar nesse forum, aff... vocês não tem respeito por ninguém. vou perguntar di novo alguém mi ajuda a resolver esse problema
  14. galera eu tenho visual basic 6 i ele ta em japones, eu to querendo a versaum em ingles ou alguém mi ajuda a mudar di lingua o programa. alguém si cadidata a mim ajudar
×
×
  • Criar Novo...