PGlabo

« [VB.NET] Sub Main（二重起動防止・スタートフォーム） | メイン | [Access VBA] フォームを開く・閉じる »

2005年10月27日

[Access VBA] レコードの挿入

'--- SQL使用
    strSQL = ""
    strSQL = strSQL & "INSERT INTO "
    strSQL = strSQL & "テーブル名 (列１, 列２, 列３) "
    strSQL = strSQL & "SELECT "
    strSQL = strSQL & "[forms]![フォーム名]![コントロール] AS 式1, "
    strSQL = strSQL & "[forms]![frm_Main]![txt_ID] AS 式2, "
    strSQL = strSQL & "[forms]![frm_Main]![lbl_Name] AS 式3"
    DoCmd.RunSQL (strSQL)

'--- レコードセット使用
    Dim Conn As ADODB.Connection
    Dim RS As ADODB.Recordset

    Set Conn = Application.CurrentProject.Connection

    Set RS = New ADODB.Recordset

    

    RS.Open "テーブル名", Conn, adOpenKeyset, adLockOptimistic    '読み取り・書き込み

    'RS.Open "テーブル名", Conn    '読み取り専用

    RS.AddNew

        RS![列１] = [forms]![フォーム名]![コントロール]

        RS![列１] = [forms]![frm_Main]![txt_ID]

        RS![列１] = [forms]![frm_Main]![lbl_Name]

    RS.Update

    RS.Close

    Set RS = Nothing

    Conn.Close

    Set Conn = Nothing

 

2005 / 10 / 27