{"id":796,"date":"2020-06-11T10:03:06","date_gmt":"2020-06-11T01:03:06","guid":{"rendered":"https:\/\/www.agtech.co.jp\/actian\/?page_id=796"},"modified":"2021-04-13T19:21:31","modified_gmt":"2021-04-13T10:21:31","slug":"sup_0015","status":"publish","type":"page","link":"https:\/\/www.agtech.co.jp\/actian\/support\/reference\/sup_0015\/","title":{"rendered":"Pervasive Software 32 \u30d3\u30c3\u30c8\u7248 Visual Basic \u4f7f\u7528\u6642\u306b\u304a\u3051\u308b\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c"},"content":{"rendered":"
\r\n
\r\n

32 \u30d3\u30c3\u30c8\u7248 Visual Basic
\u4f7f\u7528\u6642\u306b\u304a\u3051\u308b\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c<\/span><\/h1>\r\n <\/div>\r\n \r\n
\r\n \r\n

\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u554f\u984c\u3068\u3068\u3082\u306b\u3001Visual Basic (32bit) \u3067 Btrieve API \u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306b\u30c8\u30e9\u30d6\u30eb\u306e\u539f\u56e0\u3068\u306a\u308b\u306e\u304c\u3001\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c\u3067\u3059\u3002

\r\n\r\n\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u81ea\u4f53\u306f VB \u306b\u9650\u3089\u305a\u4ed6\u306e\u8a00\u8a9e\u3067\u3082\u884c\u308f\u308c\u3066\u3044\u308b\u3053\u3068\u3067\u3059\u304c\u3001VB \u4ee5\u5916\u306e\u8a00\u8a9e\u3067\u306f\u30b3\u30f3\u30d1\u30a4\u30eb\u6642\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u6307\u5b9a\u306a\u3069\u3067\u3001\u30c8\u30e9\u30d6\u30eb\u306e\u767a\u751f\u3092\u9632\u3050\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002

\r\n\r\n\u3000Visual Basic (32bit) \u306e\u4e2d\u3067\u30e6\u30fc\u30b6\u5b9a\u7fa9\u578b\uff08\u4ed6\u306e\u8a00\u8a9e\u3067\u306f\u69cb\u9020\u4f53\u3068\u304b\u30ec\u30b3\u30fc\u30c9\u578b\u3068\u547c\u3070\u308c\u308b\uff09\u3092\u4f7f\u7528\u3059\u308b\u3068\u3001VB \u306b\u3088\u3063\u3066\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002

\r\n\r\n\u5177\u4f53\u7684\u306b\u306f\u3001\u30e6\u30fc\u30b6\u5b9a\u7fa9\u578b\u306e\u4e2d\u3067\u6570\u5024\u5909\u6570\u304c\u4f7f\u308f\u308c\u3066\u3044\u308b\u3068\u3001\u51e6\u7406\u306e\u6700\u9069\u5316\u306e\u305f\u3081\u306b\u3001\u6570\u5024\u5909\u6570\u304c 4 \u30d0\u30a4\u30c8\u3054\u3068\u306e\u5883\u754c\u306b\u304f\u308b\u3088\u3046 VB \u304c\u5185\u90e8\u7684\u306b\u4f59\u5206\u306a\u30d0\u30a4\u30c8\u3092\u633f\u5165\u3057\u307e\u3059\u3002<\/p>\r\n\r\n

Type DataBuffer<\/p> \r\n \r\n

Field1(0 To 1) As Byte<\/p> \r\n \r\n

Field2 As Long<\/p> \r\n \r\n

Field3 As String * 10<\/p> \r\n \r\n

End Type<\/p> \r\n \r\n

\u3053\u308c\u304c\u5185\u90e8\u7684\u306b\u306f\u3001<\/p> \r\n \r\n

Type DataBuffer<\/p> \r\n \r\n

Field1(0 To 1) As Byte<\/p> \r\n \r\n

Field2 \u3092 4 \u30d0\u30a4\u30c8\u306e\u5883\u754c\u306b\u52d5\u304b\u3059\u305f\u3081\u306b\u3001\u3053\u3053\u306b\u4f59\u5206\u306a 2 \u30d0\u30a4\u30c8\u304c\u633f\u5165\u3055\u308c\u308b<\/p> \r\n \r\n

Field2 As Long<\/p> \r\n \r\n

Field3 As String * 10<\/p> \r\n \r\n

End Type<\/p> \r\n \r\n

\u3068\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/p> \r\n \r\n

\u30d7\u30ed\u30b0\u30e9\u30de\u304b\u3089\u3053\u3046\u3057\u305f\u3053\u3068\u306f\u898b\u3048\u307e\u305b\u3093\u304c\u3001VB \u306e\u4e2d\u3060\u3051\u3067\u51e6\u7406\u304c\u3059\u3080\u306e\u3067\u3042\u308c\u3070\u3001\u3082\u3061\u308d\u3093\u554f\u984c\u304c\u8868\u9762\u5316\u3059\u308b\u3053\u3068\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/p> \r\n \r\n

\u3057\u304b\u3057\u3001\u5916\u90e8\u306e DLL \u306a\u3069\u3068\u30c7\u30fc\u30bf\u306e\u53d7\u3051\u6e21\u3057\u3092\u884c\u3046\u5834\u5408\u306f\u3001\u554f\u984c\u306b\u306a\u3063\u3066\u304d\u307e\u3059\u3002<\/p> \r\n \r\n

Btrieve \u30a2\u30af\u30bb\u30b9\u306e\u5834\u5408\u3067\u3044\u3046\u3068\u3001\u30c7\u30fc\u30bf\u30d0\u30c3\u30d5\u30a1\u3092\u30e6\u30fc\u30b6\u5b9a\u7fa9\u578b\u3067\u5ba3\u8a00\u3057\u3001Btrieve API \u3092\u4f7f\u3063\u3066\u30ec\u30b3\u30fc\u30c9\u3092\u8aad\u307f\u8fbc\u3080\u3068\u304d\u3001Btrieve \u306f 2 \u30d0\u30a4\u30c8\u5206\u5e83\u304c\u3063\u305f\u5165\u308c\u7269\u306b\u5bfe\u3057\u3066\u3001\u305d\u308c\u3068\u306f\u77e5\u3089\u305a\u306b\u30c7\u30fc\u30bf\u3092\u6d41\u3057\u8fbc\u3093\u3067\u304d\u307e\u3059\u3002<\/p> \r\n \r\n

\u7d50\u679c\u3068\u3057\u3066\u3001Field-1 \u306f\u6b63\u3057\u304f\u8aad\u307f\u8fbc\u3081\u307e\u3059\u304c\u3001Field-2 \u306f\u672c\u6765\u306e\u30c7\u30fc\u30bf\u3067\u3042\u308b 4 \u30d0\u30a4\u30c8\u9577\u6574\u6570\u306e\u5f8c\u308d 2 \u30d0\u30a4\u30c8\u5206\u3068 Field-3 \u306e\u5148\u982d 2 \u30d0\u30a4\u30c8\u5206\u3067\u69cb\u6210\u3055\u308c\u3001Field-3 \u306b\u306f\u672c\u6765\u306e\u30c7\u30fc\u30bf\u304b\u3089\u5148\u982d 2 \u30d0\u30a4\u30c8\u3092\u9664\u3044\u305f\u30c7\u30fc\u30bf\u304c\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u304b\u306e\u3088\u3046\u306b\u898b\u3048\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/p> \r\n \r\n

Btrieve \u306f\u30ec\u30b3\u30fc\u30c9\u306e\u5185\u5bb9\u306b\u306f\u4e00\u5207\u624b\u3092\u52a0\u3048\u307e\u305b\u3093\u3002\u305d\u308c\u304c\u3069\u306e\u3088\u3046\u306a\u8a00\u8a9e\u3067\u66f8\u304d\u8fbc\u307e\u308c\u305f\u3082\u306e\u304b\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u304c\u3069\u3046\u306a\u3063\u3066\u3044\u308b\u306e\u304b\u3001\u3069\u306e\u3088\u3046\u306a\u30c7\u30fc\u30bf\u578b\u3067\u3042\u308b\u306e\u304b\u3001\u3068\u3044\u3063\u305f\u3053\u3068\u306b\u306f\u95a2\u77e5\u3057\u307e\u305b\u3093\u3002\u5358\u306a\u308b\u30d0\u30a4\u30c8\u306e\u4e26\u3073\u3068\u3057\u3066\u6271\u3046\u3060\u3051\u3067\u3059\u3002\u30c7\u30fc\u30bf\u30d0\u30c3\u30d5\u30a1\u306b\u5165\u3063\u3066\u3044\u308b\u901a\u308a\u3092\u305d\u306e\u307e\u307e\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u51fa\u3057\u3001\u307e\u305f\u306f\u8aad\u307f\u51fa\u3057\u3066\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u6e21\u3057\u307e\u3059\u3002<\/p>\r\n
\r\n \r\n

\u3000Visual Basic (32bit) \u306b\u304a\u3051\u308b\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c\u3092\u89e3\u6c7a\u3059\u308b\u305f\u3081\u306b\u306f\u3001Btrieve \u3068\u306e\u30c7\u30fc\u30bf\u53d7\u3051\u6e21\u3057\u306b\u30d0\u30a4\u30c8\u578b\u914d\u5217\u3092\u4f7f\u3046\u3053\u3068\u3067\u3059\u3002<\/p> \r\n \r\n

Type DataBuffer<\/p> \r\n \r\n

Field1(0 To 1) As Byte<\/p> \r\n \r\n

Field2 As Long<\/p> \r\n \r\n

Field3 As String * 10<\/p> \r\n \r\n

End Type<\/p> \r\n \r\n

\u3067\u306f\u306a\u304f\u3001<\/p> \r\n \r\n

Type DataBuffer<\/p> \r\n \r\n

Field1(0 To 1) As Byte<\/p> \r\n \r\n

Field2(0 To 3) As Byte<\/p> \r\n \r\n

Field3 As String * 10<\/p> \r\n \r\n

End Type<\/p> \r\n \r\n

\u3053\u306e\u3088\u3046\u306b\u5b9a\u7fa9\u3057\u307e\u3059\u3002<\/p> \r\n \r\n

\u3057\u304b\u3057\u3053\u306e\u307e\u307e\u3067\u306f\u3001Field-2 \u3092 VB \u5185\u3067\u6570\u5024\u3068\u3057\u3066\u6271\u3048\u306a\u3044\u306e\u3067\u3001\u30d0\u30a4\u30c8\u914d\u5217\u3068\u6570\u5024\u5909\u6570\u9593\u306e\u5909\u63db\u51e6\u7406\u304c\u5fc5\u8981\u306b\u306a\u308a\u307e\u3059\u3002VB \u306b\u306f\u30e1\u30e2\u30ea\u9593\u306e\u30b3\u30d4\u30fc\u6a5f\u80fd\u304c\u306a\u3044\u306e\u3067\u3001\u305f\u3068\u3048\u3070 WindowsAPI \u3092\u4f7f\u3063\u3066\u5b9f\u73fe\u3057\u307e\u3059\u3002<\/p> \r\n \r\n

\u3000Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” ( _<\/p> \r\n \r\n

\u3000 hpvDest As Any, _<\/p> \r\n \r\n

\u3000 hpvSource As Any, _<\/p> \r\n \r\n

\u3000 ByVal cbCopy As Long)<\/p> \r\n \r\n

\u3000Dim SampleDataBuffer As DataBuffer<\/p> \r\n \r\n

\u3000Dim lngField2Value As Long<\/p> \r\n \r\n

\u3000CopyMemory lngField2Value, SampleDataBuffer.Field2(0), 4<\/p> \r\n \r\n

\u3053\u308c\u3067 lngField2Value \u304c\u672c\u6765\u306e\u9577\u6574\u6570\u578b\u306e\u6570\u5024\u3068\u3057\u3066\u6271\u3048\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p> \r\n \r\n

\u30c7\u30fc\u30bf\u3092\u66f8\u304d\u51fa\u3059\u5834\u5408\u306f\u3001\u9006\u306b\u3001<\/p> \r\n \r\n

\u3000CopyMemory SampleDataBuffer.Field2(0), lngField2Value, 4<\/p> \r\n \r\n

\u3068\u3057\u3066\u3001Btrieve \u306b\u6e21\u3059\u30c7\u30fc\u30bf\u30d0\u30c3\u30d5\u30a1\u306e\u30d0\u30a4\u30c8\u914d\u5217\u306b\u6b63\u3057\u304f\u30c7\u30fc\u30bf\u3092\u30bb\u30c3\u30c8\u3057\u307e\u3059\u3002<\/p> \r\n \r\n

\u30e6\u30fc\u30b6\u5b9a\u7fa9\u578b\u306e\u4e2d\u3067\u6570\u5024\u5909\u6570\uff08Integer, Long, Single, Double, Currency \u306a\u3069\uff09\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u3059\u3079\u3066\u3053\u306e\u51e6\u7406\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p> \r\n \r\n

\u307e\u305f\u5f53\u7136\u3067\u3059\u304c\u3001Get Equal \u306a\u3069\u3067\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u306b\u6570\u5024\u3092\u30bb\u30c3\u30c8\u3057\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u3044\u6642\u3082\u3001\u540c\u69d8\u306e\u51e6\u7406\u304c\u5fc5\u8981\u306b\u306a\u308a\u307e\u3059\u3002<\/p> \r\n\r\n <\/div>\r\n <\/div>","protected":false},"excerpt":{"rendered":"32 \u30d3\u30c3\u30c8\u7248 Visual Basic\u4f7f\u7528\u6642\u306b\u304a\u3051\u308b\u30d0\u30a4\u30c8\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c \u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u554f\u984c\u3068\u3068\u3082\u306b\u3001Visual Basic (32bit) \u3067 Btrieve API \u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306b\u30c8\u30e9\u30d6\u30eb\u306e\u539f\u56e0\u3068\u306a\u308b […]","protected":false},"author":1,"featured_media":0,"parent":497,"menu_order":132,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/796"}],"collection":[{"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/comments?post=796"}],"version-history":[{"count":8,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/796\/revisions"}],"predecessor-version":[{"id":2801,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/796\/revisions\/2801"}],"up":[{"embeddable":true,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/497"}],"wp:attachment":[{"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/media?parent=796"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}