サンプルプログラム（KlVbMdb.lzh）の解説

'********************************************************************** ' (C) Copyright Masao Kondo , 1990-2001 All rights reserved '********************************************************************** Option Explicit Dim dbs As Database Private Sub Form_Initialize() Dim dbName As String dbName = "KLTEST.MDB" If Dir(dbName) <> "" Then Set dbs = OpenDatabase(dbName) Else ' MDBを作成 Set dbs = CreateDatabase(dbName, dbLangJapanese) Dim strSQL As String strSQL = "SELECT 'NEW' AS XX INTO X" dbs.Execute strSQL strSQL = "INSERT INTO X (XX) VALUES('Y')" dbs.Execute strSQL End If End Sub Private Sub Form_Load() Me.AutoRedraw = True Dim strSQL As String strSQL = "SELECT * FROM X" Dim myset As Recordset Set myset = dbs.OpenRecordset(strSQL) Do While Not myset.EOF Print myset("XX") myset.MoveNext Loop myset.Close End Sub
ソースを選択

１）このＶＢＰには、フォームのみです。

２）フォームのコードには、

Form_Initialize

Form_Load

この２つのイベントに対して記述しています。

３）Form_Initializeで、行っていること

• If Dir(dbName) <> "" Then

  ファイルの存在チェック

  ある場合、そのＭＤＢを、オープンする。

  ない場合、ＭＤＢを作成・テーブル作成とデータ挿入・データ挿入をする。

４）Form_Loadで、行っていること

、

[プロジェクト]−＞[参照設定]

　

[ﾚ]Microsoft DAO 3.5 Object Libraryを設定する。これで、基本はＯＫです。
Win2000やVB6等の場合、3.5でない可能性もあります

では、使ってみよう。

ＳＱＬの構文は、また別のページ行うこととします。

簡単にＳＱＬの構文

INSERT文

用途：指定したテーブルに新しいレコードを追加する

文法１：INSERT INTO 対象テーブル名 [(フィールド名列．．．)] VALUES (フィールド値列．．．)

文法２：INSERT INTO 対象テーブル名 [(フィールド名列．．．)] SELECT ソースフィールド名列．．． FROM ソーステーブル名 [WHERE 条件式]

DELETE文

用途：指定したテーブルからレコードを削除する

文法：DELETE FROM テーブル名 [WHERE 条件式]

UPDATE文

用途：指定したテーブルのデータを更新する

文法：UPDATE テーブル名 SET フィールド名１=代入値１ [,フィールド名２=代入値２．．．,フィールド名ｎ=代入値ｎ] [WHERE 条件式]

SELECT文

用途：指定したテーブルからレコードを取り出す

文法：SELECT フィールド名列．．． FROM テーブル名列．．．  [WHERE 条件式] [GROUP BY句]　 [ORDER BY 句]

　

質問・疑問・指摘事項は掲示板またはフォームメールで送信して下さい。

トップページ ソフト開発塾 前のページへ戻る