QOQRNWW
PDȉ̃e[uύXBڍׂɂẮAuf[^x[XdlvQƂĂB
	En}X^
	EY҃}X^
	EɐBn}X^
	EY}X^
	Ensi
	En

QOPQNPPV
PDȉ̃NXǉɂȂ܂B
	(e[uɊւڍׂɂẮAuf[^x[XdlvQƂĉB)
	EclsImportJGNXFnO
	EclsImportTMNXFΐ^}CjO\z
	EclsImportWFNXFd
	EbasUtilityNXF[eBeBNX

QDJVData_Structure.vb
Q|PDoʒxp\̂ǉ܂B
Q|QDΐ^f[^}CjOp\̂ǉ܂B
Q|RDdp\̂ǉ܂B
Q|SDnOp\̂ǉ܂B

RDODBCoRmdbȊÕf[^x[Xgpo悤ɏC܂B

QOOXNXW
PDJVData_Structure.vb
P|PDnp\̂ǉ܂B
P|QDR[Xp\̂ǉ܂B

QDclsImportBT NX
Q|PDnf[^pNXƂĐVKǉ܂B

RDclsImportCS NX
R|PDR[Xf[^pNXƂĐVKǉ܂B

SDclsDBImport NX
S|PDn񏈗ǉ܂B
S|QDR[X񏈗ǉ܂B

TDdata.mdb
T|PDne[u(KEITO)ǉ܂B
T|QDR[Xe[u(COURSE)ǉ܂B

QOOVNPQT
PDJVData_Structure.vb
P|PDnsip\̂ǉ܂B
P|QDn̈ӖRp\̂ǉ܂B

QDclsImportHS NX
Q|PDnsif[^pNXƂĐVKǉ܂B

RDclsImportHY NX
R|PDn̈ӖRf[^pNXƂĐVKǉ܂B

SDclsDBImport NX
S|PDnsiǉ܂B
S|QDn̈ӖRǉ܂B

TDdata.mdb
T|PDnsie[u(SALE)ǉ܂B
T|QDn̈ӖRe[u(BAMEIORIGIN)ǉ܂B

UDfrmDataImport.vb
U|PDJVRead̖߂l̏ɁA|SOQA|SORA|TOQǉ܂B
U|QDJVRead̖߂lɌ肪̂ŏC܂B
iCOj
            Case -201   ' OpenĂȂ
                MsgBox "JVOpensĂ܂B"
                Exit Do
            Case -203   ' InitĂȂ
                MsgBox "JVInitsĂ܂B"
                Exit Do
iCj
            Case -201   ' InitĂȂ
                MsgBox "JVInitsĂ܂B"
                Exit Do
            Case -203   ' OpenĂȂ
                MsgBox "JVOpensĂ܂B"
                Exit Do


QOOVNVQO
PDclsImportO6NX
P|PDUpdateDB\bhɂāA[v񐔂Ɍ肪̂ŏC܂B
ij
       ' ODDS_SANRENTAN (IbY_3AP)
        For i = 0 To 815

ij
       ' ODDS_SANRENTAN (IbY_3AP)
        For i = 0 To 4895

QDclsImportRC.vb
Q|PDUpdateDB\bhɂāAL[ڂɕŝŏC܂B
iCOj
        strSql = strSql & " WHERE [Year]='" & Replace(.Year, "'", "''") & "'"
        strSql = strSql & " AND [MonthDay]='" & Replace(.MonthDay, "'", "''") & "'"

 (Cj
        strSql = strSql & " WHERE [RecInfoKubun]='" & Replace(.Year, "'", "''") & "'"
        strSql = strSql & " AND [Year]='" & Replace(.Year, "'", "''") & "'"
        strSql = strSql & " AND [MonthDay]='" & Replace(.MonthDay, "'", "''") & "'"

QOOUNPPPO
PDclsImportSENX
P|PDUpdateDB\bhɂāA肪̂ŏC܂B
ij
            strSQL = strSQL & "[KettoNum1]='" & Replace(.KettoNum, "'", "''") & "'," '' o^ԍin1j
            strSQL = strSQL & "[Bamei1]='" & Replace(.Bamei, "'", "''") & "'," '' n
            strSQL = strSQL & "[KettoNum2]='" & Replace(.KettoNum, "'", "''") & "'," '' o^ԍin2j
            strSQL = strSQL & "[Bamei2]='" & Replace(.Bamei, "'", "''") & "'," '' n
            strSQL = strSQL & "[KettoNum3]='" & Replace(.KettoNum, "'", "''") & "'," '' o^ԍin3j
            strSQL = strSQL & "[Bamei3]='" & Replace(.Bamei, "'", "''") & "'," '' n

ij
            For i = 0 To 2
                With .ChakuUmaInfo(i)
                    strSql = strSql & "[KettoNum" & i + 1 & "]='" & Replace(.KettoNum, "'", "''") & "'," '' o^ԍin1`3j
                    strSql = strSql & "[Bamei" & i + 1 & "]='" & Replace(.Bamei, "'", "''") & "'," '' nin1`3j
                End With ' ChakuUmaInfo
            Next i

QOOUNUU
PDȉ̃e[uύXBڍׂɂẮAuf[^x[XdlvQƂĂB
	En}X^

QOOSNWPO
PDRAPΉɊւe[u̒ǉɍ킹Aȉ̃NXǉɂȂ܂B
	(e[uɊւڍׂɂẮAuf[^x[XdlvQƂĉB)
	EclsImportH6NXF[(RAP)
	EclsImportO6NXFIbY(RAP)
	EclsImportTCNXFύX
	EclsImportCCNXFR[XύX

QDRAPΉɊւe[ũJύXɍ킹Aȉ̃NXύXɂȂ܂B
	(e[uɊւڍׂɂẮAuf[^x[XdlvQƂĉB)
	EclsImportHRNXF߂

RDǂݍ݃obt@̃TCY̌C܂B(tH[̎荞݃{^)
ij30000
 (j110000

SDImportH1NX
S|PDRÃ[XɂĐɓo^ȂsC܂B


QOORNPOV
PDclsImportWHNX
P|PDn̏dInsertDB\bhɂāA肪̂ŏC܂B
ij
                mRS.Fields("Kanji").Value = .Kaiji '' JÉN
ij
                mRS.Fields("Kaiji").Value = .Kaiji '' JÉN


QOORNXX
PDfrmDataImport.frm TvtH[
P|PDǍݗp[v Application.DoEvents() ǉ܂B
P|QDobjConnect ̐/j̃^C~OɕsŝŁAC܂B

QDJVData_Structure.vb \
Q|PD\̂XV܂B



QOORNWQO

PDclsImportSENX
P|PDInsertDB\bhɂāA肪̂ŏC܂B
ij
	mRS.Fields("FutanBefore").Value = .FutanBefore '' ύXOSd
        mRS.Fields("FutanBefore").Value = .Blinker '' uJ[gp敪

 (j
	mRS.Fields("FutanBefore").Value = .FutanBefore '' ύXOSd
        mRS.Fields("Blinker").Value = .Blinker '' uJ[gp敪


QOORNVQR
PDclsImportWENX
P|PDUpdateDB\bhɂāA肪̂ŏC܂B
ij
                strSql = strSql & " AND [HenkoID]='" & Replace(.HenkoID, "'", "''") & "'"
ij
                strSql = strSql & " AND [HenkoID]='" & Replace(mBuf.HenkoID, "'", "''") & "'"

QOORNUQO

PDfrmDataImport.frm TvtH[
P|PDJVOpen sO lngOptionFlag̕sȏlݒ폜܂B
i폜j 
        lngOptionFlag = 1

QD̕ύX
Q|PDNX̂ clsDBConnect  clsDBImportɕύX܂B

RDclsImportCHNX
R|PDInsertDB\bhɂāAmRS2.AddNEW ̈ʒuɌ肪̂ŏC܂B
ij
	mRS2.AddNew
    @@@For i = 0 To 2
		.
		.
	@Next i
    	mRS2.Update

 (j
	For i = 0 To 2
@@@	@mRS2.AddNew
		.
		.
	  mRS2.Update
	Next i

SDclsImportDMNX
S|PDUpdateDB\bhɂ tB[ȟC܂B

@          strSql = strSql & "[Hour]='" & Replace(.Hour, "'", "''") & "'," '' 
            strSql = strSql & "[Minute]='" & Replace(.Minute, "'", "''") & "'," '' 
    		.
		.
            strSql = strSql & "[Umaban]='" & Replace(.Umaban, "'", "''") & "'," '' n
            strSql = strSql & "[DMTime]='" & Replace(.DMTime, "'", "''") & "'," '' \zj^C
            strSql = strSql & "[DMGosaP]='" & Replace(.DMGosaP, "'", "''") & "'," '' \z덷(Mx){
            strSql = strSql & "[DMGosaM]='" & Replace(.DMGosaM, "'", "''") & "'," '' \z덷(Mx)|
ij
            strSql = strSql & "[MakeHM]='" & Replace(.Hour, "'", "''") & Replace(.Minute, "'", "''") & "'," '' 
    		.
		.
            strSql = strSql & "[Umaban" + i + 1 + "]='" & Replace(.Umaban, "'", "''") & "',"           '' n
            strSql = strSql & "[DMTime" + i + 1 + "]='" & Replace(.DMTime, "'", "''") & "',"           '' \zj^C
            strSql = strSql & "[DMGosaP" + i + 1 + "]='" & Replace(.DMGosaP, "'", "''") & "',"         '' \z덷(Mx){
            strSql = strSql & "[DMGosaM" + i + 1 + "]='" & Replace(.DMGosaM, "'", "''") & "',"         '' \z덷(Mx)|


TDclsImportH1NX
T|PDu[_nAEChvInsertDB\bhɂ tB[ȟC܂B
ij
@@@@mRS4!UmarenHyo = .Ninki             '' lC
ij
@@@@mRS4!UmarenNinki = .Ninki             '' lC


UDclsImportJCNX
U|PDUpdateDB\bhɂ tB[ȟC܂B
ij
        With .JCInfoAfter
            strSql = strSql & "[Futan]='" & Replace(.Futan, "'", "''") & "',"             '' Sd
            strSql = strSql & "[KisyuCode]='" & Replace(.KisyuCode, "'", "''") & "',"     '' RR[h
            strSql = strSql & "[KisyuName]='" & Replace(.KisyuName, "'", "''") & "',"     '' R薼
            strSql = strSql & "[MinaraiCD]='" & Replace(.MinaraiCD, "'", "''") & "',"     '' R茩KR[h
        End With ' JCInfoAfter
        With .JCInfoBefore
            strSql = strSql & "[Futan]='" & Replace(.Futan, "'", "''") & "',"             '' Sd
            strSql = strSql & "[KisyuCode]='" & Replace(.KisyuCode, "'", "''") & "',"     '' RR[h
            strSql = strSql & "[KisyuName]='" & Replace(.KisyuName, "'", "''") & "',"     '' R薼
            strSql = strSql & "[MinaraiCD]='" & Replace(.MinaraiCD, "'", "''") & "',"     '' R茩KR[h
        End With ' JCInfoBefore
ij
        With .JCInfoAfter
            strSql = strSql & "[AtoFutan]='" & Replace(.Futan, "'", "''") & "',"             '' Sd
            strSql = strSql & "[AtoKisyuCode]='" & Replace(.KisyuCode, "'", "''") & "',"     '' RR[h
            strSql = strSql & "[AtoKisyuName]='" & Replace(.KisyuName, "'", "''") & "',"     '' R薼
            strSql = strSql & "[AtoMinaraiCD]='" & Replace(.MinaraiCD, "'", "''") & "',"     '' R茩KR[h
        End With ' JCInfoAfter
        With .JCInfoBefore
            strSql = strSql & "[MaeFutan]='" & Replace(.Futan, "'", "''") & "',"             '' Sd
            strSql = strSql & "[MaeKisyuCode]='" & Replace(.KisyuCode, "'", "''") & "',"     '' RR[h
            strSql = strSql & "[MaeKisyuName]='" & Replace(.KisyuName, "'", "''") & "',"     '' R薼
            strSql = strSql & "[MaeMinaraiCD]='" & Replace(.MinaraiCD, "'", "''") & "',"     '' R茩KR[h
        End With ' JCInfoBefore


VDclsImportO1NX
V|PDIiTerminate)Ă̂ŁAǉ܂B


WDclsImportO5NX
W|PDUPDATEɂ tB[ȟC܂B
ij
       strSql = strSql & "[SanrenpukuFlag]='" & Replace(.SanrenpukuFlag, "'", "''") & "',"               '' tO@3A
       strSql = strSql & "[TotalHyosuSanrenpuku]='" & Replace(.TotalHyosuSanrenpuku, "'", "''") & "'" '' 3A[v
    		.
		.
       strSql = strSql & "[RaceNum]='" & Replace(.RaceNum, "'", "''") & "'" '' [Xԍ

ij
       strSql = strSql & "[SanrenFlag]='" & Replace(.SanrenpukuFlag, "'", "''") & "',"               '' tO@3A
       strSql = strSql & "[TotalHyosuSanren]='" & Replace(.TotalHyosuSanrenpuku, "'", "''") & "'" '' 3A[v
    		.
		.
       strSql = strSql & "[RaceNum]='" & Replace(.RaceNum, "'", "''") & "'," '' [Xԍ


XDclsImportRCNX
X|PDI(Terminate)Ă̂ŁAǉ܂B


PODclsImportTKNX
PO|PDInsertDB\bhɂāin̒ǉjC܂B
ij
    For i = 0 To mBuf.TorokuTosu - 1
		.
		.
           mRS1!MakeDate = .Year & .Month & .Day                    '' N
ij
    For i = 0 To mBuf.TorokuTosu - 1
		.
		.
           mRS2!MakeDate = .Year & .Month & .Day                    '' N


PO|QDUpdateDB\bhinjC܂B
ij
    If tmpRS Is Nothing Then
    		.
		.
    End If                  


ij
    If tmpRS Is Nothing Then
    Else
    		.
		.
    End If                  



PPDclsImportWENX
PP|PDUpdateDB\bh tB[ȟC܂B
PP|QDWHEREL[ɁAHappyoTime Ɓ@HenkoIDǉ܂B

