Блог

Главная - Вопросы по программированию - Вставка данных в базу данных Access с помощью Visual studio 2012

Вставка данных в базу данных Access с помощью Visual studio 2012

#basic

#Базовые модели

Вопрос:

Я пытаюсь вставить данные в таблицу Oradores в Access с помощью Visual Basic. У меня есть код: ‘Общедоступные переменные novo_nome_comum = TxtNComum.Текст novo_nome_completo = TxtNCompleto.Текст nova_morada = TxtMorada.Текст nova_localidade = TxtLocalidade.Текст novo_codpostal = TxtCPostal.Текст novo_tel1 = TxtTel1.Текст novo_tel2 = TxtTel2.Текст novo_tlm1 = TxtTlm1.Текст novo_tlm2 = TxtTlm2.Текст novo_email1 = TxtMail1.Текст novo_email2 = TxtMail2.Текст nova_cong = TxtCong.Текст ‘Конец открытых переменных

     Dim connect As New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0;" amp; "Data Source =C:UsersFernandoDocumentsVisual Studio 2012ProjectsAgenda_DPAgenda_DPAgendaDP.accdb")

    connect.Open()

    Dim cmd As OleDbCommand = connect.CreateCommand()
    cmd.CommandText = "INSERT INTO Oradores (NomeComum, NomeCompleto, Morada, Localidade, CodPostal, Telefone, Telefone2, Telemovel, Telemovel2, email, email2, Congregacao) VALUES('novo_nome_comum', 'novo_nome_completo', 'nova_morada', 'nova_localidade', 'novo_codpostal', 'novo_tel1', 'novo_tel2','novo_tlm1', 'novo_tlm2', 'novo_email1', 'novo_email2', 'nova_cong')"


    cmd.ExecuteNonQuery()

    connect.Close()

Однако это не работает, и я не понимаю почему.
Я искал в MSDN и копирую приведенный пример в свой код.
Есть ли кто-нибудь, кто мог бы помочь мне?
Заранее спасибо.

Fernando Pessoa

Ответ №1:

Я поделюсь с вами фрагментом кода:

 Try
    Dim con As New   System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=yourDB.accdb;")
    Dim cb As String = "insert into Table1 (Date1, Sample1) VALUES (@p1, @p2)"
    Dim cmd As New System.Data.OleDb.OleDbCommand
    cmd.Connection = con
    cmd.CommandText = cb
    cmd.Parameters.AddWithValue("@p1", Me.DateTimePicker1.Value.ToShortDateString())
    cmd.Parameters.AddWithValue("@p2", Me.TextBox1.Text)
    con.Open()
    cmd.ExecuteNonQuery()
    con.Close()
Catch ex As Exception
    MessageBox.Show(Err.Description)
End Try

В моем примере все работает нормально.

Вы можете посетить сообщение под названием MS Access — VB .net — подключение и эксплуатация