{"id":2172,"date":"2020-09-03T18:22:40","date_gmt":"2020-09-03T09:22:40","guid":{"rendered":"https:\/\/www.agtech.co.jp\/actian\/?page_id=2172"},"modified":"2024-12-17T18:15:43","modified_gmt":"2024-12-17T09:15:43","slug":"sup_0023","status":"publish","type":"page","link":"https:\/\/www.agtech.co.jp\/actian\/support\/reference\/sup_0023\/","title":{"rendered":"Microsoft Visual Basic 6 \u3068 Pervasive.SQL 2000i \u3092\u4f7f\u3063\u305f\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u958b\u767a"},"content":{"rendered":"
\r\n
\r\n

Microsoft Visual Basic 6 \u3068
Pervasive.SQL 2000i \u3092\u4f7f\u3063\u305f
\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u958b\u767a<\/h1>\r\n <\/div>\r\n \r\n
\r\n

\u203b Pervasive.SQL 2000i \u4f5c\u6210\u8cc7\u6599\u3067\u3059\u304c\u3001Actian Zen \u306e\u4e0b\u4f4d\u4e92\u63db\u6027\u306b\u3088\u3063\u3066\u3001Actian Zen \/ PSQL \u88fd\u54c1\u3067\u3082\u53c2\u8003\u8cc7\u6599\u3068\u3057\u3066\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002<\/p>\r\n\r\n \r\n \r\n

\r\n 1.\u306f\u3058\u3081\u306b<\/a>
\r\n 2.Btrieve API<\/a>
\r\n 3.ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb<\/a>
\r\n 4.ODBC<\/a>
\r\n 5.ADO \u7d4c\u7531\u306e OLE DB<\/a>
\r\n 6.\u7d50\u8ad6
<\/a>
\r\n \u4ed8\u9332A\uff1aBtrieve API \u306e\u30b5\u30f3\u30d7\u30eb<\/a>
\r\n \u4ed8\u9332B\uff1aBtrieve API \u306e\u30b5\u30f3\u30d7\u30eb
\r\n \u3000\u3000:Zen Btrieve Alignment DLL\uff08PALN32.DLL\uff09\u3092\u4f7f\u7528 <\/a>
\r\n \u4ed8\u9332C\uff1aActiveX \u306e\u30b5\u30f3\u30d7\u30eb<\/a>
\r\n \u4ed8\u9332D\uff1aDAO \u306e\u30b5\u30f3\u30d7\u30eb<\/a>
\r\n \u4ed8\u9332E\uff1aRDO \u306e\u30b5\u30f3\u30d7\u30eb<\/a>
\r\n \u4ed8\u9332F\uff1aODBC \u3092\u4f7f\u7528\u3059\u308b ADO \u306e\u30b5\u30f3\u30d7\u30eb<\/a>
\r\n \u4ed8\u9332G\uff1aOLE DB \u3092\u4f7f\u7528\u3059\u308bADO \u306e\u30b5\u30f3\u30d7\u30eb<\/a><\/span>\r\n <\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

1.\u306f\u3058\u3081\u306b<\/h4>\r\n \r\n

Pervasive.SQL 2000i \u306e\u76ee\u7684\u306f\u3001\u4e3b\u306a\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u958b\u767a\u74b0\u5883\u306b\u304a\u3051\u308b\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u958b\u767a\u306b\u5fc5\u8981\u3068\u3055\u308c\u308b\u30c4\u30fc\u30eb\u3092\u63d0\u4f9b\u3059\u308b\u3053\u3068\u3067\u3059\u3002Pervasive.SQL 2000i SDK \u306b\u306f\u3001ODBC\u3001ODBC \u7d4c\u7531\u306e ADO\u3001OLE DB \u7d4c\u7531\u306e ADO\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3001\u305d\u3057\u3066\u3082\u3061\u308d\u3093\u30cd\u30a4\u30c6\u30a3\u30d6\u306e Btrieve API \u306a\u3069\u3001\u3042\u3089\u3086\u308b\u4e3b\u8981\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9 \u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306b\u5bfe\u3059\u308b\u30a2\u30af\u30bb\u30b9\u3092\u63d0\u4f9b\u3059\u308b\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u304c\u542b\u307e\u308c\u3066\u3044\u307e\u3059\u3002

\r\n\r\n \u4f7f\u3044\u3084\u3059\u3055\u3092\u512a\u5148\u3057\u3066\u8a2d\u8a08\u3055\u308c\u3066\u3044\u308b Microsoft Visual Basic \u306f\u3001\u958b\u767a\u8005\u306e\u9593\u3067\u3082\u4eba\u6c17\u3092\u535a\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u306e Microsoft Visual Basic \u306f\u3001\u591a\u69d8\u306a\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30a2\u30af\u30bb\u30b9\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u306b\u5bfe\u5fdc\u3057\u3001\u30bf\u30a4\u30d7\u3092\u554f\u308f\u305a\u3042\u3089\u3086\u308b\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u9069\u3057\u3066\u3044\u307e\u3059\u3002ODBC \u304b\u3089\u3001ADO\u3001RDO \u3055\u3089\u306b\u30cd\u30a4\u30c6\u30a3\u30d6\u30a2\u30af\u30bb\u30b9\u307e\u3067\u3001Visual Basic \u306b\u3088\u3063\u3066\u3001\u958b\u767a\u8005\u306f\u3001\u30ad\u30e9\u30fc \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u958b\u767a\u306b\u5fc5\u8981\u3068\u3055\u308c\u308b\u67d4\u8edf\u6027\u3092\u5f97\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002

\r\n\r\n \u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306e\u9078\u629e\u306f\u3001\u958b\u767a\u30d7\u30ed\u30bb\u30b9\u306b\u304a\u3051\u308b\u304d\u308f\u3081\u3066\u91cd\u8981\u306a\u8981\u7d20\u3067\u3059\u3002\u9069\u6b63\u306a\u30c7\u30fc\u30bf\u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3092\u9078\u629e\u3067\u304d\u308b\u304b\u3069\u3046\u304b\u304c\u3001\u300c\u307e\u3042\u307e\u3042\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u300d\u3068\u300c\u512a\u79c0\u306a\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u300d\u306e\u5206\u304b\u308c\u76ee\u306b\u306a\u308a\u307e\u3059\u3002\u3053\u306e\u3088\u3046\u306a\u30a2\u30af\u30bb\u30b9\u65b9\u6cd5\u306e\u9078\u629e\u306f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30cb\u30fc\u30ba\u3084\u5c55\u958b\u74b0\u5883\u306e\u30cb\u30fc\u30ba\u3001\u5404\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306e\u9577\u6240\u3092\u6bd4\u8f03\u691c\u8a0e\u3057\u3066\u6c7a\u5b9a\u3059\u3079\u304d\u3067\u3042\u308a\u3001\u300c\u958b\u767a\u306e\u901f\u5ea6\u300d\u300c\u958b\u767a\u306e\u5bb9\u6613\u3055\u300d\u300c\u4ed6\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3068\u306e\u4e92\u63db\u6027\u300d\u306e\u30d0\u30e9\u30f3\u30b9\u304c\u8981\u6c42\u3055\u308c\u307e\u3059\u3002\u305f\u3068\u3048\u3070\u3001Btrieve API \u306f\u3001\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u306b\u304a\u3051\u308b\u6700\u9ad8\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u63d0\u4f9b\u3057\u307e\u3059\u304c\u3001\u305d\u306e\u53cd\u9762\u3001\u305d\u306e\u958b\u767a\u306b\u306f\u76f8\u5f53\u306a\u52b4\u529b\u3092\u8981\u3057\u307e\u3059\u3002\u307e\u305f\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001Btrieve API \u3088\u308a\u3082\u901f\u5ea6\u304c\u52a3\u308a\u307e\u3059\u304c\u3001\u958b\u767a\u304c\u5bb9\u6613\u3067\u3042\u308a\u3001\u901f\u5ea6\u306f\u4ed6\u306e\u65b9\u6cd5\u3088\u308a\u3082\u512a\u308c\u3066\u3044\u307e\u3059\u3002ODBC \u3068 OLE DB \u306f\u3001\u958b\u767a\u306f\u304d\u308f\u3081\u3066\u5bb9\u6613\u3067\u3059\u304c\u3001\u4f59\u5206\u306a\u30ec\u30a4\u30e4\u306e\u5b58\u5728\u306b\u3088\u3063\u3066\u901f\u5ea6\u3067\u52a3\u308a\u307e\u3059\u3002ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3001ODBC\u3001OLE DB \u306f\u3044\u305a\u308c\u3082\u3001\u30b0\u30ea\u30c3\u30c9\u3001\u30ea\u30b9\u30c8 \u30dc\u30c3\u30af\u30b9\u306a\u3069\u306e\u6a19\u6e96\u304a\u3088\u3073\u30b5\u30fc\u30c9\u30d1\u30fc\u30c6\u30a3\u88fd\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u958b\u767a\u901f\u5ea6\u306e\u5411\u4e0a\u304c\u53ef\u80fd\u3067\u3059\u3002

\r\n\r\n \u672c\u66f8\u306f\u3001\u958b\u767a\u8005\u306e\u7686\u3055\u3093\u304c Visual Basic \u3092\u4f7f\u7528\u3059\u308b\u969b\u306b\u5229\u7528\u3059\u308b\u3053\u3068\u306e\u3067\u304d\u308b Pervasive.SQL 2000i \u306e\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9 \u30aa\u30d7\u30b7\u30e7\u30f3\u306b\u3064\u3044\u3066\u793a\u3057\u307e\u3059\u3002\u305d\u308c\u305e\u308c\u306e\u4ee3\u66ff\u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3001\u307e\u305f\u3001\u305d\u308c\u305e\u308c\u306e\u9577\u6240\u3068\u77ed\u6240\u306b\u95a2\u3057\u3066\u3082\u691c\u8a0e\u3057\u3066\u3044\u304d\u307e\u3059\u3002\u307e\u305f\u3001\u9069\u6b63\u306a\u4f7f\u3044\u65b9\u306e\u4f8b\u3068\u3057\u3066\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3082\u793a\u3057\u307e\u3059\u3002<\/p>\r\n\r\n \r\n

2.Btrieve API<\/h4>\r\n \r\n\r\n <\/a>\r\n

Btrieve API \u306f\u3001\u3042\u3089\u3086\u308b\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3068\u6bd4\u8f03\u3057\u3066\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u70b9\u3067\u512a\u308c\u3066\u3044\u307e\u3059\u3002\u6210\u719f\u5ea6\u306b\u304a\u3044\u3066\u3082\u4ed6\u3092\u51cc\u304e\u3001\u4ee5\u524d\u304b\u3089\u591a\u304f\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u4f7f\u7528\u3055\u308c\u3066\u304d\u305f\u5b9f\u7e3e\u3082\u3042\u308a\u307e\u3059\u3002\u300c\u901f\u5ea6\u300d\u304c\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u304a\u3051\u308b\u6700\u3082\u91cd\u8981\u306a\u8981\u7d20\u3067\u3042\u308b\u5834\u5408\u306b\u306f\u3001Btrieve API \u3092\u9078\u629e\u3059\u3079\u304d\u3067\u3059\u3002\u3053\u306e API \u306f\u3001\u30c7\u30fc\u30bf\u5165\u529b\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3001\u5927\u91cf\u306e\u30c7\u30fc\u30bf\u8ee2\u9001\u3001\u57fa\u672c\u7684\u306a\u30ed\u30fc\u30ec\u30d9\u30eb\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30a2\u30af\u30bb\u30b9\u306b\u304a\u3044\u3066\u3082\u304d\u308f\u3081\u3066\u512a\u308c\u3066\u3044\u307e\u3059\u3002Btrieve API \u3067\u306f\u3001\u30c7\u30fc\u30bf\u30d5\u30a1\u30a4\u30eb\u306e\u53d6\u308a\u6271\u3044\u306b\u304a\u3044\u3066 DDF\uff08Data Dictionary File \u30c7\u30fc\u30bf\u8f9e\u66f8\u30d5\u30a1\u30a4\u30eb\uff09\u306f\u4f7f\u7528\u305b\u305a\u3001\u307e\u305f\u5fc5\u8981\u3068\u3057\u307e\u305b\u3093\u3002

\r\n\r\n \u4ed8\u9332A<\/a> \u306b\u30b5\u30f3\u30d7\u30eb\u304c\u3042\u308a\u307e\u3059\u3002\u5404\u6a5f\u80fd\u306e\u6982\u8981\u3068\u5404\u6a5f\u80fd\u3092\u5229\u7528\u3059\u308b\uff08\u305f\u3081\u306b\u5fc5\u8981\u306a\u74b0\u5883\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u30de\u30cb\u30e5\u30a2\u30eb\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\n Btrieve API \u547c\u3073\u51fa\u3057\u306f\u3001\u57fa\u672c\u7684\u306b\u306f\u6b21\u306e7\u3064\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u3067\u69cb\u6210\u3055\u308c\u3066\u3044\u307e\u3059\u8a73\u7d30\u306f\u30de\u30cb\u30e5\u30a2\u30eb<\/a>\u306b\u793a\u3055\u308c\u3066\u3044\u307e\u3059\uff09\u3002

\r\n\r\n Status = BTRCALL(Operation, PosBlk, DataBuffer, DataBufferLen, KeyBuffer, KeyBufferLen, KeyNumber<\/span><\/span>)

\r\n\r\n \u30fb Operation<\/span><\/span> \u306f\u3001\u5b9f\u884c\u3059\u3079\u304d Btrieve \u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u3067\u3059\u3002
\r\n \u3000 \uff08Open\u3001Get First\u3001Insert\u3001Stop\u306a\u3069\uff09

\r\n\r\n \u30fb PosBlk<\/span><\/span> \u306f\u3001\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u3067\u3059\u3002\u3069\u306e\u30c7\u30fc\u30bf \u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u7528\u3059\u308b\u304b\u8b58\u5225\u3059\u308b\u305f\u3081\u306b\u3001Btrieve \u547c\u3073\u51fa\u3057\u3067\u304b\u306a\u3089\u305a\u4f7f\u7528\u3059\u308b\u5909\u6570\u3067\u3059\u3002
\r\n \u3000 Open \u547c\u3073\u51fa\u3057\u306e\u524d\u306b\u3001128 \u30d0\u30a4\u30c8\u9577\u3067\u5b9a\u7fa9\u3057\u3001\u30d0\u30a4\u30ca\u30ea\u30bc\u30ed\u306b\u521d\u671f\u5316\u3057\u307e\u3059\u3002
\r\n \u3000 \u3053\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u76f4\u63a5\u306e\u5909\u66f4\u306f\u907f\u3051\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\n \u30fbDataBuffer<\/span><\/span> \u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3068 Btrieve \u30a8\u30f3\u30b8\u30f3\u306e\u9593\u3067\u306e\u30c7\u30fc\u30bf\u306e\u53d7\u3051\u6e21\u3057\u306b\u4f7f\u7528\u3057\u307e\u3059\u3002Open \u547c\u3073\u51fa\u3057\u3067\u5fc5\u8981\u306b\u5fdc\u3058\u3001\u30aa\u30fc\u30ca\u30fc\u540d\u3084\u3001Insert\u3001Get \u64cd\u4f5c\u3067 Record \u30a4\u30e1\u30fc\u30b8\u3092\u53d7\u3051\u6e21\u3057\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002\u901a\u5e38\u306f\u3001UDT \u3068\u3057\u3066\u5b9a\u7fa9\u3057\u307e\u3059\u3002

\r\n\r\n \u30fb DataBufferLen<\/span><\/span> \u306f\u3001DataBuffer \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u30c7\u30fc\u30bf\u9577\u3067\u3059\u3002

\r\n\r\n \u30fb KeyBuffer<\/span><\/span> \u306f\u3001\u30c7\u30fc\u30bf\u306e\u30b5\u30fc\u30c1\u3001\u53d6\u308a\u51fa\u3057\u7528\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u5024\u3092\u683c\u7d0d\u3057\u307e\u3059\u3002Open \u547c\u3073\u51fa\u3057\u3067\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u6e21\u3059\u5834\u5408\u306b\u3082\u4f7f\u7528\u3057\u307e\u3059\u3002

\r\n\r\n \u30fb KeyBufferLen<\/span><\/span> \u306f\u3001KeyBuffer \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u9577\u3055\u3067\u3059\u3002

\r\n\r\n \u30fb KeyNumber<\/span><\/span> \u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u3001\u7279\u5b9a\u306e\u547c\u3073\u51fa\u3057\u3067\u4f7f\u7528\u3059\u308b\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002 Version \u547c\u3073\u51fa\u3057\u306a\u3069\u306e\u5404\u7a2e\u547c\u3073\u51fa\u3057\u3067\u8fd4\u3055\u308c\u308b\u30c7\u30fc\u30bf\u306e\u30d0\u30ea\u30a8\u30fc\u30b7\u30e7\u30f3\u3082\u6307\u5b9a\u3057\u307e\u3059\u3002

\r\n\r\n Visual Basic \u3067\u306e Btrieve API \u306e\u4f7f\u7528\u306f\u3001\u304d\u308f\u3081\u3066\u7c21\u5358\u3067\u3059\u3002Btrieve \u30d5\u30a1\u30a4\u30eb\u306b\u5bfe\u3059\u308b\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u884c\u3046\u306b\u306f\u3001\u305d\u306e\u524d\u306b\u307e\u305a\u300c\u958b\u304f\uff08Open\uff09\u300d\u304b\u300c\u65b0\u898f\u4f5c\u6210\uff08Create\uff09\u300d\u306b\u3088\u3063\u3066\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u5f8c\u306b\u30c7\u30fc\u30bf\u3092\u53d6\u308a\u51fa\u3059\u306b\u306f\u3001\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u4f7f\u7528\u3059\u308b Get First\u3001Get Next\u3001Get Last\u3001Get Previous \u3092\u5b9f\u884c\u3059\u308b\u304b\u3001\u307e\u305f\u306f\u3001\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u4f7f\u7528\u3057\u306a\u3044\u300cStep\u300d\u3092\u5b9f\u884c\u3059\u308b\u3060\u3051\u3067\u3059\u3002\u3053\u306e\u4ed6\u306b\u3082\u3001\u76ee\u7684\u306e\u30ec\u30b3\u30fc\u30c9\u307e\u3067\u76f4\u63a5\u79fb\u52d5\u3059\u308b\u300cGet\u300d\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u3001\u6761\u4ef6\u3092\u6e80\u305f\u3059\u30ec\u30b3\u30fc\u30c9\u3092\u691c\u7d22\u3059\u308b\u300cGet\u300d\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u3082\u3042\u308a\u307e\u3059\u3002\u6700\u9069\u306a\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u5f97\u308b\u306b\u306f\u3001Extended \u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\uff08GetNextExtended \u3068 StepNextExtended\uff09\u3092\u4f7f\u3063\u3066\u30011\u56de\u306e\u95a2\u6570\u547c\u3073\u51fa\u3057\u3067\u8907\u6570\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u53d6\u308a\u51fa\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30ec\u30b3\u30fc\u30c9\u306e\u633f\u5165\u3001\u524a\u9664\u3001\u66f4\u65b0\u306b\u306f\u3001\u305d\u308c\u305e\u308c Insert\u3001Delete\u3001Update \u95a2\u6570\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002

\r\n\r\n Btrieve API \u306e\u547c\u3073\u51fa\u3057\u306f\u304d\u308f\u3081\u3066\u9ad8\u901f\u3067\u3042\u308a\u3001\u5e83\u304f\u4f7f\u7528\u3055\u308c\u3066\u3044\u307e\u3059\u304c\u3001\u958b\u767a\u8005\u304c\u6ce8\u610f\u3059\u3079\u304d\u70b9\u304c\u3044\u304f\u3064\u304b\u3042\u308a\u307e\u3059\u3002Visual Basic \u306e\u6700\u521d\u306e 32 \u30d3\u30c3\u30c8 \u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u3042\u308b v4.0 \u4ee5\u964d\u3001Btrieve API \u3068 Visual Basic \u306b\u95a2\u3059\u308b 2 \u3064\u306e\u5927\u304d\u306a\u554f\u984c\u70b9\u304c\u3042\u308a\u3001\u89e3\u6d88\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002\u305d\u306e\u3046\u3061\u306e1\u3064\u306e\u554f\u984c\u306f\u4e00\u822c\u306b\u3001\u300c\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u306e\u554f\u984c\u300d\u3068\u547c\u3070\u308c\u3066\u3044\u307e\u3059\u3002Visual Basic v4.0\uff08\u3068\u305d\u308c\u4ee5\u964d\u306e\u3059\u3079\u3066\uff09\u306e\u30ea\u30ea\u30fc\u30b9\u3067\u3001Visual Basic \u306f\u3001\u30ef\u30fc\u30c9\u5883\u754c\u3067\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u30c7\u30fc\u30bf\u578b\uff08UDT\uff09\u306e\u30e1\u30f3\u30d0\u306e\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u3092\u5408\u308f\u305b\u307e\u3059\u3002\u3053\u308c\u306f\u4f55\u3092\u610f\u5473\u3059\u308b\u306e\u3067\u3057\u3087\u3046\u304b\u3002\u3053\u308c\u306f\u3001\u3042\u308b\u30ec\u30b3\u30fc\u30c9\u3092\u5b9a\u7fa9\u3059\u308b UDT \u306b Long\u3001Integer\u3001Single\u3001Double \u305d\u306e\u4ed6\u306e 4 \u3082\u3057\u304f\u306f 8 \u30d0\u30a4\u30c8\u6570\u5024\u30c7\u30fc\u30bf\u578b\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u5834\u5408\u306b\u3001\u305d\u306e\u5909\u6570\u306f\u3001\u3053\u306e\u30a2\u30e9\u30a4\u30e1\u30f3\u30c8\u3092\u5408\u308f\u305b\u308b\u305f\u3081\u6570\u30d0\u30a4\u30c8\u304c\u30d7\u30c3\u30b7\u30e5\u30a2\u30a6\u30c8\uff08\u68c4\u5374\uff09\u3055\u308c\u308b\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u3059\u3002\u6b8b\u5ff5\u306a\u304c\u3089\u3001\u3053\u308c\u3092\u7121\u52b9\u306b\u3059\u308b\u624b\u3060\u3066\u306f\u3042\u308a\u307e\u305b\u3093\u3002

\r\n\r\n \u3082\u3046 1 \u3064\u306e\u554f\u984c\u306f\u3001\u65e5\u672c\u8a9e\u306a\u3069 2 \u30d0\u30a4\u30c8 OS \u3092\u4f7f\u7528\u3059\u308b\u3068\u304d\u306b\u767a\u751f\u3059\u308b\u554f\u984c\u3067\u3059\u3002Type String \u3068\u3057\u3066\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u308b\u5909\u6570\u304c\u3001\uff08Btrieve API \u306a\u3069\u306e\uff09DLL \u306b\u6e21\u3055\u308c\u308b\u3068\u304d\u306b\u3001Unicode \u304b\u3089\u30b7\u30b9\u30c6\u30e0\u306e\u30c7\u30d5\u30a9\u30eb\u30c8\u306e\u30b3\u30fc\u30c9\u30da\u30fc\u30b8\u306b\u5909\u63db\u3055\u308c\u308b\uff08\u9006\u3082\u540c\u69d8\uff09\u554f\u984c\u3067\u3059\u3002\u3053\u306e\u554f\u984c\u306b\u3064\u3044\u3066\u3082\u3001\u6b8b\u5ff5\u306a\u304c\u3089\u3053\u306e\u5909\u63db\u3092\u7121\u52b9\u306b\u3059\u308b\u65b9\u6cd5\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u3064\u307e\u308a\u3001\u3053\u308c\u306f\u3001Btrieve API \u306b\u6e21\u3055\u308c\u308b\u6587\u5b57\u5217\u3067\u306a\u3044\u30d1\u30e9\u30e1\u30fc\u30bf\u3092 Type String \u3068\u3057\u3066\u5b9a\u7fa9\u3057\u3066\u306f\u3044\u3051\u306a\u3044\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u3059\u3002

\r\n\r\n \u4e0a\u8a18\u306e\u554f\u984c\u306b\u5bfe\u51e6\u3059\u308b\u6700\u3082\u5b89\u5168\u306a\u65b9\u6cd5\u306f\u3001Btrieve API \u306e Data Buffer\u3001Key Buffer\u3001Position Block \u30d1\u30e9\u30e1\u30fc\u30bf\u306b\u3001\u30d0\u30a4\u30c8\u914d\u5217\u307e\u305f\u306f\u30d0\u30a4\u30c8\u914d\u5217\u306e UDT \u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3059\u3002\u305d\u306e\u3042\u3068 UDT \u5185\u306e\u6570\u5024\u304a\u3088\u3073\u6587\u5b57\u5217\u30c7\u30fc\u30bf\u3092\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5185\u90e8\u3067\u30d0\u30a4\u30c8\u914d\u5217\u3078\/\u304b\u3089\u30b3\u30d4\u30fc\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002

\r\n\r\n \u3053\u308c\u306b\u306f\u3001\u57fa\u672c\u7684\u306b 2 \u3064\u306e\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002

\r\n\r\n 1) 1 \u3064\u306e\u65b9\u6cd5\u306f\u3001Windows API \u306e RTLMoveMemory \u306a\u3069\u306e\u30e1\u30e2\u30ea\u30b3\u30d4\u30fc\u6a5f\u80fd\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3059\u3002\u307e\u305f\u3001\u6587\u5b57\u5217\u30c7\u30fc\u30bf\u304c Zen \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b Unicode \u3067\u683c\u7d0d\u3055\u308c\u3066\u3044\u306a\u3044\u5834\u5408\u306b\u306f\u3001\uff08VB \u6587\u5b57\u5217\u3067\u306fUnicode \u3067\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u305f\u3081\uff09Visual Basic \u306e StrConv \u95a2\u6570\u3092\u4f7f\u3063\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3067\u4f7f\u7528\u3055\u308c\u3066\u3044\u308b\u30a8\u30f3\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u304b\u3089 Unicode \u306b\u5909\u63db\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u3053\u306e\u4f8b\u3092\u4ed8\u9332A<\/a> \u306b\u6dfb\u4ed8\u3057\u307e\u3059\u3002

\r\n\r\n 2) \u3053\u308c\u3088\u308a\u7c21\u5358\u306a\u3082\u3046 1 \u3064\u306e\u65b9\u6cd5\u306f\u3001Zen Btrieve Alignment DLL\uff08PALN32.DLL\uff09\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3059\u3002\u3053\u306e DLL \u304c\u3001\u958b\u767a\u8005\u3067\u3042\u308b\u3042\u306a\u305f\u306b\u4ee3\u308f\u3063\u3066\u30e1\u30e2\u30ea\u30b3\u30d4\u30fc\u3068 Unicode \u5909\u63db\u3092\u5b9f\u884c\u3057\u3066\u304f\u308c\u307e\u3059\u3002\u3053\u306e\u4f8b\u3092\u4ed8\u9332B<\/a> \u306b\u6dfb\u4ed8\u3057\u307e\u3059\u3002\u3053\u306e DLL \u3068\u95a2\u9023\u3059\u308b\u8cc7\u6599\u30fb\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306f\u3001\u3053\u3061\u3089<\/a>\u306b\u3042\u308b paln32.exe \u306b\u542b\u307e\u308c\u3066\u3044\u307e\u3059\u3002

