JRA-VAN DataLab.｜競馬ソフト開発コーナー

JV-Link 質問箱

タイトル	： Re^2: DIFFをDIFNに変更したがUMのフォーマット画が不明
投稿日	： 2023/08/15(Tue) 16:11
投稿者	：がる

おっしゃるとおり、古いサンプルを流用して作成しております。
ソース全文を以下に貼りますが（コメントはサンプルのままになっていたりし
ます）
当該のメソッドの記述等ございません。

桁数拡張でズレているものだということは理解できました。

もう少し新しそうなサンプルなどございましたら、そちらを見てみたいと思い
ます。

Option Compare Database

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillisecond
s As Long)

'「JVLink」ボタンを押した処理
Private Sub cmdSetProperties_Click()
On Error GoTo Err_cmdSetProperties_Click
Dim retval As Long

'JVLink設定画面表示
retval = JVLink1.JVSetUIProperties

If retval <> 0 Then
MsgBox "JVSetUIPropertiesでエラーが発生しました(" &am
p; retval & ")"
Exit Sub
End If

Exit_cmdSetProperties_Click:
Exit Sub

Err_cmdSetProperties_Click:
MsgBox Err.Description
Resume Exit_cmdSetProperties_Click

End Sub

'「取り込み」ボタンを押した処理
Private Sub cmdStart_Click()
On Error GoTo Err_cmdStart_Click
Dim retavl As Long
Dim readcount As Long
Dim dlcount As Long
Dim lastfiletimestamp As String
Dim status As Long
Dim buff As String
Dim filename As String
Dim rs As DAO.Recordset

'JVLinkを初期化
Call JVLink1.JVInit("ACCESS2KSAMPLE")

'蓄積系データのRACEを20040101000000以降について取り込み呼び出
し
retval = JVLink1.JVOpen("DIFN", "20230807000000"
;, 1, readcount, dlcount, lastfiletimestamp)
'retval = JVLink1.JVOpen("DIFF", "2023010100000
0", 1, readcount, dlcount, lastfiletimestamp)
'retval = JVLink1.JVOpen("DIFF", "2023010100000
0", 1, readcount, dlcount, lastfiletimestamp)
If retval < 0 Then
MsgBox "JVOPENでエラーが発生しました(" & retval &
amp; ")"
Exit Sub
End If
Dim mUmData As JV_UM_UMA
status = 0
While status <> dlcount
status = JVLink1.JVStatus
StatusText.Value = dlcount & "ファイル中 " &
status & " ファイルダウンロード完了"
DoEvents
Sleep (120)
Wend
Dim i As Long
i = 0
retval = 1
MsgBox "データをクリアします"
CurrentDb.Execute ("DELETE FROM UM")
' Me.sub_RA.Requery
DoEvents
Set rs = CurrentDb.OpenRecordset("UM")
While retval <> 0
'JVOpenで指定したデータを１レコードずつ取り込み
retval = JVLink1.JVRead(buff, 400000, filename)
If Left(buff, 2) = "UM" Then
'JVData構造体にRAのレコードをセットする
Call SetData_UM(buff, mUmData)

'RA_Sampleテーブルにデータを書き込む
On Error GoTo Err_Exist
rs.AddNew
rs.Fields("KettoNo") = mUmData.KettoNum
rs.Fields("DelKubun") = mUmData.DelKubun
rs.Fields("Bamei") = mUmData.Bamei
rs.Fields("SEXCD") = mUmData.SexCD
rs.Fields("KeiroCD") = mUmData.KeiroCD
rs.Fields("Sire") = mUmData.Ketto3Info(0).Bamei
rs.Fields("Dam") = mUmData.Ketto3Info(1).Bamei
rs.Fields("BMS") = mUmData.Ketto3Info(4).Bamei
rs.Fields("EW") = mUmData.TozaiCD
rs.Fields("Stable") = mUmData.ChokyosiRyakusyo
rs.Fields("chaku_1") = mUmData.ChakuSogo.Chakukai
su(0)
rs.Fields("chaku_2") = mUmData.ChakuSogo.Chakukai
su(1)
rs.Fields("chaku_3") = mUmData.ChakuSogo.Chakukai
su(2)
rs.Fields("chaku_4") = mUmData.ChakuSogo.Chakukai
su(3)
rs.Fields("chaku_5") = mUmData.ChakuSogo.Chakukai
su(4)
rs.Fields("chaku_out") = mUmData.ChakuSogo.Chakuk
aisu(5)
rs.Fields("Prize") = mUmData.RuikeiHonsyoHeiti
rs.Fields("MKDateY") = mUmData.head.MakeDate.Year
rs.Fields("MKDateM") = mUmData.head.MakeDate.Mont
h
rs.Fields("MKDateD") = mUmData.head.MakeDate.Day
rs.Update
Err_Exist:
'必要に応じてデータ更新処理を記述して下さい。
On Error GoTo Err_cmdStart_Click
i = i + 1
End If
Wend
rs.Close
Set rs = Nothing
'一通り読み込みが終わった後はJVCloseを行う
JVLink1.JVClose

' Me.sub_RA.Requery
MsgBox "END"

Exit_cmdStart_Click:
Exit Sub

Err_cmdStart_Click:
MsgBox Err.Description
Resume Exit_cmdStart_Click

End Sub

Private Sub 詳細_Click()

End Sub

- 関連一覧ツリー（● をクリックするとツリー全体を一括表示します)

