Dim OraSession As ADODB.Connection
Dim g_sSQLConDB As String
Dim oOradynaset As ADODB.Recordset
Dim RTN As String
Dim sSQL As String

RTN = MsgBox(“データベースのデータをインポートします。”,vbOKCancel + vbQuestion)
If RTN = vbCancel Then
　ExitFunction
End If

DoCmd.SetWarnings False

sJISSEKI_YMD=[Forms]![Menu]![家賃調定年月]
sCHYOUTEI_YMD=[Forms]![Menu]![調定年月日]

[Forms]![Menu]![lblMSG1].Caption=“0/5”
DoEvents

g_sSQLConDB=“Provider=SQLOLEDB.1;Password=？？？？;PersistSecurityInfo=True;UserID=scotto;InitialCatalog=JTK_M;DataSource=SV-DB”
Set OraSession　=　New　ADODB.Connection
OraSession.Openg_sSQLConDB

DoCmd.OpenQuery “0_Make_T02_TMN”,acNormal,acEdit
DoCmd.SetWarnings True
Set OraSession = Nothing

sSQL = “DELETE FROM 年齢階層住戸入居者ＴＢＬ”
CurrentProject.Connection.ExecutesSQL

Public Sub OracleImport_Syori(KBNAsBoolean,Access_NameAsString,OraSQLNameAsString)
Dim sSQL As String
Dim oFLD_A() A sObject
Dim iFileldcount As String
Dim i AsInteger

If KBN=True Then
'前回処理データ削除
sSQL=“DELETE FROM ” & Access_Name
CurrentProject.Connection.ExecutesSQL
Set AdoRs = New ADODB.Recordset
AdoRs.Open Access_Name,CurrentProject.Connection,adOpenKeyset,adLockOptimistic
End If

Set oOradynaset = New ADODB.Recordset
oOradynaset.OpenOraSQLName,OraSession,adOpenKeyset,adLockOptimistic
'Set oOradynaset = OraDatabase.CreateDynaset(OraSQLName,4&)'読取専用
If NotoOradynaset.EOF Then
　iFileldcount = AdoRs.Fields.Count
　'iFileldcount=oOradynaset.Fields.Count
　ReDim oFLD_A(iFileldcount)
　'ReDim PreserveoFLD_A(iFileldcount)
　For　i=0　To　iFileldcount-1
　　SetoFLD_A(i)=oOradynaset.Fields(i)
　Next
　Do Until oOradynaset.EOF
　　AdoRs.AddNew
　　For i=0 To AdoRs.Fields.Count-1
　　　AdoRs.Fields(i)=oFLD_A(i)
　　Next
　　AdoRs.Update
　　oOradynaset.MoveNext
　Loop
End If
AdoRs.Close
oOradynaset.Close
Set oOradynaset = Nothing

End　Sub