\r\n\r\n \u300ePervasive.SQL API Programmer’s Reference(Btrieve API Guide<\/a>)\u300f\u306b\u306f\u3001\u3059\u3079\u3066\u306e Btrieve API \u95a2\u6570\u306b\u3064\u3044\u3066\u306e\u8a73\u3057\u3044\u8aac\u660e\u304c\u3042\u308a\u307e\u3059\u3002Zen Btrieve Alignment DLL \u306b\u3064\u3044\u3066\u306f\u3001\u300eZen Programmer’s Guide<\/a>\u300f\u306b\u8a73\u3057\u304f\u8aac\u660e\u3055\u308c\u3066\u3044\u307e\u3059\u3002Btrieve API \u95a2\u6570\u306e\u8aac\u660e\u306e\u307b\u304b\u306b\u3001Btrieve SDK(<\/a>index)\u306b\u306f\u3001Btrieve API \u304a\u3088\u3073\u305d\u306e\u4ed6\u306e\u65b9\u6cd5\u306b\u3088\u308b Btrieve \u30c7\u30fc\u30bf\u3078\u306e\u30a2\u30af\u30bb\u30b9\u306e\u5b9f\u4f8b\u3092\u793a\u3059\u3044\u304f\u3064\u304b\u306e\u30b5\u30f3\u30d7\u30eb\u30fb\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3082\u4ed8\u5c5e\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

