タイトル : Re^2: VBからAccessのデータベースの一部を更新するには? 投稿日 : 2005/11/15(Tue) 09:21 投稿者 : ルピカ
なおこさん、お返事早速有難うございます。 > テーブルのレイアウトは、フィールドにID(文字列?)とCheck(数値?)が存在するのですね? はい。あとは名前とパスワードとメールアドレスのフィールドも存在します。 IDは半角英数の文字列で、checkには0か1の数値を入力したいと思っています。 > AddCheck というのは > UPDATE Data Method で自動生成されたコード > のことでしょうか。 はい。AddCheckというのはUPDATE Data Methodで自動生成されたコードです。 コードは下記のようになっています。 ---------------------------------------------------------------------------------------- Function AddCheck(ByVal iD As String, ByVal check As Integer) As Integer Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=- 4; Data Source=C:\Documents an"& _ "d Settings\st03\My Documents\Visual Studio Projects\WindowsApplication1\Users.md"& _ "b" Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection (connectionString) Dim queryString As String = "UPDATE [Users] SET [Check]=@Check WHERE ([Users].[ID] = @ID)" Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand dbCommand.CommandText = queryString dbCommand.Connection = dbConnection Dim dbParam_iD As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter dbParam_iD.ParameterName = "@ID" dbParam_iD.Value = iD dbParam_iD.DbType = System.Data.DbType.String dbCommand.Parameters.Add(dbParam_iD) Dim dbParam_check As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter dbParam_check.ParameterName = "@Check" dbParam_check.Value = check dbParam_check.DbType = System.Data.DbType.Int32 dbCommand.Parameters.Add(dbParam_check) Dim rowsAffected As Integer = 0 dbConnection.Open Try rowsAffected = dbCommand.ExecuteNonQuery Finally dbConnection.Close End Try Return rowsAffected End Function |