| 種別 | kintone |
|---|---|
| 説明 | kintoneからクエリデータを取得する |
| 構文 | KintoneQuery(Domain, AppNo, Query[, Login][, Pass]) |
| 引数 | Domain：kintoneのドメイン名 （https://penconnect.cybozu.com/k/155/なら、penconnect） AppNo ：kintoneのアプリ番号 （https://penconnect.cybozu.com/k/155/なら、155） Query ：レコードを特定するためのクエリ文字列。 kintone API のクエリの書き方の基本は、以下のURLを参照。 https://developer.cybozu.io/hc/ja/articles/900001057206 特殊文字として"アプリ名"を指定するとアプリ名が取得できる。 特殊文字として"ログイン名"を指定すると、 ログイン名とパスワードの正否を返す。（1なら異常、0なら正常） Login：kintoneのログイン名。 Pass ：kintoneのパスワード。 |
| 戻り値 | 取得したレコード数 |
| 使用例 | Dim s,Query,no,AppNo,ss,cnt Dim max,i,p,l ' kintone API のクエリの書き方の基本は、下記のURLを参照の事。 'https://developer.cybozu.io/hc/ja/articles/900001057206 'Query = "企業コード = ""1500""" 'Query = "社員名 like ""山本""" Query = "区分 in (""" & 区分 & """)" AppNo = 385 'kintoneからクエリデータを取得する cnt = KintoneQuery("penconnect", AppNo, Query) if cnt = 0 then MsgBox("該当するレコードはありません") Exit Action endif if cnt > 6 then cnt = 6 '最大数を6に制限 for i=1 to cnt 商品名[i] = KintoneData("商品名", i) 商品画像[i] = KintoneData("商品画像", i) キャッチコピー[i] = KintoneData("キャッチコピー", i) 規格[i] = KintoneData("規格", i) 入数[i] = KintoneData("入数", i) 納価[i] = KintoneData("納価", i) 賞味期限[i] = KintoneData("賞味期限", i) JANコード[i] = KintoneData("JANコード", i) next i 'kintoneからアプリ名を取得する AppName = KintoneQuery("penconnect", AppNo, "アプリ名") Dim sLoginID,sPass,p sLoginID = InputBox("ログイン名") sPass = InputBox("パスワード", "*") 'ログイン名とログインパスを指定して、kintoneからクエリデータを取得 cnt = KintoneQuery("penconnect", AppNo, Query, sLoginID, sPass) Label RETRY sLoginID = InputBox("ログイン名") sPass = InputBox("パスワード", "*") p = KintoneQuery("penconnect", 155, "ログイン名", sLoginID, sPass) if p = 1 then MsgBox("ログイン名、またはパスワードが間違っています。") GoTo RETRY 'ログイン名とパスワードの再入力 endif |
| 実例 | |
| 備考 | 関連する関数（GetKintoneRecodeNo、KintoneQuery、 KintoneData、KintoneUpload、KintoneSet、KintoneUpdate） ver6.3より使用可能 |