3.ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb<\/h4>\r\n \r\n

ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001Pervasive.SQL v7.0 SDK \u304b\u3089\u305d\u306e\u63d0\u4f9b\u304c\u958b\u59cb\u3055\u308c\u3001Pervasive.SQL 2000i \u30a8\u30f3\u30b8\u30f3\u3068\u306e\u4f75\u7528\u306e\u305f\u3081\u306e\u30a2\u30c3\u30d7\u30c7\u30fc\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001\u3082\u3068\u3082\u3068\u306f Smithware \u306e\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u3067\u3057\u305f\u304c\u3001\u73fe\u5728\u3067\u306f\u5927\u5e45\u306b\u5909\u66f4\u3055\u308c\u3066\u3044\u307e\u3059\u3002ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u6027\u8cea\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3068\u30d3\u30b8\u30e5\u30a2\u30eb\u958b\u767a\u74b0\u5883\u306e\u9593\u3067\u5229\u7528\u53ef\u80fd\u306a\u30a4\u30f3\u30c6\u30b0\u30ec\u30fc\u30b7\u30e7\u30f3\u306b\u3088\u3063\u3066\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u3063\u305f\u958b\u767a\u306f\u3001\u591a\u304f\u306e\u5834\u5408\u3001\u3088\u308a\u30ed\u30fc\u30ec\u30d9\u30eb\u306a Btrieve API \u3092\u4f7f\u3063\u305f\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u3088\u308a\u3082\u9ad8\u901f\u3067\u3059\u3002\u307e\u305f\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001Visual Basic \u5185\u90e8\u306e\u30cd\u30a4\u30c6\u30a3\u30d6\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306b\u30d0\u30a4\u30f3\u30c9\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001\u8a2d\u8a08\u6642\u306b DDF\uff08Data Dictionary Files\uff09\u3092\u5fc5\u8981\u3068\u3057\u307e\u3059\u304c\u3001\u8a2d\u8a08\u6642\u306b\u53d6\u5f97\u3057\u305f\u30d5\u30a3\u30fc\u30eb\u30c9\u60c5\u5831\u3092\u7dad\u6301\u3059\u308b\u305f\u3081\u3001\u914d\u5e03\u6642\u306b\u306f DDF \u3092\u5fc5\u8981\u3068\u3057\u307e\u305b\u3093\u3002

\r\n\r\n \u4e00\u822c\u306b\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u901f\u5ea6\u306f Btrieve API \u306b\u52a3\u3089\u305a\u3001\u9ad8\u901f\u3067\u3059\u3002\u3053\u308c\u306f\u3001\u76f4\u63a5 Btrieve API \u3092\u547c\u3073\u51fa\u3057\u3001ODBC\u3001OLE DB \u3092\u4f7f\u7528\u3057\u306a\u3044\u3053\u3068\u306b\u7406\u7531\u304c\u3042\u308a\u307e\u3059\uff08\u8a2d\u8a08\u6642\u306b\u306f\u30d5\u30a1\u30a4\u30eb\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u3001\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u60c5\u5831\u306e\u53d6\u5f97\u7528\u306b DDF \u3092\u4f7f\u7528\u3057\u307e\u3059\uff09\u3002ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u4f7f\u3044\u65b9\u306f\u3044\u305f\u3063\u3066\u7c21\u5358\u3067\u3042\u308a\u3001\u5404 Btrieve \u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u304c\u305d\u306e\u307e\u307e ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u30e1\u30bd\u30c3\u30c9\u306b\u5bfe\u5fdc\u3057\u307e\u3059\uff08\u305f\u3068\u3048\u3070\u3001Get First \u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306f Vaccess1.GetFirst \u3068\u306a\u308a\u307e\u3059\uff09\u3002

\r\n\r\n \u5404\u30e1\u30bd\u30c3\u30c9\u3068\u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u3064\u3044\u3066\u306e\u8aac\u660e\u306f\u3001\u300eActiveX Controls Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\n \u30b5\u30f3\u30d7\u30eb\u306f\u4ed8\u9332C<\/a> \u306b\u3042\u308a\u307e\u3059\u3002<\/p>\r\n \r\n \r\n \r\n <\/a>\r\n

4.ODBC<\/h4>\r\n \r\n

Btrieve API \u3068 ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306f\u3001\u3068\u3082\u306b\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30ca\u30eb \u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3067\u3059\u3002\u3053\u308c\u306f\u3001\u304d\u308f\u3081\u3066\u30ed\u30fc\u30ec\u30d9\u30eb\u306a\u30e2\u30c7\u30eb\u3067\u3042\u308a\u3001\u500b\u3005\u306e\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30f3\u306e\u901f\u5ea6\u3092\u76ee\u7684\u3068\u3059\u308b\u5834\u5408\u306b\u306f\u3001\u6700\u9069\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u63d0\u4f9b\u3057\u307e\u3059\u3002\u3053\u308c\u306b\u5bfe\u3057\u3066\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u30af\u30a8\u30ea\u30fc\u3092\u304b\u3051\u3066\u7279\u5b9a\u306e\u7d50\u679c\u30bb\u30c3\u30c8\u3068\u30c7\u30fc\u30bf\u5217\u3092\u8fd4\u3059\u5834\u5408\u306b\u306f\u3001SQL \u69cb\u6587\u3092\u4f7f\u7528\u3059\u308b\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb \u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u304c\u3088\u308a\u9069\u3057\u305f\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3068\u306a\u308a\u307e\u3059\u3002

