Oledb Adapter/Command를 사용하여 VB.net에서 MS Access 2003 테이블에 행을 삽입하는 방법?

Question

전화 번호부와 같은 연락처 관리 양식을 만들었으므로 ID (사용자 번호)를 테이블에 삽입하는 동안 probs가 기본 키 (자동 번호)로 포함 된 MS Access 2003에서 거의 12 개의 필드를 만들었습니다. .

Imports System.Data.OleDb 
Public Class FrmMain 

    Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     connection_open() 
    End Sub 
    Dim adp As OleDbDataAdapter 
    Dim dt As DataTable 



    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click 
     Dim sql As String 

     sql = "insert into TblContacts (FName, Company, Contact_1, Contact_2, Address, Email_1, Email_2, Web, SNS, Date_Saved, Cont_Image) values ('" & TxtFName.Text & "' ,'" & TxtCompany.Text & "','" & TxtCont_1.Text & "','" & TxtCont_2.Text & "','" & TxtAddress.Text & "','" & TxtEmail_1.Text & "','" & TxtEmail_2.Text & "','" & TxtWeb.Text & "','" & TxtSNS.Text & "',#" & TxtDate.Text & "#,'" & TextBox10.Text & "')" 

     Try 
      adp = New OleDbDataAdapter 
      adp.InsertCommand = New OleDbCommand(sql, con) 
      adp.InsertCommand.ExecuteNonQuery() 


      MsgBox("Saved Successfully!") 

     Catch ex As Exception 

      MsgBox(ex.ToString) 

     End Try 
    End Sub 

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click 
     Try 
      dt = New DataTable 
      adp = New OleDbDataAdapter("Select * from TblContacts", con) 
      adp.Fill(dt) 

      DataGridView1.DataSource = dt 


     Catch ex As Exception 

      MsgBox(ex.Message) 

     End Try 
    End Sub 


    'Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    ' ToolStripTextBox2.Text = Now 
    'End Sub 

End Class 

**Connection Module:** 

Imports System.Data.OleDb 

Module connection_module 

    Public con As New OleDbConnection 
    Public Sub connection_open() 
     Try 
      If con.State = ConnectionState.Open Then 
       con.Close() 
      End If 
      con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Contacts.mdb" 
      con.Open() 

     Catch ex As Exception 

      MsgBox(ex.Message) 

     End Try 
    End Sub 
End Module 

https://picasaweb.google.com/105381696083885067883/VBNet?authuser=0&authkey=Gv1sRgCPvqiqCrjqCAfQ&feat=directlink

Answer 1

이름과 이미지는 MS Access에서 reserved words하고 [name]

Date_Saved 정말 텍스트되어 괄호로 묶어야해야합니까? 구분 기호가 아닌 #는 '

이고, 물론 @Lars 점입니다.

마지막으로, might like to consider parameters 또는 Passing parameter to query for Access database