VB2008 GRAVAR DADOS ACCESS2007

SENAMA 06/05/2011 02:07:30
#373341
Quando mando gravar dados no access parece a mensagem de erro-> O comando de texto não foi definido para o objeto de comando.


meu coidog
[ô]Declaração de variáveis
Dim strConexao As String

[ô]Localiza o caminho do banco de dados
strConexao = My.Settings.ClinicaOdontoConnectionString.ToString

[ô]Cria objeto / comunicação com BCO DE DADOS
Dim cn As OleDbConnection = New OleDbConnection(strConexao)

[ô]Cria objeto para executar comando no Bco. Dados
Dim cmdAccess As New StringBuilder

[ô]Cria objeto para executar comando no access
Dim cmd As New OleDbCommand(cmdAccess.ToString, cn)





Try [ô]Tentar executar comandos dentro do Bco.Dados

[ô]se conseguiu conexão com bco.Dados então
If Validate() Then

cmdAccess.Append([Ô]INSERT INTO TBL_PACIENTE(Nome, CPF, RG, Telefone, Endereco, Numero, Complemento, Bairro, Cidade, Estado)[Ô])
cmdAccess.Append([Ô] VALUES( [ô][Ô])
cmdAccess.Append(txtNome.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & mkdCPF.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & mkdRG.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & mkdTelefone.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & txtEndereco.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & txtNumero.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & txtComplemento.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & txtBairro.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & txtCidade.Text & [Ô][ô],[Ô])
cmdAccess.Append([Ô][ô][Ô] & cboEstado.Text & [Ô][ô])[Ô])
[ô]Abre Banco de Dados - ACCESS
cmd.Connection.Open()
[ô]Grava no Banco de Dados
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros gravados com sucesso![Ô], _
[Ô]Mensagem do Sistema[Ô], _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If

Catch ex As Exception [ô]Captura Erros no código
MsgBox(ex.Message)
End Try [ô]Fim da tentativa de cadastro
PEGUDO 06/05/2011 07:10:28
#373342
Sem Senha:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\MeuBDAccess2007.accdb;Persist Security Info=False;

Com Senha:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\MeuBDAccess2007.accdb;Jet OLEDB:Database Password=MyDbPassword;
TECLA 06/05/2011 23:13:48
#373399
Segue um exemplo simples, procure adaptá-lo acrescentando os parâmetros no objeto Command.

Dim conn As New OleDbConnection()
conn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Banco.mdb[Ô]

Dim cmd As OleDbCommand = conn.CreateCommand
cmd.CommandText = [Ô]Insert into Clientes Values (11,[ô]Teste De Inclusão[ô],[ô]Rua Teste no 10[ô],[ô]061-123456[ô],[ô]10/11/1965[ô])[Ô]
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Tópico encerrado , respostas não são mais permitidas
Voltar