タイトル | : Accessデータベースの更新 |
記事No | : 1298 |
投稿日 | : 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
|