| JV-Link 質問箱 |
| タイトル | ： 特定の馬情報が取得されない |
| 記事No | ： 8589 |
| 投稿日 | ： 2016/01/11(Mon) 12:23 |
| 投稿者 | ： ｍユキオ |
| |
現象確認日 2016/01/04
開発環境 MicrosoftExcel2010 VBA
現象内容
下記の条件で、セットアップデータを取得しましたが
エーシントップ 牡６ 生年月日2010年03月28日
血統登録番号2010110058
の馬情報が取得されず(他にも何件か取得できず)
例えば、霜月ステークス(2015/12/22)の出走一覧を表示したが
正しく表示されなかった(開発したソフトで）。
JVOpen()のパラメータFromTime以外に何か取得情報を選別する様な
ことがあるのでしょうか？
セットアップデータの取得
comFromTime = "20000101000000" 'マスター取得
retval = JVLink1.JVOpen("DIFF", comFromTime, 3, readcount, dl
count, lastfiletimestamp)
retSts = jraFileDload(retval, readcount, dlcount, "MAS") �
39;マスター情報取得
If retSts = 1 Then '1=正常
終了？
Do
retGets = JVLink1.JVGets(buff, 4096, filename)
If (retGets > 0) Then '読込
byte数
RecordKind = StrConv(MidB(buff, CstRecordKind, 2), vbUnicode)
Select Case RecordKind
Case CstRsUM '競走馬
マスタ
retData = dbControlUm(buff, oleCommand)
Erase buff
Case CstRsKS '騎手マ
スタ
retData = dbControlKs(buff, oleCommand)
Erase buff
・
・
・
dbControlUm()競走馬マスタ処理の先頭で、読み込んだ馬情報(約28,000件)を
ログ出力。上記、馬情報を確認したが存在しなかった。
///////////////////////////////////////////////////
ファイルダウンロード処理
Private Function jraFileDload(stsOpen As Long, readcount As Long, dlcou
nt As Long, syori As String) As Long
Dim status As Long
If (stsOpen = 0) Then 'JVOpenは正常？
If (readcount = 0) Then '対象データは在るか？
jraFileDload = mainMessageOut(0, "jraFileDload", (syori
& ":対象データが有りません。次のステップに進みます。"))
Else
If (dlcount > 0) Then 'ダウンロードするフ
ァイル有り
status = 0
Do While status <> dlcount
status = JVLink1.JVStatus
MessageOutLExpect.Text = syori & ": " & dlc
ount & "ファイル中 " & status & " ファイルダ
ウンロード完了"
DoEvents
If praCancelflg = True Then
jraFileDload = mainMessageOut(-1, "jraFileDload",
(syori & ":キャンセルされました。処理を中止します。"))
Exit Function
End If
Sleep (1000)
Loop
End If
jraFileDload = mainMessageOut(1, "jraFileDload", (syori
& ":全ファイル（" & readcount & "本）ダウン
ロード終了！！！！！"))
End If
Else
If (stsOpen = -1) Then '-1=対象データ無し
jraFileDload = 0
Call comOutLogLine("jraFileDload", syori & ":
ダウンロードするファイルは、有りません。")
Else
jraFileDload = mainMessageOut(-2, "jraFileDload", (syor
i & ":JVOpenエラー。戻り値=" & stsOpen & ";&q
uot;))
End If
End If
End Function
/////////////////////////////////////////////////// |
|
| タイトル | ： Re: 特定の馬情報が取得されない |
| 記事No | ： 8592 |
| 投稿日 | ： 2016/01/13(Wed) 20:15 |
| 投稿者 | ： JRA-VANソフトサポート |
| |
JRA-VANソフトサポートの竹下です。
DataLab.サービスをご利用頂きまして誠にありがとうございます。
ご記載いただいた条件を元に、こちらでもJVOpen〜JVGetsを
実行しましたが、競走馬マスタとしてエーシントップ号の情報が
取得できることを確認できました。
よって、パラメータに問題はないと考えられます。
2016/1/13（水）時点ですと、"UMXM2015129920151228150006.jvd"と
いうファイルの中に、該当の情報が存在します。
「読み込んだ馬情報」が約28,000件とのことですが、ご記載の
プログラムで取得した競走馬マスタの件数ということでしょうか。
その場合、現在提供している競走馬マスタ全体の件数は
約160,000件ほどございますので、途中で読み込みを
スキップしまっているファイルが無いか等ご確認いただけますで
しょうか。
（ご記載いただいた条件で、競走馬マスタの情報は全件取得できます）
なおデータの妥当性を確認するには、下記ページにございます
DataLab.検証ツールを使用すると便利です。
JVOpenの戻り値なども画面で確認できますので、ご自身のプログラムの実行結
果と照らし合わせることも可能です。
■DataLab.検証ツール
http://jra-van.jp/dlb/sdv/pgm.html
（画面上部の「開発支援ツール提供」をクリックしてください）
以上、よろしくお願い致します。 |
|
| タイトル | ： Re^2: 特定の馬情報が取得されない |
| 記事No | ： 8595 |
| 投稿日 | ： 2016/01/16(Sat) 20:23 |
| 投稿者 | ： ｍユキオ |
| |
> JRA-VANソフトサポートの竹下です。
>
> ご記載いただいた条件を元に、こちらでもJVOpen〜JVGetsを
> 実行しましたが、競走馬マスタとしてエーシントップ号の情報が
> 取得できることを確認できました。
> よって、パラメータに問題はないと考えられます。
．．．
> （ご記載いただいた条件で、競走馬マスタの情報は全件取得できます）
．．．
竹下様、早々に回答頂き有難う御座いました。
パラメータに誤りがあるかと不安でしたが
この呼出方で、全件取得できる旨戴きましたので、プログラムを逐次チェック
します。
大変、お手数をお掛けしました。今後とも宜しくお願い致します。 |
|
|
|
|
copyright ©2007 JRA SYSTEM SERVICE CO.,LTD. All Rights Reserved.
|
|
|
