데이터베이스에 Microsoft Access 2003을 삽입하는 중 VB.net을 사용하지 못했습니다.

Question

VB.net에서 Microsoft Access 데이터베이스에 삽입하려고합니다. 데이터베이스 (그리드보기에서 볼 수 있음)에서 읽을 수는 있지만 데이터베이스에 삽입 할 수는 없습니다. 문제가있는 곳을 모르겠습니다.

Imports System.Data 
Imports System.Data.OleDb 

Public Class Form1 
Public ctr As Integer 
Dim bm As BindingManagerBase 
Dim dr As DataRow, dt As DataTable 
Dim flag As Integer, tid As Integer, tname As String 
Dim totalrow As Integer, currentrow As Integer 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    'TODO: This line of code loads data into the 'ShowroomDataSet.customer' table. You can move, or remove it, as needed. 
    bm = Me.BindingContext(ShowroomDataSet, "customer") 
    bm.Position = 0 
    Me.CustomerTableAdapter.Fill(Me.ShowroomDataSet.customer) 

End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim x As Integer 
    Dim y As String 
    bm.Position = bm.Count - 1 
    x = ShowroomDataSet.customer(bm.Position).cid 
    y = ShowroomDataSet.customer(bm.Position).cname 
    TextBox1.Text = x 
    TextBox2.Text = y 

    End Sub 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
    Close() 
End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    'save 
    'enable all buttons except save 
    If flag = 1 Then 
     dt = ShowroomDataSet.Tables("customer") 
     dr = dt.NewRow() 
     dr!cid = Val(TextBox1.Text) 
     dr!cname = TextBox2.Text 
     dt.Rows.Add(dr) 

    End If 
    If flag = 2 Then 
     dr.Delete() 
    End If 
    If flag = 3 Then 
     dt = ShowroomDataSet.Tables("customer") 
     dr = dt.Rows.Find(tid) 
     dr.BeginEdit() 
     dr!cid = Val(TextBox1.Text) 
     dr!name = TextBox2.Text 
     dr.EndEdit() 
    End If 
    'Me.CustomerTableAdapter.Update(Me.ShowroomDataSet.customer) 
    'Me.CustomerTableAdapter.Fill(Me.ShowroomDataSet.customer) 
    flag = 0 
    Button1.Enabled = True 
    Button2.Enabled = False 
    Button3.Enabled = True 
    Button4.Enabled = True 

End Sub 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    'add 
    'disable all buttons except save 
    Dim len As Integer 
    TextBox1.Text = " " 
    TextBox2.Text = " " 
    flag = 1 
    TextBox1.Focus() 
    Button1.Enabled = False 
    Button2.Enabled = True 
    Button3.Enabled = False 
    Button4.Enabled = False 
    dt = ShowroomDataSet.Tables("customer") 
    len = dt.Rows.Count - 1 
    dr = dt.Rows(len) 
    End Sub 
    End Class 

오류나 고장을 : 이 내가 일을하지 오전 것입니다. 도와주세요.

Answer 1

액세스 데이터베이스에 데이터를 삽입하려는 경우 데이터베이스 어댑터 삽입 메서드를 사용하고 테이블 어댑터의 fill 메서드를 사용하여 데이터 집합의 테이블을 채 웁니다. 예를

me.tableadapter.insert (me.1stFieldTextbox.text, me.2ndFieldTextBox.Text ....) me.tableadapter.fill (me.Dataset.Table)

당신이 얻을 경우 다음을 참조하십시오 오류가 발생했습니다. 데이터 유형이 일치하지 않아 자동 증가 필드 또는 계산 된 데이터 유형이있는 필드에 데이터를 삽입하려고했기 때문일 수 있습니다.