vb2005mdbファイル(AccessFile.mdb)
Access.mdbデータベース入出力処理
この記事は書きかけです。予備知識のようなもの
'AccessFile.mdb::ドライブ・パス・ファイル名の指定 Dim MdbFile AS string = "C:\DirPath\AccessFile.mdb" 'セキュリティ指定 Dim SecPresence As String = "False" '長いので分割しました・・・(^_^;) Const DB_PROVIDER As String = "Provider=Microsoft.Jet.OLEDB.4.0;" Dim DatSource As String = "Data Source=" & MdbFile & ";" Dim SecInfo As String = "Persist Security Info=" & SecPresence 'mdbファイル読み書きの共通部 Dim conn As New OleDbConnection(DB_PROVIDER & DatSource & SecInfo) Dim sqlcmd As OleDbCommand = conn.CreateCommand
▲上へ
mdbファイルの読み書き
mdbテーブルからレコードを読み出す
SQL SELECT文SELECT [Field_Name] FROM [Table_Name] WHERE [Key_Field_Name]=['文字列'/値]
▲上へ
mdbテーブルのレコードを更新する
Dim mdbconn As New OleDbConnection(DB_PROVIDER & DatSource) Dim sqlcmd As OleDbCommand = mdbconn.CreateCommand sqlcmd.CommandText = _ "update [Table_Name] " _ & " set [Field1]=[値],[Field2]=[値],…更新するFieldのみ列記… " _ & " where [RecKeyField]=[key値]" Try mdbconn.Open() sqlcmd.ExecuteNonQuery() Catch ex As Exception MsgBox(更新処理に失敗しました) '更新対象レコードが存在しないなど… flg = Felse '更新用関数として処理失敗を返すなど…後処理に備える Finally mdbconn.Close() End Try※try 〜 chach 〜 end try の例外処理は、動作チェック前から有効にしてあると、誤動作でも例外(エラー)をスルーしてしまうので注意!
SQL UPDATE文
UPDATE [Table_Name] SET [Field_Name1]=['文字列'/値], [Field_Name2]=['文字列'/値], … WHERE [Key_Field_Name]=['文字列'/値]
▲上へ
mdbテーブルへ1レコード追加する
Dim mdbconn As New OleDbConnection(DB_PROVIDER & DatSource) Dim sqlcmd As OleDbCommand = mdbconn.CreateCommand sqlcmd.CommandText = _ "insert into [Table_Name] " _ & " values ([値],[値],…全フィールドを列記…)" Try mdbconn.Open() sqlcmd.ExecuteNonQuery() Catch ex As Exception MsgBox(追加処理に失敗しました) '既に追加対象レコードが存在する場合など… flg = Felse '追加用関数として処理失敗を返すなど…後処理に備える Finally mdbconn.Close() End Try※try 〜 chach 〜 end try の例外処理は、動作チェック前から有効にしてあると、誤動作でも例外(エラー)をスルーしてしまうので注意!
SQL INSERT文
INSERT INTO [Table_Name] VALUES (['文字列'/値],['文字列'/値],…フィールド分列記…)
▲上へ
VB2005関連リンク
VisualBasic2005の本
入門向け
入門以上
専門向け(理系・DB・その他)
wiki内関連ページ
- VB2005リファレンス(覚え書き)
- SQL文:SQLステートメント
- SQLステートメント
- SQLクエリー
- SQL文:ユニオンクエリー
- SQL文:パススルークエリー?
- SQL文:データ定義クエリー
- SQL文:サブクエリー?
- VBA(VisualBasic for Applications)
外部リンク
MSDN
▲上へ
2007年10月27日(土) 09:46:30 Modified by cafeboy1