\r\n\r\n\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30ca\u30eb\u3068\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb\u306e\u4e21\u65b9\u306e\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u65b9\u6cd5\u3092\u30df\u30c3\u30af\u30b9\u3057\u3001\u30de\u30c3\u30c1\u3055\u305b\u308b\u6a5f\u80fd\u304c\u3001Pervasive.SQL 2000i \u306e\u7279\u9577\u306e\u3072\u3068\u3064\u3067\u3059\u3002\u9069\u6b63\u306a\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306b\u9069\u6b63\u306a API \u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u306b\u3088\u3063\u3066\u3001\u958b\u767a\u8005\u306f\u30bf\u30b9\u30af\u306b\u5408\u308f\u305b\u305f\u6700\u9069\u306e\u30c4\u30fc\u30eb\u3092\u6d3b\u7528\u3059\u308b\u305f\u3081\u306e\u67d4\u8edf\u6027\u3092\u5f97\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002

\r\n\r\n\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30d7\u30e9\u30c3\u30c8\u30d5\u30a9\u30fc\u30e0\u306e\u9055\u3044\u3092\u514b\u670d\u3059\u308b\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u6280\u8853\u306e\u306a\u304b\u3067\u6700\u3082\u5e83\u304f\u4f7f\u7528\u3055\u308c\u3066\u3044\u308b\u306e\u306f\u3001\u304a\u305d\u3089\u304f ODBC \u3067\u3057\u3087\u3046\u3002ODBC \u306f\u3001\u8907\u6570\u306e\u7570\u7a2e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30d0\u30c3\u30af\u30a8\u30f3\u30c9\u306b\u5bfe\u5fdc\u3059\u308b\u5358\u4e00\u306e\u5171\u901a\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3068\u3057\u3066 Microsoft \u304c\u958b\u767a\u3057\u305f\u3082\u306e\u3067\u3042\u308a\u3001\u6b63\u78ba\u306b\u306f Open DataBase Connectivity \u3068\u3044\u3044\u307e\u3059\u3002ODBC \u3092\u7d4c\u7531\u3059\u308b\u3053\u3068\u306b\u3088\u3063\u3066\u3001Zen \u3068 Btrieve \u30c7\u30fc\u30bf\u306b\u5bfe\u3059\u308b\u3001SQL \u30af\u30a8\u30ea\u30fc\u306b\u3088\u308b\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb \u30a2\u30af\u30bb\u30b9\u304c\u53ef\u80fd\u3068\u306a\u308a\u307e\u3059\u3002Zen \u306e ODBC \u30c9\u30e9\u30a4\u30d0\u306f\u3001\u4ed6\u306e ODBC \u30c9\u30e9\u30a4\u30d0\u3068\u540c\u69d8\u3001DDF \u304c\u4e0b\u5c64\u306e Btrieve \u30c7\u30fc\u30bf \u30d5\u30a1\u30a4\u30eb\u306b\u95a2\u3057\u3066\u6b63\u78ba\u3067\u5b8c\u5168\u306a\u8a18\u8ff0\u3092\u793a\u3059\u3053\u3068\u3092\u6c42\u3081\u307e\u3059\u3002ODBC \u3067\u6700\u9069\u306a\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u5f97\u308b\u306b\u306f\u3001\u6b63\u78ba\u306a DDF \u304c\u5fc5\u9808\u3067\u3059\u3002DDF \u3068\u4e0b\u5c64\u306e\u30c7\u30fc\u30bf \u30d5\u30a1\u30a4\u30eb\u304c\u30de\u30c3\u30c1\u3057\u306a\u3044\u5834\u5408\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u304c\u4f4e\u4e0b\u3057\u305f\u308a\u3001\u4e0d\u6b63\u78ba\u306a\u7d50\u679c\u30bb\u30c3\u30c8\u304c\u8fd4\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002

\r\n\r\n ODBC \u3068 Btrieve API \u306f\u307e\u3063\u305f\u304f\u5225\u306e\u7269\u3067\u3059\u3002\u540c\u3058\u3088\u3046\u306a\u52d5\u4f5c\u304c\u53ef\u80fd\u3067\u3059\u304c\u3001\u305d\u308c\u305e\u308c\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u306b\u306f\u5927\u304d\u306a\u9055\u3044\u304c\u3042\u308a\u307e\u3059\u3002ODBC \u306f\u3001\u69cb\u9020\u5316\u554f\u3044\u5408\u308f\u305b\u8a00\u8a9e\uff08Structured Query Language; SQL\uff09\u3092\u4f7f\u3063\u3066\u30c7\u30fc\u30bf\u306b\u5bfe\u3059\u308b\u30a2\u30af\u30bb\u30b9\u3092\u884c\u3044\u3001Btrieve API \u306f\u3001\u5404\u7a2e\u8aad\u307f\u51fa\u3057\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306b\u3088\u3063\u3066\u30d5\u30e9\u30c3\u30c8 \u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u306e\u30ec\u30b3\u30fc\u30c9\u306b\u30a2\u30af\u30bb\u30b9\u3092\u884c\u3044\u307e\u3059\u3002SQL \u3067\u306f\u3001Btrieve \u306e\u30a2\u30af\u30bb\u30b9\u65b9\u6cd5\u3068\u306f\u5bfe\u7167\u7684\u306b\u3001\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u6700\u9069\u5316\u3057\u3066\u7279\u5b9a\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u3060\u3051\u3092\u8fd4\u3059\u3088\u3046\u306b\u30a8\u30f3\u30b8\u30f3\u306b\u6307\u793a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u3053\u308c\u306b\u3088\u3063\u3066\u5e2f\u57df\u5e45\u8981\u6c42\u3092\u6e1b\u3089\u3057\u3001\u7279\u5b9a\u306e\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u9ad8\u901f\u5316\u3092\u884c\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u3053\u308c\u306b\u5bfe\u3057\u3066\u3001\u30ec\u30b3\u30fc\u30c9\u3092\u8aad\u307f\u51fa\u3059 Btrieve API \u547c\u3073\u51fa\u3057\u3067\u306f\u3001\u30ec\u30b3\u30fc\u30c9\u5168\u4f53\u304c\u8fd4\u3055\u308c\u308b\u305f\u3081\u3001\u7279\u5b9a\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u3078\u306e\u30a2\u30af\u30bb\u30b9\u306b\u306f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u5074\u306b\u304a\u3051\u308b\u30ec\u30b3\u30fc\u30c9\u89e3\u6790\u304c\u5fc5\u8981\u3068\u306a\u308a\u307e\u3059\u3002

\r\n\r\n \u3064\u3044\u898b\u9003\u3055\u308c\u304c\u3061\u306a\u3053\u3068\u3067\u3059\u304c\u3001SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u81ea\u4f53\u3082\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u6700\u9069\u5316\u306b\u95a2\u308f\u308b\u3082\u3046\u3072\u3068\u3064\u306e\u8981\u7d20\u3067\u3059\u3002\u62d9\u3044\u69cb\u9020\u306e SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u304c\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u5927\u304d\u304f\u52a3\u5316\u3055\u305b\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002

\r\n Visual Basic \u304b\u3089\u306e ODBC \u306e\u547c\u3073\u51fa\u3057\u306b\u306f\u3044\u304f\u3064\u304b\u306e\u65b9\u6cd5\u304c\u3042\u308a\u3001\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u306e\u3057\u3084\u3059\u3055\u3001\u6a19\u6e96\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u4f7f\u7528\u306a\u3069\u3001\u305d\u308c\u305e\u308c\u306b\u9577\u6240\u3068\u77ed\u6240\u304c\u3042\u308a\u307e\u3059\u3002ODBC \u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3092\u4f7f\u7528\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u306f\u3001Data Access Object\uff08DAO\uff09\u3001Remote Data Objects\uff08RDO\uff09\u3001ActiveX Data Objects\uff08ADO\uff09\u3001ODBC API <\/span><\/span>\u304c\u3042\u308a\u307e\u3059\u3002

\r\n\r\n DAO\uff08Data Access Objects\uff09<\/span><\/span>\u306f\u3001ODBC \u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3078\u306e\u6a19\u6e96\u30a2\u30af\u30bb\u30b9\u3067\u3042\u308a\u3001Visual Basic v2.0 \u4ee5\u964d\u3067\u63d0\u4f9b\u3055\u308c\u3066\u3044\u307e\u3059\u3002DAO \u306f\u3001JET \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30a8\u30f3\u30b8\u30f3\u3092\u4f7f\u3063\u3066 ODBC \u30c9\u30e9\u30a4\u30d0\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u305f\u3081\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u9762\u306b\u304a\u3044\u3066\u4ed6\u306e\u65b9\u6cd5\u306b\u306f\u53ca\u3073\u307e\u305b\u3093\u3002DAO \u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u306b\u306f\u30b3\u30fc\u30c9\u3092\u4f7f\u3046\u304b\u3001\u6a19\u6e96\u30c7\u30fc\u30bf\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u3044\u307e\u3059\u3002DAO \u3092\u4f7f\u3063\u305f\u63a5\u7d9a\u306e\u30b5\u30f3\u30d7\u30eb\u3092\u4ed8\u9332D <\/a>\u306b\u8a18\u8f09\u3057\u307e\u3059\u3002

\r\n\r\n RDO\uff08Remote Data Objects\uff09<\/span><\/span>\u306f\u3001ODBC \u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306b\u5bfe\u3059\u308b\u6700\u3082\u901f\u3044\u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3068\u3057\u3066\u3001Visual Basic v4.0 \u3067\u8ffd\u52a0\u3055\u308c\u307e\u3057\u305f\u3002RDO \u306f\u3001DAO \u3088\u308a\u3082\u9ad8\u3044\u67d4\u8edf\u6027\u3092\u6301\u3061\u3001\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3078\u306e\u63a5\u7d9a\u6a5f\u80fd\u3092\u7dad\u6301\u3057\u3066\u3044\u307e\u3059\u3002SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3078\u306e\u5bfe\u5fdc\u306e\u9762\u3067\u3082\u3001RDO \u306f DAO \u3068\u905c\u8272\u3042\u308a\u307e\u305b\u3093\u3002RDO \u306e DAO \u3068\u306e\u9055\u3044\u306f\u3001\u305d\u308c\u81ea\u8eab\u306e\u30af\u30a8\u30ea\u30fc\u30d7\u30ed\u30bb\u30c3\u30b5\u30fc\u3092\u5185\u8535\u3057\u3066\u3044\u306a\u3044\u70b9\u3067\u3059\u3002RDO \u306f ODBC \u30c9\u30e9\u30a4\u30d0\u306b\u30af\u30a8\u30ea\u30fc\u3092\u9001\u308a\u307e\u3059\u304c\u3001\u3053\u308c\u306f\u901a\u5e38\u3001DAO \u3088\u308a\u3082\u512a\u308c\u305f\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u3082\u305f\u3089\u3057\u307e\u3059\u3002\u63a5\u7d9a\u306e\u69cb\u6587\u3082\u82e5\u5e72\u7570\u306a\u308a\u307e\u3059\u3002\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u4ed8\u9332E <\/a>\u306b\u3042\u308a\u307e\u3059\u3002

\r\n\r\n ADO\uff08for ODBC\uff09<\/span><\/span>\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306f\u3001RDO \u3068\u304d\u308f\u3081\u3066\u3088\u304f\u4f3c\u3066\u3044\u307e\u3059\u3002ADO \u306f\u3001Visual Basic v6.0 \u304b\u3089\u5e83\u304f\u7528\u3044\u3089\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u3001OLE DB \u3092\u4f7f\u7528\u3059\u308b\u307e\u3067\u306e 1 \u3064\u306e\u30b9\u30c6\u30c3\u30d7\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002Zen ODBC \u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306b\u3088\u308b\u5177\u4f53\u7684\u306a\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9 \u30c6\u30b9\u30c8\u306f\u5b9f\u65bd\u3057\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u51e6\u7406\u901f\u5ea6\u306e\u9762\u3067\u3082 ADO \u3068 RDO \u306f\u8fd1\u4f3c\u3057\u3066\u3044\u307e\u3059\u3002ADO\uff08for ODBC\uff09\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u3001AdCmdTableDirect \u30e1\u30bd\u30c3\u30c9\u306b\u3088\u3063\u3066\u30c6\u30fc\u30d6\u30eb\u3092\u958b\u304f\u3053\u3068\u306f\u3067\u304d\u307e\u305b\u3093\u3002

