タイトル : Accessデータベースの更新 投稿日 : 2005/01/19(Wed) 21:23 投稿者 : MANA
[OSのVer]:WindowsXP [VBのVer]:VB.NET 2003 はじめて、登録させていただきます。 VB初心者です。よろしくお願いします。 現在、Access2000に接続した上で、データ(文字)をテキストボックスに表示させています。 表示後、テキストボックスの内容を書き換え、コマンドボタンをクリックすることで、Accessデータ ベースの内容を更新させようとしています。 そこで、以下のPGでは、データセットの内容は更新できているようですが、一度終了して、再度開始 した際には元のデータに戻っています。 以下にPGを掲載しますので、どなたかよいアドバイスをいただけますようお願いします。 どうか、よろしくお願いします。 Private Sub BtnMemo_Click Dim N As Integer Dim i As Integer Dim message As String 'IDの文字列作成 N = Len(txtID.Text) '行番号の取得() i = N - 1 'データセットのデータ更新 If txtGaiyou2.Text = "" Then ' Else DsT_Gyoumu1.Tables("Table").Rows(i).Item("概要") = txtGaiyo u2.Text End If If txtMemo2.Text = "" Then ' Else DsT_Gyoumu1.Tables("Table").Rows(i).Item("メモ") = txtMemo2 .Text End If 'データセットが更新されていないときは、以下の処理を実行しない If Not DsT_Gyoumu1.HasChanges() Then Return 'データのアップデート OleDbDataAdapter1.Update(DsT_Gyoumu1) '更新後のメッセージ message = "概要およびメモ情報のデータを更新しました" MsgBox(message, , "データ更新") End Sub |