文書番号: 402602
最終更新日: 2000/01/05
フィールド名 データ型 説明 L_Code カウンタ型 通し番号 t_Furi テキスト型 フリガナ 20 バイト長、インデックスあり (重複あり) t_Name テキスト型 氏名 20 バイト長 t_Tel テキスト型 電話番号 20 バイト長 dt_Birthday 日付 / 時刻型 生年月日
L_Code t_Furi t_Name t_Tel dt_Birthday 1 イケダ ヨシアキ 池田 良昭 011-111-1111 1988/04/04 2 マツオ ヒロユキ 松尾 弘行 022-222-2222 1975/05/05 3 ワタナベ チハル 渡辺 千春 033-333-3333 1968/03/03 4 オオバ ユリ 大場 由利 044-444-4444 1988/08/08
FirstRow 先頭のレコードを指定します。 LastRow 最後のレコードを指定します。 PrevRow 1 件前のレコードを指定します。DDE 通信が開始された直後の状態で PrevRow を実行すると、最終レコードを取得できます。また、カレント レコードが先頭レコードにある状態で PrevRow を実行したときはエラー が発生します。 NextRow 1 件次のレコードを指定します。DDE 通信が開始された直後の状態で NextRow を実行すると、先頭レコードを取得できます。また、カレント レコードが最終レコードにある状態で PrevRow を実行したときはエラー が発生します。
+--+------------------------------+--+--+ |-| |▼|▲| +--+------------------------------+--+--+ |+-------------------------------------+| ||Text1 ||TextBox を一つ || || || || |+--+-------------------------------+--+| ||<-|■ |->|| |+--+-------------------------------+--+| | | |+-------+ +-------+ +-------+ +-------+|CommandButton を 4 つ ||先頭 (F)| | 前 (P) | | 次 (N) | |最後(E)|| |+=======+ +=======+ +=======+ +=======+| +---------------------------------------+ Option Explicit Sub Command1_Click () ' 先頭レコードを取得します Text1.LinkItem = "FirstRow" Text1.LinkRequest End Sub Sub Command2_Click () ' エラー発生時にはその次の行を実行することを宣言します。 On Local Error Resume Next '1 件前のレコードへ移動し内容を取得します。 Text1.LinkItem = "PrevRow" Text1.LinkRequest ' 既に先頭レコードを指していた時はエラーが発生するので、再移動、 ' 再取得を行います。 If Err Then Text1.LinkItem = "FirstRow" Text1.LinkRequest End If End Sub Sub Command3_Click () ' エラー発生時にはその次の行を実行することを宣言します。 On Local Error Resume Next '1 件次のレコードへ移動し内容を取得します。 Text1.LinkItem = "NextRow" Text1.LinkRequest ' 既に最終レコードを指していた時はエラーが発生するので、再移動、 ' 再取得を行います。 If Err Then Text1.LinkItem = "LastRow" Text1.LinkRequest End If End Sub Sub Command4_Click () ' 最終レコードを取得します。 Text1.LinkItem = "LastRow" Text1.LinkRequest End Sub Sub Form_Load () 'Persoanl 内のすべてのレコードとフィールド名を取得します。 Text1.LinkTopic = "MSACCESS|TELDATA;SQL SELECT * FROM Personal;" Text1.LinkMode = 2 End Sub Sub Form_Unload (Cancel As Integer) 'DDE 通信を切断しプログラムを終了します。 Text1.LinkMode = 0 End Sub
MSACCESS|SYSTEM
+--+--------------------+--+--+ |-| |▼|▲| +--+--------------------+--+--+ |+---------------------------+| ||Text1 ||TextBox を一つ |+---------------------------+| | | |+-------+ +-------+ +-------+|CommandButton を 3 つ ||更新 (U)| |追加 (A)| |削除 (D)|| |+=======+ +=======+ +=======+| +-----------------------------+ Option Explicit Sub Command1_Click () ' フィールド L_Code = 1 のレコードを更新します。 Dim SqlStr As String ' 更新のための SQL 文を作成します。 SqlStr = "UPDATE Personal SET t_Furi = ' アタ ユウイチ ', t_Name = ' 阿多 雄一 '," SqlStr = SqlStr & "t_Tel = '088-888-8888', dt_Birthday = #1982/2/2#" SqlStr = SqlStr & "WHERE L_Code = 1;" 'SQL 文を送信し実行させます。 Text1.LinkExecute "[RunSQL """ & SqlStr & """]" End Sub Sub Command2_Click () ' 新規レコードを 1 件追加します。 Dim SqlStr As String ' 新規追加のための SQL 文を作成します。フィールド L_Code の値はカウンタ型 ' のため、 'Access 1.1 側で自動的に決定されます。 SqlStr = "INSERT INTO Personal ( t_Furi, t_Name, t_Tel, dt_Birthday )" SqlStr = SqlStr & "SELECT ' カツマタ ヨシヒロ ', ' 勝俣 義弘 '," SqlStr = SqlStr & "'099-9999-9999', #1977/7/7#;" 'SQL 文を送信し実行させます。 Text1.LinkExecute "[RunSQL """ & SqlStr & """]" End Sub Sub Command3_Click () ' フィールド L_Code = 4 のレコードを削除します。 Dim SqlStr As String ' 削除のための SQL 文を作成します。 SqlStr = "DELETE FROM Personal WHERE L_Code = 4;" 'SQL 文を送信し実行させます。 Text1.LinkExecute "[RunSQL """ & SqlStr & """]" End Sub Sub Form_Load () 'SetWarnings アクションを実行し、Access 1.1 の ' システム メッセージを非表示にしておきます。 Text1.LinkTopic = "MSACCESS|SYSTEM" Text1.LinkMode = 2 Text1.LinkExecute "[SetWarnings 0]" End Sub Sub Form_Unload (Cancel As Integer) 'DDE 通信を切断しプログラムを終了します。 Text1.LinkMode = 0 End Sub
Keywords: KBHOWTO KB402602
Technology: kbAudDeveloper kbVBSearch