Ir para conteúdo
Fórum Script Brasil
  • 0

INSERT INTO em ACCESS


Gafanhoto

Pergunta

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 por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

- 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

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...