\r\n\r\n ODBC API <\/span><\/span>\u306f\u3001ODBC \u306b\u5bfe\u3059\u308b\u6700\u3082\u901f\u3044\u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3067\u3059\u3002\u540c\u6642\u306b\u3001\u4f7f\u3044\u65b9\u304c\u6700\u3082\u8907\u96d1\u306a\u65b9\u6cd5\u3067\u3082\u3042\u308a\u307e\u3059\u3002\u3053\u306e API \u306b\u95a2\u3059\u308b\u3088\u3044\u53c2\u8003\u6587\u732e\u306f\u3001\u300eMicrosoft ODBC Programmer’s Reference\u300f\u3067\u3059\u3002\u3053\u3053\u306b\u306f API \u306e\u8a73\u7d30\u304c\u8a18\u8ff0\u3055\u308c\u3066\u304a\u308a\u3001\u3053\u306e\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306b\u95a2\u5fc3\u306e\u3042\u308b\u3059\u3079\u3066\u306e\u958b\u767a\u8005\u306b\u4e00\u8aad\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002

\r\n\r\n Zen ODBC\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3067\u4f7f\u7528\u3055\u308c\u308bSQL\u69cb\u6587\u306b\u3064\u3044\u3066\u306f\u3001\u300eSQL Engine Reference<\/a>\u300f\u30de\u30cb\u30e5\u30a2\u30eb\u304c\u53c2\u8003\u306b\u306a\u308a\u307e\u3059\u3002DAO\u3001RDO\u3001ADO\u306e\u8a73\u7d30\u306f\u95a2\u3057\u3066\u306f\u3001Microsoft\u306b\u304a\u554f\u3044\u5408\u308f\u305b\u304f\u3060\u3055\u3044\u3002

\r\n\r\n ADO\u3001DAO\u3001RDO\u304c\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u7528\u3059\u308b\u306e\u306b\u5bfe\u3057\u3066\u3001ODBC API\u306f\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002\u5927\u534a\u306e\u958b\u767a\u8005\u306f\u3001ODBC\u7d4c\u7531\u306e\u30c7\u30fc\u30bf\u30a2\u30af\u30bb\u30b9\u306bADO\u3092\u7528\u3044\u307e\u3059\u3002ADO\u306f\u3001\u6700\u3082\u67d4\u8edf\u306a\u30a2\u30af\u30bb\u30b9\u306e\u65b9\u6cd5\u3067\u3042\u308a\u3001API\u30b3\u30fc\u30c9\u306e\u8a18\u8ff0\u3092\u884c\u308f\u305a\u306b\u6700\u9069\u306a\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u5f97\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002RDO\u306fDAO\u3088\u308a\u3082\u9ad8\u901f\u3067\u3042\u308a\u3001\u4f7f\u3044\u3084\u3059\u3055\u3067\u3082\u52a3\u3089\u306a\u3044\u305f\u3081\u3001ADO\u306e\u4ee3\u66ff\u3068\u306a\u308b\u512a\u308c\u305f\u65b9\u6cd5\u3067\u3059\u3002<\/p>\r\n \r\n \r\n \r\n <\/a>\r\n

5.ADO\u7d4c\u7531\u306eOLE DB<\/h4>\r\n \r\n

Pervasive.SQL 2000\u306e\u30ea\u30ea\u30fc\u30b9\u306b\u4f34\u3044\u3001\u958b\u767a\u8005\u306e\u9078\u629e\u80a2\u306bOLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u3068\u3044\u3046\u65b0\u3057\u3044\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u304c\u52a0\u308f\u308a\u307e\u3057\u305f\u3002Pervasive.SQL 2000 SP2a\u4ee5\u524d\u306f\u3001\u30d7\u30ed\u30d0\u30a4\u30c0\u304c\u30b5\u30dd\u30fc\u30c8\u3059\u308b\u306e\u306fiRowset\u306e\u307f\u3067\u3042\u308a\u3001SQL\u69cb\u6587\u306e\u30b5\u30dd\u30fc\u30c8\u306f\u63d0\u4f9b\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3067\u3057\u305f\u3002Pervasive.SQL 2000i\uff08Service Pack 3\uff09\u306e\u30ea\u30ea\u30fc\u30b9\u306b\u3088\u3063\u3066\u3001iRowset\u3068iCommand\u306e\u30d5\u30eb\u30b5\u30dd\u30fc\u30c8\u304c\u63d0\u4f9b\u3055\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002OLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u306f\u3001ODBC\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3068\u540c\u69d8\u306b\u30d5\u30a3\u30fc\u30eb\u30c9\u3068\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u306e\u60c5\u5831\u306bDDF\u3092\u4f7f\u7528\u3057\u307e\u3059\u304c\u3001ODBC\u3068\u9055\u3044\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb\u3068\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30ca\u30eb\u306e\u4e21\u65b9\u306e\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u306b\u5bfe\u3059\u308b\u30a2\u30af\u30bb\u30b9\u304c\u53ef\u80fd\u3067\u3059\uff08\u6ce8\uff1aPervasive.SQL 2000i SP3 OLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u3092\u4f7f\u3046\u3053\u3068\u3067\u3001\u306f\u3058\u3081\u3066\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb\u30a2\u30af\u30bb\u30b9\u304c\u53ef\u80fd\u3068\u306a\u308a\u307e\u3057\u305f\u3002\u305d\u308c\u4ee5\u524d\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306f\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb\u30a2\u30af\u30bb\u30b9\u306b\u306f\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u305b\u3093\u3067\u3057\u305f\uff09\u3002\u3053\u308c\u306b\u3088\u308a\u3001Seek\u30e1\u30bd\u30c3\u30c9\u3068SQL\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u9001\u4fe1\u6a5f\u80fd\u306e\u4f7f\u7528\u304c\u53ef\u80fd\u3068\u306a\u308a\u307e\u3057\u305f\u3002

\r\n\r\n \u4e00\u822c\u306b\u3001OLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u306f\u3001ADO\u3068ODBC\u30c9\u30e9\u30a4\u30d0\u3092\u4f7f\u7528\u3059\u308b\u3088\u308a\u3082\u9ad8\u901f\u3067\u3042\u308a\u3001\u307e\u305f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u958b\u767a\u306b\u304a\u3044\u3066\u3001\u30c7\u30fc\u30bf\u30a2\u30af\u30bb\u30b9\u306badCmdTable\u30e1\u30bd\u30c3\u30c9\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u3053\u306e\u30e1\u30bd\u30c3\u30c9\u306f\u3001\u76f4\u63a5\u30de\u30a4\u30af\u30ed\u30ab\u30fc\u30cd\u30eb\u306b\u884c\u304d\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb\u30a8\u30f3\u30b8\u30f3\u3092\u30d0\u30a4\u30d1\u30b9\u3057\u307e\u3059\u3002\u3053\u308c\u306f\u3001\u30d3\u30b8\u30e5\u30a2\u30eb\u30c7\u30fc\u30bf\u8a8d\u8b58\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u4f7f\u7528\u306b\u5bfe\u5fdc\u3057\u306a\u304c\u3089\u3001\u3055\u3089\u306b\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002OLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u3067\u306f\u307e\u305f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u958b\u767a\u306bAdCmdTableDirect\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u3053\u308c\u306f\u3001ODBC\u30c9\u30e9\u30a4\u30d0\u3067\u306f\u3067\u304d\u307e\u305b\u3093\u3002<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

6.\u7d50\u8ad6<\/h4>\r\n \r\n

Visual Basic\u3092\u4f7f\u3063\u3066\u30c7\u30fc\u30bf\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u3001Zen\u306b\u306f\u3044\u304f\u3064\u304b\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u304c\u63d0\u4f9b\u3055\u308c\u3066\u3044\u307e\u3059\u3002Btrieve API\u304b\u3089ADO\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3001\u3055\u3089\u306bODBC\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u307e\u3067\u306e\u5404\u30aa\u30d7\u30b7\u30e7\u30f3\u306b\u306f\u3001\u958b\u767a\u304c\u5bb9\u6613\u306a\u30aa\u30d7\u30b7\u30e7\u30f3\u3001\u67d4\u8edf\u6027\u306b\u512a\u308c\u305f\u30aa\u30d7\u30b7\u30e7\u30f3\u306a\u3069\u3001\u305d\u308c\u305e\u308c\u306e\u7279\u9577\u304c\u3042\u308a\u307e\u3059\u3002

