INSERT INTO em ACCESS

[Gafanhoto]

Galera...

Não me retorna erro nenhum....

O que pode ser?

Já tentei de tudo.. deve ser um erro bem amador.... deve ser o excesso de café..... rsrsrs

Try
            Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data/data.mdb;Jet OLEDB:Database Password=w5o6k6y0;")

            Dim cmd As OleDbCommand = cn.CreateCommand

            cmd.CommandText = "insert into serial(serial) values('545454')"

            cn.Open()
            cmd.ExecuteNonQuery()
            cn.Close()

        Catch ex As Exception

            Throw ex
            MessageBox.Show("não fungou o INSERT magrão2")

        End Try

Editado Outubro 9, 2009 por quintelab
Adicionado BBCode Code

[quintelab]

Basta você exibir o Message da variável ex que verá qual é o erro.

Abraços...

[OSJunior]

Dicas:

- Utilize o debug no seu programa;

- Veja se não está com a sua tabela aberta (no MS Access) enquanto roda a aplicação no VS;

- Verifique se a sua base de dados está no local correto

;)

[Gafanhoto]

- Utilize o debug no seu programa; - TUDO OK

- Veja se não está com a sua tabela aberta (no MS Access) enquanto roda a aplicação no VS; - Não. Fechada

- Verifique se a sua base de dados está no local correto - Está na raiz agora....

Troquei o código por um que eu já vinha utilizando em outros programas.

Não me retorna nada em nenhum dos dois TRY.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim conexao As OleDbConnection

        Dim comando As OleDbCommand

        'conexao = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data/data.mdb;Jet OLEDB:Database Password=w5o6k6y0;")

        conexao = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=w5o6k6y0;")
        Try
            conexao.Open()
        Catch
            MessageBox.Show("Não funcionou a conexao")
        End Try


        comando = New OleDbCommand("INSERT INTO serial ( serial) VALUES (@serial)")

        comando.Connection = conexao

        Dim parametro As New OleDbParameter

        parametro.ParameterName = "@serial"

        parametro.OleDbType = OleDbType.VarChar

        parametro.Value = "12345"

        comando.Parameters.Add(parametro)
        Try
            comando.ExecuteNonQuery()

        Catch ex As Exception

            Throw ex
            MessageBox.Show("Não funcionou o insert")

        End Try

        conexao.Close()

        Dim frmCopia As New Form1
        frmCopia.Show()
        Me.Hide()

    End Sub

[OSJunior]

Experimente assim (e vamos ver o que pode acontecer):

Try
    comando.ExecuteNonQuery()
Catch ex As OleDbException
    MessageBox.Show(ex.Message)
End Try

[Gafanhoto]

Caramba... passa reto.... sem erro nenhum...

Tentei colocar também no load do form, mas não deu erro.

Apenas para mencionar, eu to em um projeto de windows forms, não é um website. Pode ter alguma diferença aí....

[Gafanhoto]

Seguinte... consegui fazer funcionar colocando o arquivo MDB em uma pasta do micro, por exemplo c:/data/data.mdb.

O erro tá aí.. no DEBUG eu acho que ele leva pra outra pasta, sei lá.... se eu colocar o ~/ na frente ele não funga.....

Acho que na instalação vou ter que forçar o caminho c:/arquivos de programas/aplicativoXX/data/data.mdb.

Seria o ideal, concorda comigo?

[OSJunior]

Dica de engenharia: nunca coloque sua string de conexão onde você coloca. Utilize o App.Config. ;)