Insert - erro

[AlexCT 0]

Não consigo fazer isso, fazr a instrução de inclusão

 

está ocorrendo o erro abaixo

 

Compile error:

 

Method or data member not found

 

Private Sub Incluir_Click(Index As Integer)

Dim BDdados As ADODB.Connection

Set BDdados = New ADODB.Connection

BDdados.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=SENHA;" & "Data Source=bd_form1.mdb;" & "Persist Security Info=False"

BDdados.Open

 

BDdados.Execute ("insert into BD_UNICO (nome,end,fone) values ('" & nome.Text & "','" & ende.Text & "','" & fone.Text & "')")

 

End Sub

[alissong 1]

AlexCT,Veja esse exemplo que pode te ajudar:

Private Sub GravarDados()Dim cnnComando As New ADODB.CommandDim vConfMsg As IntegerDim vErro As BooleanOn Error GoTo errGravacao'Inicializa as variáveis auxiliares:vConfMsg = vbExclamation + vbOKOnly + vbSystemModalvErro = False'Verifica os dados digitados:If txtNomeUsuario.Text = Empty ThenMsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"vErro = TrueEnd IfIf txtEndereco.Text = Empty ThenMsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro"vErro = TrueEnd IfIf txtCidade.Text = Empty ThenMsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro"vErro = TrueEnd IfIf txtEstado.Text = Empty ThenMsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro"vErro = TrueEnd IfIf txtCEP.Text = Empty ThenMsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro"vErro = TrueEnd If'Se aconteceu um erro de digitação, sai da sub sem gravar:If vErro Then Exit SubMicrosoft Visual Basic 6 77Screen.MousePointer = vbHourglassWith cnnComando.ActiveConnection = cnnBiblio.CommandType = adCmdText'Verifica a operação e cria o comando SQL correspondente:If vInclusao Then'Inclusão:.CommandText = "INSERT INTO Usuarios " & _"(CodUsuario, NomeUsuario, Endereco, Cidade, " & _"Estado, CEP, Telefone) VALUES ('" & _txtCodUsuario.Text & ",'" & _txtNomeUsuario.Text & "','" & _txtEndereco.Text & "','" & _txtCidade.Text & "','" & _txtEstado.Text & "','" & _txtCEP.Text & "','" & _txtTelefone.Text & "');"Else'Alteração:.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.ExecuteEnd WithMsgBox "Gravação concluída com sucesso.", _vbApplicationModal + vbInformation + vbOKOnly, _"Gravação OK"'Chama a sub que limpa os dados do formulário:LimparTelaSaida:Screen.MousePointer = vbDefaultSet cnnComando = NothingExit SuberrGravacao:With ErrIf .Number <> 0 ThenMsgBox "Houve um erro durante a gravação dos dados na tabela.", _vbExclamation + vbOKOnly + vbApplicationModal, "Erro".Number = 0GoTo SaidaEnd IfEnd WithEnd Sub7. “LimparTela” também é uma subrotina, que limpa totalmente o formulário para uma nova digitação:Private Sub LimparTela()'Chama a sub LimparDados para limpar os campos do formulário:LimparDados'Desabilita o botão Excluir:Toolbar1.Buttons(3).Enabled = False'Apaga o conteúdo do campo CodUsuario e lhe passa o foco:txtCodUsuario.Text = EmptytxtCodUsuario.SetFocusEnd Sub

Uso essa conexão no formulário de apresentação:

Private Sub Timer1_Timer()On Error GoTo errConexaocnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _"Data Source=" & App.Path & "\Biblio.mdb;"cnnBiblio.OpenMicrosoft Visual Basic 6 70Unload MefrmBiblio.ShowExit SuberrConexao:With ErrIf .Number <> 0 ThenMsgBox "Houve um erro na conexão com o banco de dados." & _vbCrLf & "O sistema será encerrado.", _vbCritical + vbOKOnly + vbApplicationModal, _"Erro na conexão".Number = 0Set cnnBiblio = NothingEndEnd IfEnd WithEnd Sub

[AlexCT 0]

mas o que eu errei ao escrever daquele jeito?

[ricsant 0]

me passa teu projeto por email q eu dou uma analisadaricsant03@gmail.comabs