SALVAR REGISTRO NO BD

USUARIO.EXCLUIDOS 13/08/2007 21:30:34
#230791
Boa Noite pessoal, oque eu estou fazendo de errado nesse codigo, pq não quer gravar no BD as informações do Formulario.

Dim cmdins As OleDbCommand

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
        
cmdins = New OleDbCommand("Insert Into tblCadClientes(CliCodigo, CliData, CliNome) values ( '" & txtCodigo.Text & "','" & txtDCadastro.Text & "','" & txtNome.Text & "')", ConBanco)

cmdins.ExecuteNonQuery()
MsgBox("Cadastro Concluido", vbApplicationModal, "Aviso")
DtaClientes.Update(DtsClientes, "tblCadClientes")
            End If
    End Sub
USUARIO.EXCLUIDOS 14/08/2007 08:01:10
#230805 Resposta escolhida
JAQUESON, se o teu campo "CliData" for do tipo data e se sua base de dados é Access, tem um erro simples no comando SQL, pois quando o campo é do tipo "data" vc não deve utilizar ## ao inves de '' Ex.

cmdins = New OleDbCommand("Insert Into tblCadClientes(CliCodigo, CliData, CliNome) values ( '" & txtCodigo.Text & "',#" & txtDCadastro.Text & "#,'" & txtNome.Text & "')", ConBanco)


Tenta desta forma, ai vai dar certo!!!
Tópico encerrado , respostas não são mais permitidas
Voltar