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

解決

ユウキ 2003-05-26 20:51:49 No: 78043 IP: [192.*.*.*]

こんばんは
現在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-28 18:59:32 No: 78044 IP: [192.*.*.*]

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

編集削除

YUUKI 2003-05-30 10:42:29 No: 78045 IP: [192.*.*.*]

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

編集削除