アクセスファイルを読込み時にフィールドを追加するには？

解決

ユウキ 2003-05-27 05:51:49 No: 78043

こんばんは
現在sample.mbdに社員名簿というテーブルがあり
フィールド名に社員コード、氏名、部署名があり
今回、部署名の後ろに入社年齢を追加しようと考えているのですが元のファイルを変更せずに読込んだ時に追加し、保存すると新しく追加した項目が追加されている。というふうにしたいのですが、うまくいきません。
アドバイスの程宜しくお願いします。

説明が下手かもしれませんがその時は再度回答します。

Private Sub Command1_Click()

    Dim DB As Database, RSTable As Recordset
    Dim a_filename As String
    Dim i As Integer
    Dim j As Integer
    Dim fld As Field
    Dim a(i) As String
    Dim b(i) As String
    Dim c(i) As String

    Set DB = openDatabase("D:\smple.mdb")
    Set RSTable = DB.OpenRecordset("社員名簿", dbOpenDynaset)
    RSTable.MoveFirst
    For i = 0 To G_MAX_POWER - 1
        a(i) = RSTable.Fields("社員コード")
        b(i) = RSTable.Fields("氏名")
        c(i) = RSTable.Fields("部署")
'フィールド追加 Start
        Set fld = RSTable.CreateField("入社年齢", dbInteger)
        RSTable.Fileds.Append fld
'フィールド追加 End
        RSTable.MoveNext
    Next i
    DB.TableDefs.Append Rstabl
    DB.Close    '' DBを閉じる
End Sub

ユウキ 2003-05-29 03:59:32 No: 78044

無事フィールド追加できました。

YUUKI 2003-05-30 19:42:29 No: 78045

解決マークつけるのを忘れました。