\r\n\r\n \u958b\u767a\u8005\u306e\u7686\u3055\u3093\u306b\u306f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3084\u30bf\u30b9\u30af\u306b\u304a\u3044\u3066\u9054\u6210\u3059\u3079\u304d\u30b4\u30fc\u30eb\u306b\u7167\u3089\u3057\u3066\u3001\u5404\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9\u3092\u3072\u3068\u3064\u305a\u3064\u614e\u91cd\u306b\u6bd4\u8f03\u691c\u8a0e\u3059\u308b\u3053\u3068\u3092\u6c42\u3081\u3089\u308c\u307e\u3059\u3002\u3057\u304b\u3057\u3001Pervasive.SQL 2000i\u306f\u3001\u305f\u3060\u3072\u3068\u3064\u306e\u30a2\u30af\u30bb\u30b9\u65b9\u6cd5\u3092\u9078\u629e\u3059\u308b\u3088\u3046\u5f37\u5236\u3057\u305f\u308a\u3001\u5236\u7d04\u3092\u8ab2\u3057\u305f\u308a\u3059\u308b\u3053\u3068\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u958b\u767a\u8005\u306f\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u5168\u4f53\u3092\u901a\u3057\u3066\u8907\u6570\u306e\u30a2\u30af\u30bb\u30b9\u65b9\u6cd5\u3092\u30df\u30c3\u30af\u30b9\u3057\u3066\u30de\u30c3\u30c1\u3055\u305b\u3001\u9069\u6b63\u306a\u30bf\u30b9\u30af\u306b\u9069\u6b63\u306a\u30c4\u30fc\u30eb\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332A\uff1aBtrieve API\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u4ee5\u4e0b\u306f\u3001\u30b5\u30f3\u30d7\u30eb \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30d6\u30bb\u30c3\u30c8\u3067\u3059\u3002\u3053\u3061\u3089<\/a>\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u53ef\u80fd\u3067\u3059\u3002(\u300cAppendixA.exe\u300d\u3092\u304a\u9078\u3073\u304f\u3060\u3055\u3044\uff09

\r\n\r\n \u3053\u306e\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u3001\u305d\u306e\u5f8c\u3001\u30d5\u30a1\u30a4\u30eb\u306b\u3042\u308b\u30c7\u30fc\u30bf\u3092 Visual Basic Form \u3067\u8868\u793a\u3057\u3001\u66f4\u65b0\u3092\u53ef\u80fd\u306b\u3057\u3066\u3044\u307e\u3059\u3002Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u30de\u30cb\u30e5\u30a2\u30eb\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\n \u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3 \u30b3\u30fc\u30c9 \u306e\u5b9a\u7fa9
\r\nGlobal Const BOPEN = 0
\r\nGlobal Const BCLOSE = 1
\r\nGlobal Const BINSERT = 2
\r\nGlobal Const BUPDATE = 3
\r\nGlobal Const BDELETE = 4
\r\nGlobal Const BGETEQUAL = 5
\r\nGlobal Const BGETNEXT = 6
\r\nGlobal Const BGETPREVIOUS = 7
\r\nGlobal Const BGETGREATEROREQUAL = 9
\r\nGlobal Const BGETFIRST = 12
\r\nGlobal Const BGETLAST = 13
\r\nGlobal Const BCREATE = 14
\r\nGlobal Const BSTAT = 15
\r\nGlobal Const BBEGINTRANS = 19
\r\nGlobal Const BTRANSSEND = 20
\r\nGlobal Const BABORTTRANS = 21
\r\nGlobal Const BGETPOSITION = 22
\r\nGlobal Const BGETRECORD = 23
\r\nGlobal Const BSTOP = 25
\r\nGlobal Const BVERSION = 26
\r\nGlobal Const BRESET = 28
\r\nGlobal Const BGETNEXTEXTENDED = 36
\r\nGlobal Const BGETKEY = 50
\r\n\u2019\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 \u306e\u5b9a\u7fa9
\r\nGlobal Const B_NO_ERROR = 0
\r\nGlobal Const B_END_OF_FILE = 9

\r\n\r\nGlobal Const KEY_BUF_LEN = 255\u3000\u3000\u3000\u3000 \u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u9577(\u30d0\u30a4\u30c8)
\r\n\u2019\u30ad\u30fc\u306e\u6700\u5927\u9577\u306f 255 \u306a\u306e\u3067\u3001\u5e38\u306b 255 \u30d0\u30a4\u30c8\u306e\u30ad\u30fc \u30d0\u30c3\u30d5\u30a1\u306b\u3059\u308b\u3053\u3068\u3092\u304a\u52e7\u3081\u3057\u307e\u3059\u3002

\r\n\r\nGlobal Const POS_BLOCK_LEN = 128\u3000\u3000 \u2019\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af \u30d1\u30e9\u30e1\u30fc\u30bf\u9577(\u30d0\u30a4\u30c8)

\r\n\r\nType posblk\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u69cb\u9020\u306e\u5b9a\u7fa9
\r\n\u3000\u3000\u3000pbelements(0 To POS_BLOCK_LEN – 1) As Byte
\r\nEnd Type
\r\n\u2019Btrieve\u30a8\u30f3\u30c8\u30ea\u30dd\u30a4\u30f3\u30c8\u306e\u5b9a\u7fa9
\r\nDeclare Function BTRCALL Lib “w3btrv7.dll” (ByVal OP As Integer, PB As Any, _
\r\n\u3000\u3000\u3000Db As Any, DL As Integer, Kb As Any, ByVal Kl As Integer, _
\r\n\u3000\u3000\u3000ByVal Kn As Integer) As Integer
\r\nDeclare Sub CopyMemory Lib “Kernel32” Alias “RtlMoveMemory” _
\r\n\u3000\u3000\u3000(Destination As Any, Source As Any, ByVal NumBytestoCopy As Long)

\r\n\r\nGlobal Const MachineRowSize = 45\u3000\u3000\u3000\u3000 \u2019\u30ec\u30b3\u30fc\u30c9\u9577

\r\n\r\nType rec_tmp\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30ec\u30b3\u30fc\u30c9\u306e\u69cb\u9020\u5b9a\u7fa9
\r\n\u3000\u3000\u3000maker As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019string \u30e1\u30fc\u30ab\uff29\uff24
\r\n\u3000\u3000\u3000m_id(1 To 2) As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019integer \u30de\u30b7\u30f3\uff29\uff24
\r\n\u3000\u3000\u3000m_no(1 To 4) As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019long \u30de\u30b7\u30f3\uff2e\uff4f
\r\n\u3000\u3000\u3000m_name(1 To 30) As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019string * 30 \u30de\u30b7\u30f3\u540d
\r\n\u3000\u3000\u3000teika(1 To 4) As Byte \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019long \u5b9a\u4fa1
\r\n\u3000\u3000\u3000nebiki(1 To 4) As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019float \u5024\u5f15\u304d\u7387
\r\nEnd Type
\r\nGlobal rec_buff As rec_tmp \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9
\r\nType wrec_tmp\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u306e\u69cb\u9020\u5b9a\u7fa9
\r\n\u3000\u3000\u3000maker As String
\r\n\u3000\u3000\u3000m_id As Integer
\r\n\u3000\u3000\u3000m_no As Long
\r\n\u3000\u3000\u3000m_name As String * 30
\r\n\u3000\u3000\u3000teika As Long
\r\n\u3000\u3000\u3000nebiki As Single
\r\nEnd Type
\r\nGlobal wrec_buff As wrec_tmp\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9
\r\nGlobal posblock As posblk\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u5b9a\u7fa9
\r\nGlobal buflen As Integer\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30d0\u30c3\u30d5\u30a1\u30ec\u30f3\u30af\u30b9
\r\nType kb_tmpb\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u69cb\u9020\u306e\u5b9a\u7fa9
\r\n\u3000\u3000\u3000keybuff(1 To 255) As Byte
\r\nEnd Type
\r\nGlobal kb_datb As kb_tmpb \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9
\r\nGlobal intw As Integer \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u5b9a\u6570\u8a2d\u5b9a\u7528\u30ef\u30fc\u30af\u5909\u6570
\r\nGlobal longw As Long \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u5b9a\u6570\u8a2d\u5b9a\u7528\u30ef\u30fc\u30af\u5909\u6570
\r\nGlobal floatw As Single \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u5b9a\u6570\u8a2d\u5b9a\u7528\u30ef\u30fc\u30af\u5909\u6570
\r\nGlobal tmpb() As Byte \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019UniCode\u2192AnsiCode\u5909\u63db\u7528
\r\nGlobal dmy(1 To 10) As Byte\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30c0\u30df\u30fc\u30c7\u30fc\u30bf\u30d0\u30c3\u30d5\u30a1
\r\nSub main() \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30e1\u30a4\u30f3\u51e6\u7406\uff08Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\uff2f\uff30\uff25\uff2e\uff09
\r\n\u3000\u3000Dim m_no As Long
\r\n\u3000\u3000Dim fname As String
\r\n\u3000\u3000Dim fnlen As Integer
\r\n\u3000\u3000fname = App.Path & “\u00a5machine.btr”\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u2510
\r\n\u3000\u3000fnlen = LenB(StrConv(fname, vbFromUnicode))\u2019\u2502
\r\n\u3000\u3000tmpb = StrConv(fname, vbFromUnicode)\u3000\u3000\u3000\u3000\u2019\u2502UniCode\u304b\u3089AnsiCode\u306b
\r\n\u3000\u3000For i = 1 To fnlen \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u2502\u5909\u63db\u3057Byte\u578b\u306e\u5909\u6570\u306b
\r\n\u3000\u3000\u3000\u3000\u3000kb_datb.keybuff(i) = tmpb(i – 1)\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u2502 \u4ee3\u5165\u3059\u308b
\r\n\u3000\u3000Next i\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u2518
\r\n\u3000\u3000kb_datb.keybuff(fnlen + 1) = 0 \u3000\u3000\u3000\u3000\u3000\u3000\u2019\u7d42\u7aef\u306b\uff2e\uff35\uff2c\uff2c\u30bf\u30fc\u30df\u30cd\u30fc\u30bf\u3092\u4ed8\u52a0\u3059\u308b
\r\n\u2019*********** Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\u30aa\u30fc\u30d7\u30f3
\r\n\u3000\u3000buflen = 0
\r\n\u3000\u3000stat% = BTRCALL(BOPEN, posblock, dmy(1), buflen, kb_datb, KEY_BUF_LEN, 0)
\r\n\u3000\u3000If stat <> B_NO_ERROR Then
\r\n\u3000\u3000\u3000\u3000MsgBox “\u30d5\u30a1\u30a4\u30eb\u306eOpen\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 = ” + CStr(stat%)
\r\n\u3000\u3000Else
\r\n\u3000\u3000\u3000\u3000MsgBox “\u30d5\u30a1\u30a4\u30eb\u306eOpen\u306b\u6210\u529f\u3057\u307e\u3057\u305f\u3002”
\r\n\u3000\u3000End If
\r\n\u2019*********** Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\uff11\u30ec\u30b3\u30fc\u30c9\u76ee\u3092\u8aad\u307f\u8fbc\u3080
\r\n\u3000\u3000buflen = MachineRowSize
\r\n\u3000\u3000stat% = BTRCALL(BGETFIRST, posblock, rec_buff, buflen, kb_datb, KEY_BUF_LEN, 0)
\r\n\u3000If stat <> B_NO_ERROR Then
\r\n\u3000\u3000\u3000\u3000MsgBox “Get First\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 =” + CStr(stat%)
\r\n\u3000\u3000End If
\r\n\u2019*********** \u30c7\u30fc\u30bf\u306e\u8868\u793a
\r\n\u3000\u3000Call set_form
\r\n\u3000\u3000Form1.Show
\r\nEnd Sub
\r\n
\r\nSub set_form()
\r\n\u2019*********** \u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306b\u30bb\u30c3\u30c8\u3059\u308b
\r\n\u3000\u3000wrec_buff.maker = Chr$(rec_buff.maker)
\r\n\u3000\u3000Call CopyMemory(wrec_buff.m_id, rec_buff.m_id(1), 2)
\r\n\u3000\u3000Call CopyMemory(wrec_buff.m_no, rec_buff.m_no(1), 4)
\r\n\u3000\u3000wrec_buff.m_name = StrConv(rec_buff.m_name, vbUnicode)
\r\n\u3000\u3000Call CopyMemory(wrec_buff.teika, rec_buff.teika(1), 4)
\r\n\u3000\u3000Call CopyMemory(wrec_buff.nebiki, rec_buff.nebiki(1), 4)
\r\n\u2019*********** \u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u8868\u793a
\r\n\u3000\u3000Form1.Text1 = wrec_buff.maker
\r\n\u3000\u3000Form1.Text2 = CStr(wrec_buff.m_id)
\r\n\u3000\u3000Form1.Text3 = CStr(wrec_buff.m_no)
\r\n\u3000\u3000Form1.Text4 = wrec_buff.m_name
\r\n\u3000\u3000Form1.Text5 = CStr(wrec_buff.teika)
\r\n\u3000\u3000Form1.Text6 = CStr(wrec_buff.nebiki)
\r\nEnd Sub\r\n<\/p>\r\n \r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332B\uff1aBtrieve API\u306e\u30b5\u30f3\u30d7\u30eb :Zen Btrieve Alignment DLL
\r\n \u3000 \uff08PALN32.DLL\uff09\u3092\u4f7f\u7528 <\/h4>\r\n \r\n

\u4ee5\u4e0b\u306f\u3001\u30b5\u30f3\u30d7\u30eb \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30d6\u30bb\u30c3\u30c8\u3067\u3059\u3002\u3053\u3061\u3089<\/a>\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u53ef\u80fd\u3067\u3059\u3002(\u300cAppendixB.exe\u300d\u3092\u304a\u9078\u3073\u304f\u3060\u3055\u3044\uff09

\r\n\r\n\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u3001\u305d\u306e\u5f8c\u3001\u30d5\u30a1\u30a4\u30eb\u306b\u3042\u308b\u30c7\u30fc\u30bf\u3092 Visual Basic Form \u3067\u8868\u793a\u3057\u3001\u66f4\u65b0\u3092\u53ef\u80fd\u306b\u3057\u3066\u3044\u307e\u3059\u3002Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\r\n\r\n \r\n\r\n

\r\n\u2019\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3 \u30b3\u30fc\u30c9 \u306e\u5b9a\u7fa9
\r\nGlobal Const BOPEN = 0
\r\nGlobal Const BCLOSE = 1
\r\nGlobal Const BINSERT = 2
\r\nGlobal Const BUPDATE = 3
\r\nGlobal Const BDELETE = 4
\r\nGlobal Const BGETEQUAL = 5
\r\nGlobal Const BGETNEXT = 6
\r\nGlobal Const BGETPREVIOUS = 7
\r\nGlobal Const BGETGREATEROREQUAL = 9
\r\nGlobal Const BGETFIRST = 12
\r\nGlobal Const BGETLAST = 13
\r\nGlobal Const BCREATE = 14
\r\nGlobal Const BSTAT = 15
\r\nGlobal Const BBEGINTRANS = 19
\r\nGlobal Const BTRANSSEND = 20
\r\nGlobal Const BABORTTRANS = 21
\r\nGlobal Const BGETPOSITION = 22
\r\nGlobal Const BGETRECORD = 23
\r\nGlobal Const BSTOP = 25
\r\nGlobal Const BVERSION = 26
\r\nGlobal Const BRESET = 28
\r\nGlobal Const BGETNEXTEXTENDED = 36
\r\nGlobal Const BGETKEY = 50
\r\n\u2019\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 \u306e\u5b9a\u7fa9
\r\nGlobal Const B_NO_ERROR = 0
\r\nGlobal Const B_END_OF_FILE = 9

\r\n\r\nGlobal Const KEY_BUF_LEN = 255\u3000\u3000\u3000\u3000 \u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u9577(\u30d0\u30a4\u30c8)
\r\n\u2019\u30ad\u30fc\u306e\u6700\u5927\u9577\u306f 255 \u306a\u306e\u3067\u3001\u5e38\u306b 255 \u30d0\u30a4\u30c8\u306e\u30ad\u30fc \u30d0\u30c3\u30d5\u30a1\u306b\u3059\u308b\u3053\u3068\u3092\u304a\u52e7\u3081\u3057\u307e\u3059\u3002

\r\n\r\nGlobal Const POS_BLOCK_LEN = 128 \u3000\u3000\u2019\u30dd\u30b8\u30b7\u30e7\u30f3 \u30d6\u30ed\u30c3\u30af \u30d1\u30e9\u30e1\u30fc\u30bf\u9577(\u30d0\u30a4\u30c8)

\r\n\r\nType posblk \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u69cb\u9020\u306e\u5b9a\u7fa9
\r\n\u3000\u3000\u3000\u3000pbelements(0 To POS_BLOCK_LEN – 1) As Byte
\r\nEnd Type
\r\n\u2019Btrieve\u30a8\u30f3\u30c8\u30ea\u30dd\u30a4\u30f3\u30c8\u306e\u5b9a\u7fa9
\r\nDeclare Function BTRCALL Lib “w3btrv7.dll” (ByVal OP As Integer, PB As Any, _
\r\n\u3000\u3000\u3000Db As Any, DL As Integer, Kb As Any, ByVal Kl As Integer, _
\r\n\u3000\u3000\u3000ByVal Kn As Integer) As Integer

\r\n\r\nPublic Type KeyBufferString
\r\n\u3000\u3000\u3000FilePath As String * KEY_BUF_LEN\u3000\u3000\u3000 \u2019\u4f5c\u696d\u7528\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u306e\u69cb\u9020\u5b9a\u7fa9
\r\nEnd Type

\r\n\r\nGlobal OpenFileKeyBuffer As KeyBufferString\u3000 \u2019\u4f5c\u696d\u7528\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9

\r\n\r\nGlobal Const MachineRowSize = 45\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30ec\u30b3\u30fc\u30c9\u9577

\r\n\r\nType rec_tmp \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30ec\u30b3\u30fc\u30c9\u306e\u69cb\u9020\u5b9a\u7fa9
\r\n\u3000\u3000\u3000buf(1 To MachineRowSize) As Byte
\r\nEnd Type
\r\nGlobal rec_buff As rec_tmp\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9
\r\nType wrec_tmp \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u306e\u69cb\u9020\u5b9a\u7fa9
\r\n\u3000\u3000\u3000maker As String * 1
\r\n\u3000\u3000\u3000m_id As Integer
\r\n\u3000\u3000\u3000m_no As Long
\r\n\u3000\u3000\u3000m_name As String * 30
\r\n\u3000\u3000\u3000teika As Long
\r\n\u3000\u3000\u3000nebiki As Single
\r\nEnd Type
\r\nGlobal wrec_buff As wrec_tmp \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9
\r\nGlobal posblock As posblk \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30dd\u30b8\u30b7\u30e7\u30f3\u30d6\u30ed\u30c3\u30af\u306e\u5b9a\u7fa9
\r\nGlobal buflen As Integer\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30d0\u30c3\u30d5\u30a1\u30ec\u30f3\u30af\u30b9
\r\nType kb_tmpb\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u69cb\u9020\u306e\u5b9a\u7fa9
\r\n\u3000\u3000\u3000keybuff(1 To KEY_BUF_LEN) As Byte
\r\nEnd Type
\r\nGlobal kb_datb As kb_tmpb\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u2019\u30ad\u30fc\u30d0\u30c3\u30d5\u30a1\u306e\u5b9a\u7fa9

\r\n\r\nGlobal dmy(1 To 10) As Byte \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30c0\u30df\u30fc\u30c7\u30fc\u30bf\u30d0\u30c3\u30d5\u30a1

\r\n\r\nGlobal OpenFileKeyBufferFldMap (0 To 0) As FieldMap
\r\nGlobal MachineFldMap(0 To 5) As FieldMap

\r\n\r\nSub main() \u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2019\u30e1\u30a4\u30f3\u51e6\u7406\uff08Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\uff2f\uff30\uff25\uff2e\uff09
\r\n\u3000\u3000Dim m_no As Long
\r\n\u3000\u3000Dim fname As String
\r\n\u3000\u3000Dim fnlen As Integer
\r\n\u3000\u3000Dim stat As Integer

\r\n\r\n\u3000\u3000InitFieldMaps

\r\n\r\n\u3000\u3000OpenFileKeyBuffer.FilePath = App.Path & “\u00a5machine.btr”
\r\n\u3000\u3000StructToRow kb_datb.keybuff, OpenFileKeyBufferFldMap, OpenFileKeyBuffer, _
\r\nLenB(OpenFileKeyBuffer)
\r\n\u2019*********** Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\u30aa\u30fc\u30d7\u30f3
\r\n\u3000\u3000buflen = 0
\r\n\u3000\u3000stat = BTRCALL(BOPEN, posblock, dmy(1), buflen, kb_datb, KEY_BUF_LEN, 0)
\r\n\u3000\u3000If stat <> 0 Then
\r\n\u3000\u3000\u3000\u3000MsgBox “\u30d5\u30a1\u30a4\u30eb\u306eOpen\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 = ” + CStr(stat%)
\r\n\u3000\u3000Else
\r\n\u3000\u3000\u3000\u3000MsgBox “\u30d5\u30a1\u30a4\u30eb\u306eOpen\u306b\u6210\u529f\u3057\u307e\u3057\u305f\u3002”
\r\n\u3000\u3000End If
\r\n\u2019*********** Btrieve\u30d5\u30a1\u30a4\u30eb\u306e\uff11\u30ec\u30b3\u30fc\u30c9\u76ee\u3092\u8aad\u307f\u8fbc\u3080
\r\n\u3000\u3000buflen = MachineRowSize
\r\n\u3000\u3000stat = BTRCALL(BGETFIRST, posblock, rec_buff, buflen, kb_datb, KEY_BUF_LEN, 0)
\r\n\u3000\u3000If stat <> B_NO_ERROR Then
\r\n\u3000\u3000\u3000\u3000MsgBox “Get First\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\u30b9\u30c6\u30fc\u30bf\u30b9 \u30b3\u30fc\u30c9 =” + CStr(stat%)
\r\n\u3000\u3000End If
\r\n\u2019*********** \u30c7\u30fc\u30bf\u306e\u8868\u793a
\r\n\u3000\u3000Call set_form
\r\n\u3000\u3000Form1.Show
\r\nEnd Sub

\r\n\r\nSub set_form()
\r\n\u2019*********** \u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u4f5c\u696d\u7528\u30ec\u30b3\u30fc\u30c9\u30d0\u30c3\u30d5\u30a1\u306b\u30bb\u30c3\u30c8\u3059\u308b
\r\n\u3000\u3000RowToStruct rec_buff.buf, MachineFldMap, wrec_buff, LenB(wrec_buff)
\r\n\u2019*********** \u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u8868\u793a
\r\n\u3000\u3000Form1.Text1 = wrec_buff.maker
\r\n\u3000\u3000Form1.Text2 = CStr(wrec_buff.m_id)
\r\n\u3000\u3000Form1.Text3 = CStr(wrec_buff.m_no)
\r\n\u3000\u3000Form1.Text4 = wrec_buff.m_name
\r\n\u3000\u3000Form1.Text5 = CStr(wrec_buff.teika)
\r\n\u3000\u3000Form1.Text6 = CStr(wrec_buff.nebiki)
\r\nEnd Sub

\r\n\r\nSub InitFieldMaps()
\r\n\u2019FieldMaps\u306e\u521d\u671f\u8a2d\u5b9a

\r\n\r\n\u3000\u3000SetField OpenFileKeyBufferFldMap(0), FLD_STRING, KEY_BUF_LEN

\r\n\r\n\u3000\u3000\u2019DDF \u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408

\r\n\r\n\u3000\u3000\u2019SetField MachineFldMap(0), FLD_STRING, 1\u3000\u3000\u3000\u3000 \u2019\u30e1\u30fc\u30ab\uff29\uff24
\r\n\u3000\u3000\u2019SetField MachineFldMap(1), FLD_INTEGER, 2 \u3000\u3000\u3000\u2019\u30de\u30b7\u30f3\uff29\uff24
\r\n\u3000\u3000\u2019SetField MachineFldMap(2), FLD_INTEGER, 4 \u3000\u3000\u3000\u2019\u30de\u30b7\u30f3No.
\r\n\u3000\u3000\u2019SetField MachineFldMap(3), FLD_STRING, 30 \u3000\u3000\u3000\u2019\u30de\u30b7\u30f3\u540d
\r\n\u3000\u3000\u2019SetField MachineFldMap(4), FLD_INTEGER, 4 \u3000\u3000\u3000\u2019\u5b9a\u4fa1
\r\n\u3000\u3000\u2019SetField MachineFldMap(5), FLD_IEEE, 4 \u3000\u3000\u3000\u3000\u3000\u3000\u2019\u5272\u5f15\u7387

\r\n\r\n\u3000\u3000’DDF \u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u5834\u5408:

\r\n\r\n\u3000\u3000SetFieldMapFromDDF App.Path, “\u30de\u30b7\u30f3”, “”, “”, _
\r\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000MachineFldMap, False

\r\n\r\nEnd Sub<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332C\uff1aActiveX\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001Pervasive.SQL 2000i SP3\u3001Visual Basic v6.0 SP5\u3001ActiveX \u30b3\u30f3\u30c8\u30ed\u30fc\u30ebv7.82.198.007\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001DEMODATA\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u958b\u304d\u3001Room\u30c6\u30fc\u30d6\u30eb\u306e\u6700\u521d\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\uff08Building_Name\uff09\u3092\u8aad\u307f\u51fa\u3057\u3066\u3001\u30c7\u30d0\u30c3\u30b0 \u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u8868\u793a\u3057\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068ActiveX\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eActiveX Controls Guide<\/a>\u300f\u30de\u30cb\u30e5\u30a2\u30eb\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\r\n

Dim Status As Integer
\r\nWith VAccess1
\r\n\u3000\u3000\u3000.DdfPath = “c:\u00a5pvsw\u00a5demodata”
\r\n\u3000\u3000\u3000.TableName = “Room”
\r\n\u3000\u3000\u3000.Refresh
\r\n\u3000\u3000\u3000Status = .GetFirst
\r\n\u3000\u3000\u3000If Status = 0 Then
\r\n\u3000\u3000\u3000\u3000Do
\r\n\u3000\u3000\u3000\u3000\u3000Debug.Print .FieldValue(0)
\r\n\u3000\u3000\u3000\u3000\u3000Status = .GetNext
\r\n\u3000\u3000\u3000\u3000\u3000If Status = 9 Then
\r\n\u3000\u3000\u3000\u3000\u3000\u3000Exit Do
\r\n\u3000\u3000\u3000\u3000\u3000End If
\r\n\u3000\u3000\u3000\u3000Loop Until Status <> 0
\r\n\u3000\u3000\u3000End If
\r\nEnd With<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332D\uff1aDAO\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001Pervasive.SQL 2000i SP3\u3068Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\uff08\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u3067\u306fDEMODATA\uff09\u306b\u63a5\u7d9a\u3059\u308b\u65b9\u6cd5\u3092\u793a\u3057\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u306e\u5024\uff08Room\u30c6\u30fc\u30d6\u30eb\u306eBuilding_Name\uff09\u3092\u51fa\u529b\u3057\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\nPervasive.SQL 2000i SDK\u306e\u4e00\u90e8\u3068\u3057\u3066DemoData\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u304c\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\r\n

\u3000\u3000Dim wrkodbc As Workspace
\r\n\u3000\u3000Dim dbsNorthwind As Database
\r\n\u3000\u3000Dim dbsDemodata As Database
\r\n\u3000\u3000Dim dbsLoop As Database
\r\n\u3000\u3000Dim rsClass As Recordset
\r\n\u3000\u3000Dim prpLoop As Property

\r\n\r\n\u3000\u3000Set wrkodbc = CreateWorkspace(“”, “”, “”, dbUseODBC)
\r\n\u3000\u3000Set dbsDemodata = wrkodbc.OpenDatabase_
\r\n\u3000\u3000\u3000\u3000(“ODBC;DSN=DEMODATA”,dbDriverNoPrompt, True ,_
\r\n\u3000\u3000\u3000\u3000 “ODBC;DSN=DEMODATA”)
\r\n\u3000\u3000Set rsClass = dbsDemodata.OpenRecordset_
\r\n\u3000\u3000\u3000\u3000 (“select * from room”,dbOpenForwardOnly)
\r\n\u3000\u3000If rsClass.EOF = True And rsClass.BOF = True Then
\r\n\u3000\u3000\u3000\u3000\u2019No records.
\r\n\u3000\u3000\u3000\u3000Debug.Print “No Records”
\r\n\u3000\u3000Else
\r\n\u3000\u3000\u3000\u3000Debug.Print rsClass(0).Name
\r\n\u3000\u3000\u3000\u3000Do
\r\n\u3000\u3000\u3000\u3000\u3000Debug.Print rsClass(0).Value
\r\n\u3000\u3000\u3000\u3000\u3000rsClass.MoveNext
\r\n\u3000\u3000\u3000\u3000Loop Until rsClass.EOF
\r\n\u3000\u3000End If
\r\n\u3000\u3000rsClass.Close
\r\n\u3000\u3000dbsDemodata.Close
\r\n\u3000\u3000wrkodbc.Close<\/p>\r\n\r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332E\uff1aRDO\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u4ed8\u9332D\u3068\u540c\u3058\u30c7\u30fc\u30bf\u3092\u51fa\u529b\u3057\u307e\u3059\u304c\u3001DAO\u306e\u4ee3\u308f\u308a\u306bRDO\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u3002

\r\n\r\nPervasive.SQL 2000i SP3\u3068Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002

\r\n\r\nDim er As rdoError
\r\nDim cn As New rdoConnection
\r\nDim qy As New rdoQuery
\r\nDim rs As rdoResultset
\r\nDim col As rdoColumn
\r\nDim SQL As String
\r\ncn.CursorDriver = rdUseOdbc
\r\ncn.Connect = “DSN=DEMODATA;”
\r\ncn.EstablishConnection
\r\nWith qy
\r\n\u3000\u3000.Name = “Room”
\r\n\u3000\u3000.SQL = “Select * from Room”
\r\n\u3000\u3000Set .ActiveConnection = cn
\r\nEnd With
\r\nSQL = “Select * from ROOM”
\r\ncn.Execute SQL
\r\nSet rs = qy.OpenResultset(rdOpenForwardOnly)
\r\nDo
\r\n\u3000\u3000Debug.Print rs!Building_Name
\r\n\u3000\u3000rs.MoveNext
\r\nLoop Until rs.EOF<\/p>\r\n
\r\n \r\n \r\n \r\n <\/a>\r\n

\u4ed8\u9332F\uff1aODBC\u3092\u4f7f\u7528\u3059\u308bADO\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u4ed8\u9332D\u3068\u540c\u3058\u30c7\u30fc\u30bf\u3092\u51fa\u529b\u3057\u307e\u3059\u304c\u3001ADO\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u3002Pervasive.SQL 2000i SP3\u3068Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002\r\n<\/p>\r\n

Dim con As New ADODB.Connection
\r\nDim rstH As New ADODB.Recordset
\r\nDim sConStr As String
\r\ncon.Open “PROVIDER=MSDASQL;DSN=DEMODATA”
\r\n\u3000\u3000If con.State <> adStateOpen Then
\r\n\u3000\u3000\u3000Set con = Nothing
\r\n\u3000\u3000\u3000Set rstH = Nothing
\r\n\u3000\u3000\u3000MsgBox “could not connect”
\r\n\u3000\u3000\u3000End
\r\n\u3000\u3000End If
\r\nrstH.Open “select * from room”, con, , , adCmdText
\r\nrstH.MoveFirst
\r\nDo
\r\n\u3000\u3000Debug.Print rstH!Building_Name
\r\n\u3000\u3000rstH.MoveNext
\r\nLoop Until rstH.EOF
\r\nrstH.Close
\r\ncon.Close
\r\nSet rstH = Nothing
\r\nSet con = Nothing
\r\nMsgBox “Done”<\/p>\r\n\r\n  \r\n \r\n <\/a>\r\n

\u4ed8\u9332G\uff1aOLE DB\u3092\u4f7f\u7528\u3059\u308bADO\u306e\u30b5\u30f3\u30d7\u30eb<\/h4>\r\n \r\n

\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001\u4ed8\u9332F\u3068\u540c\u3058\u30c7\u30fc\u30bf\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u304c\u3001ADO\u7d4c\u7531\u306e\u63a5\u7d9a\u306bODBC\u3067\u306f\u306a\u304fOLE DB\u3092\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002Pervasive.SQL 2000i SP3\u3068Visual Basic v6.0 SP5\u306b\u3088\u3063\u3066\u30c6\u30b9\u30c8\u304c\u884c\u308f\u308c\u3066\u3044\u307e\u3059\u3002

\r\n\r\n\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u5f8c\u3001SQL\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u3063\u3066\u30c7\u30fc\u30bf\u3092\u53d6\u308a\u51fa\u3059\u65b9\u6cd5\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306f\u3001Pervasive.SQL \r\n2000i SP3 OLE DB\u30d7\u30ed\u30d0\u30a4\u30c0\u3092\u4f7f\u7528\u3059\u308b\u3068\u304d\u306b\u306e\u307f\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u3001\u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u306f\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u307e\u305b\u3093\u3002\u8ffd\u52a0\u306e\u30b5\u30f3\u30d7\u30eb\u3068Btrieve\u30aa\u30da\u30ec\u30fc\u30b7\u30e7\u30f3\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306b\u3064\u3044\u3066\u306f\u3001\u300eBtrieve API Guide<\/a>\u300f\u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002 \r\n<\/p>\r\n

Dim con As New ADODB.Connection
\r\nDim rstH As New ADODB.Recordset
\r\nDim sConStr As String
\r\ncon.Open “Provider=PervasiveOLEDB;Data Source=demodata”
\r\n\u3000\u3000If con.State <> adStateOpen Then
\r\n\u3000\u3000\u3000Set con = Nothing
\r\n\u3000\u3000\u3000Set rstH = Nothing
\r\n\u3000\u3000\u3000MsgBox “could not connect”
\r\n\u3000\u3000\u3000End
\r\n\u3000\u3000End If
\r\nrstH.Open “select * from room”, con, , , adCmdText
\r\nrstH.MoveFirst
\r\nDo
\r\n\u3000\u3000Debug.Print rstH!Building_Name
\r\n\u3000\u3000rstH.MoveNext
\r\nLoop Until rstH.EOF
\r\nrstH.Close
\r\ncon.Close
\r\nSet rstH = Nothing
\r\nSet con = Nothing
\r\nMsgBox “Done”

\r\n\r\n\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u3001SQL\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u306f\u306a\u304f\u30c6\u30fc\u30d6\u30eb\u540d\u3092\u4f7f\u3063\u3066\u3001\u63a5\u7d9a\u5f8c\u306b\u30c7\u30fc\u30bf\u3092\u53d6\u308a\u51fa\u3059\u65b9\u6cd5\u3092 \u793a\u3057\u3066\u3044\u307e\u3059\u3002

\r\n\r\nDim con As New ADODB.Connection
\r\nDim rstH As New ADODB.Recordset
\r\nDim sConStr As String
\r\ncon.Open “Provider=PervasiveOLEDB;Data Source=demodata”
\r\n\u3000\u3000If con.State <> adStateOpen Then
\r\n\u3000\u3000\u3000Set con = Nothing
\r\n\u3000\u3000\u3000Set rstH = Nothing
\r\n\u3000\u3000\u3000MsgBox “could not connect”
\r\n\u3000\u3000\u3000End
\r\n\u3000\u3000End If
\r\nrstH.Open “room”, con, , , adCmdTable
\r\nrstH.MoveFirst
\r\nDo
\r\n\u3000\u3000Debug.Print rstH!Building_Name
\r\n\u3000\u3000rstH.MoveNext
\r\nLoop Until rstH.EOF
\r\nrstH.Close
\r\ncon.Close
\r\nSet rstH = Nothing
\r\nSet con = Nothing
\r\nMsgBox “Done”

\r\n\r\nExit Sub<\/p>\r\n\r\n <\/div>\r\n\r\n <\/div>","protected":false},"excerpt":{"rendered":"Microsoft Visual Basic 6 \u3068Pervasive.SQL 2000i \u3092\u4f7f\u3063\u305f\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u958b\u767a \u203b Pervasive.SQL 2000i \u4f5c\u6210\u8cc7\u6599\u3067\u3059\u304c\u3001Actian Zen \u306e\u4e0b\u4f4d\u4e92\u63db\u6027\u306b […]","protected":false},"author":1,"featured_media":0,"parent":497,"menu_order":136,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/2172"}],"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=2172"}],"version-history":[{"count":10,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/2172\/revisions"}],"predecessor-version":[{"id":5553,"href":"https:\/\/www.agtech.co.jp\/actian\/wp-json\/wp\/v2\/pages\/2172\/revisions\/5553"}],"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=2172"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}