データベースにデータを追加
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mdb_test\ITEMS.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand If Cn.State = ConnectionState.Closed Then Cn.Open() SQLCm.CommandText = "INSERT INTO TEXTPOINT VALUES (" & key & "," & temID & "," & tItem.Left & "," & tItem.Top & ")" SQLCm.ExecuteNonQuery() Cn.Close()