● - DIFFをDIFNに変更したがUMのフォ.. - がる 08/15-00:55 No.7314 Re: DIFFをDIFNに変更したがUMの.. - JRA-VANソフトサポート 08/15-15:38 No.7315 Re^2: DIFFをDIFNに変更したがUM.. - がる 08/15-16:11 No.7316 Re^3: DIFFをDIFNに変更したがUM.. - がる 08/15-17:34 No.7317 Re^2: DIFFをDIFNに変更したがUM.. - がる 08/15-17:39 No.7318 Re^3: DIFFをDIFNに変更したがUM.. - サメの餌 08/15-18:48 No.7319

返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

おなまえ
Ｅメール
タイトル
メッセージ文字モード図表モード > おっしゃるとおり、古いサンプルを流用して作成しております。 > ソース全文を以下に貼りますが（コメントはサンプルのままになっていたりし > ます） > 当該のメソッドの記述等ございません。 > > 桁数拡張でズレているものだということは理解できました。 > > もう少し新しそうなサンプルなどございましたら、そちらを見てみたいと思い > ます。 > > > Option Compare Database > > Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillisecond > s As Long) > > '「JVLink」ボタンを押した処理 > Private Sub cmdSetProperties_Click() > On Error GoTo Err_cmdSetProperties_Click > Dim retval As Long > > 'JVLink設定画面表示 > retval = JVLink1.JVSetUIProperties > > If retval <> 0 Then > MsgBox "JVSetUIPropertiesでエラーが発生しました(" &am > p; retval & ")" > Exit Sub > End If > > Exit_cmdSetProperties_Click: > Exit Sub > > Err_cmdSetProperties_Click: > MsgBox Err.Description > Resume Exit_cmdSetProperties_Click > > End Sub > > > > '「取り込み」ボタンを押した処理 > Private Sub cmdStart_Click() > On Error GoTo Err_cmdStart_Click > Dim retavl As Long > Dim readcount As Long > Dim dlcount As Long > Dim lastfiletimestamp As String > Dim status As Long > Dim buff As String > Dim filename As String > Dim rs As DAO.Recordset > > 'JVLinkを初期化 > Call JVLink1.JVInit("ACCESS2KSAMPLE") > > '蓄積系データのRACEを20040101000000以降について取り込み呼び出 > し > retval = JVLink1.JVOpen("DIFN", "20230807000000" > ;, 1, readcount, dlcount, lastfiletimestamp) > 'retval = JVLink1.JVOpen("DIFF", "2023010100000 > 0", 1, readcount, dlcount, lastfiletimestamp) > 'retval = JVLink1.JVOpen("DIFF", "2023010100000 > 0", 1, readcount, dlcount, lastfiletimestamp) > If retval < 0 Then > MsgBox "JVOPENでエラーが発生しました(" & retval & > amp; ")" > Exit Sub > End If > Dim mUmData As JV_UM_UMA > status = 0 > While status <> dlcount > status = JVLink1.JVStatus > StatusText.Value = dlcount & "ファイル中 " & > status & " ファイルダウンロード完了" > DoEvents > Sleep (120) > Wend > Dim i As Long > i = 0 > retval = 1 > MsgBox "データをクリアします" > CurrentDb.Execute ("DELETE FROM UM") > ' Me.sub_RA.Requery > DoEvents > Set rs = CurrentDb.OpenRecordset("UM") > While retval <> 0 > 'JVOpenで指定したデータを１レコードずつ取り込み > retval = JVLink1.JVRead(buff, 400000, filename) > If Left(buff, 2) = "UM" Then > 'JVData構造体にRAのレコードをセットする > Call SetData_UM(buff, mUmData) > > 'RA_Sampleテーブルにデータを書き込む > On Error GoTo Err_Exist > rs.AddNew > rs.Fields("KettoNo") = mUmData.KettoNum > rs.Fields("DelKubun") = mUmData.DelKubun > rs.Fields("Bamei") = mUmData.Bamei > rs.Fields("SEXCD") = mUmData.SexCD > rs.Fields("KeiroCD") = mUmData.KeiroCD > rs.Fields("Sire") = mUmData.Ketto3Info(0).Bamei > rs.Fields("Dam") = mUmData.Ketto3Info(1).Bamei > rs.Fields("BMS") = mUmData.Ketto3Info(4).Bamei > rs.Fields("EW") = mUmData.TozaiCD > rs.Fields("Stable") = mUmData.ChokyosiRyakusyo > rs.Fields("chaku_1") = mUmData.ChakuSogo.Chakukai > su(0) > rs.Fields("chaku_2") = mUmData.ChakuSogo.Chakukai > su(1) > rs.Fields("chaku_3") = mUmData.ChakuSogo.Chakukai > su(2) > rs.Fields("chaku_4") = mUmData.ChakuSogo.Chakukai > su(3) > rs.Fields("chaku_5") = mUmData.ChakuSogo.Chakukai > su(4) > rs.Fields("chaku_out") = mUmData.ChakuSogo.Chakuk > aisu(5) > rs.Fields("Prize") = mUmData.RuikeiHonsyoHeiti > rs.Fields("MKDateY") = mUmData.head.MakeDate.Year > rs.Fields("MKDateM") = mUmData.head.MakeDate.Mont > h > rs.Fields("MKDateD") = mUmData.head.MakeDate.Day > rs.Update > Err_Exist: > '必要に応じてデータ更新処理を記述して下さい。 > On Error GoTo Err_cmdStart_Click > i = i + 1 > End If > Wend > rs.Close > Set rs = Nothing > '一通り読み込みが終わった後はJVCloseを行う > JVLink1.JVClose > > ' Me.sub_RA.Requery > MsgBox "END" > > Exit_cmdStart_Click: > Exit Sub > > Err_cmdStart_Click: > MsgBox Err.Description > Resume Exit_cmdStart_Click > > End Sub > > Private Sub 詳細_Click() > > End Sub
ＵＲＬ
パスワード	(英数字で8文字以内)
	プレビュー

ウィンドウを閉じる