DROP TABLE テーブル名;Sub Sample2() Dim myDB As Database Dim mySQL As String mySQL = "DROP TABLE tbl勘定科目;" Set myDB = CurrentDb myDB.Execute mySQL myDB.Close Set myDB = NothingEnd Sub ↓
更新情報
Access-VBA テーブルを作成 CREATE TABLE
CREATE TABLE テーブル名(フィールド名1 データ型, フィールド名2 データ型,・・・);Sub Sample1() Dim myDB As Database Dim mySQL As String mySQL = "CREATE TABLE tbl勘定科目(科目コード NUMBER, 科目名 CHAR);" Set myDB = CurrentDb
Access-VBA パターンマッチング検索 あいまい検索 (Like)
SELECT * FORM テーブル名 _WHERE フィールド名 Like 'パターン文字列'?田 → 山田、中田?田* → 山田太郎ワイルドカード* 任意の文字列? 任意の一文字# 任意の一文字の数字[文字リスト] リスト内の一文字[!文字リスト] リスト以外の一文字[文字1-文字2] 文字1~文字2の
Access-VBA NULL値レコードの抽出
SELECT フィールド1,フィールド2,・・・ FORM テーブル名 _NULL値のレコード抽出WHERE フィールド IS NULL; NULL値でないレコード抽出WHERE フィールド IS NOT NULL; ↓ facebook のフォローで応援してください。お願いします。Microsoft Office ブログランキングへ
Access-VBA [SQL] 条件指定でレコード検索 WHERE ~ AND / OR / IN(リスト)
SELECT フィールド1,フィールド2,・・・ FORM テーブル名 _条件式を満たすWHERE 条件式;全ての条件式を満たすWHERE 条件式1 AND 条件式2 ;いずれかの条件式を満たすWHERE 条件式1 OR 条件式2 ;式(フィールド)の値がリストのいずれかと一致するWHERE 式 IN (リスト1,リスト2,
Access-VBA [SQL] フィールド指定 SELECT ~ FROM ~
フィールドを指定SELECT フィールド1,フィールド2 FORM テーブル名;全てのフィールドを指定SELECT * FORM テーブル名; ↓ facebook のフォローで応援してください。お願いします。Microsoft Office ブログランキングへ
Access-VBA [ADO] レコード抽出(Filter)
RS.Open "tbl勘定科目", CN RS.Filter = "勘定科目='1112' or 勘定科目 = '1113'" Do Until RS.EOF Debug.Print RS("勘定科目"), RS("科目番号") RS.MoveNext Loop -----------------------------------------------------
Access-VBA [ADO] レコード並べ替え(Sort)
RS.CursorLocation = adUseClient With RS .Source = "tbl補助科目" .ActiveConnection = CN .Open End With RS.Sort = "科目コード ASC, 補助科目コード DESC" Do Until RS.EOF Debug.Print
Access-VBA [ADO] レコード検索
Sub test2() Dim CN As ADODB.Connection Dim RS As New ADODB.Recordset Set CN = CurrentProject.Connection RS.Open "tbl法人名簿", CN, adOpenStatic, adLockReadOnly Do RS.Find "住所1 Like '東京都*'"
Access-VBA [ADO] レコード削除
Option Compare DatabaseOption ExplicitDim myADOcon As New ADODB.ConnectionDim myRecSet As New ADODB.RecordsetConst Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Open_ADOdb() Set myADOcon = CurrentProject.ConnectionEnd SubSub Close_myRecSet()
Access-VBA [ADO] レコード追加
Dim ArrField As Variant Dim ArrValue As Variant ArrField = Array("科目コード", "科目名") ArrValue = Array("1122", "売掛金") RS.AddNew ArrField, ArrValue-----------------------------------------------------------
Access-VBA [ADO] レコード更新
RS.Update "科目コード", "1112" RS.Update "科目名", "当座預金"--------------------------------------------------------------- RS("科目コード").Value = "1112" RS("科目名").Value = "普通預金" RS.Update-------------------------------
Access-VBA [ADO] カレントレコードの移動
使用例RS.MoveFirstDo Until RS.EOF Debug.Print RS.Fields(0), RS.Fields(1), RS.Fields(2) RS.MoveNextLoopMoveFirst 先頭へMoveLast 最後へMoveNext 次へMovePrevious 前へMove番号 指定した数を次へレコードセットにレコードがない時 BOF=True EOF=True
Access-VBA [ADO] レコードセットオープンの引数 RS.Open
Source テーブル、クエリ、SQLActiveConnectionCursorType adOpenForwardOnly (既定)前方スクロールカーソル adOpenKeyset キーセットカーソル adOpenDynamic 動的カーソル adOpenStatic 静的カーソルLockType adLockReadOnly (既定)読み取り専用 adLockPess
Access-VBA [ADO] レコードセットの取得 CN.Execute RS.Open
Sub Test1() Dim CN As ADODB.Connection Dim RS As ADODB.Recordset Set CN = CurrentProject.Connection Set RS = CN.Execute("tbl名簿") RS.Close Set RS = Nothing: Set CN = NothingEnd SubExecuteでは、テ