<%
'
'
%>
<%
main()
Sub main()
%>
クエリテスト
<% Response.Write("" & vbCrLf) %>
<%
dim Query
dim i,ct,s,tdal
dim BunsyoSyuruiCD
dim TegataJyotaiKubun
dim AutoFlg
dim Target
dim KaikeiKaishibi
dim KaikeiSyuryobi
dim GyoshuKubun
dim SaimokuKubun
'↓↓↓クエリに必要な引数の変数を入力
GB_SystemCD = "SFC"
EnshuCD = "wada"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "wada"
Target = "061024hh"
GakuseiNo="HARUMI"
KaisyaCD="K001-HARUMI"
BunsyoSyuruiCD="TK"
AutoFlg = "0"
GB_SystemCD = "SFC"
EnshuCD = "SYS00002"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "SJ4ADMIN"
Target = "061024hh"
EnshuCD="collabo"
GakuseiNo="ONO"
KaisyaCD="HOSAKA"
BunsyoSyuruiCD="TY"
AutoFlg = "0"
GB_GyosyuKubun = "S"
GyoshuKubun = "S"
SaimokuKubun = "%"
KaikeiKaishibi = "2006/4/1" '会計開始日
KaikeiSyuryobi = "2007/3/31" '会計終了日
TegataJyotaiKubun="TU"
EnshuCD="061109hhD"
'↑↑↑クエリに必要な引数の変数を入力
'↓↓↓呼び出したいクエリを貼り付ける
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 作成会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 振出人CD= '"& KaisyaCD &"' "
'Query = "exec SPK手形取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & TegataJyotaiKubun & "', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "exec SPM会社一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '1'"
'Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
'Query = "SELECT * FROM TDA勘定科目M WHERE 演習CD = '" & EnshuCD & "'"
'Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
'Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
'Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
'Query = "SELECT 演習CD FROM TC2演習M" '演習一覧配列作成
'Query = "SELECT 会社CD FROM TDA会社M WHERE 演習CD = '061024hh'" '演習単位の会社一覧配列作成
'Query = "SELECT 業種CD FROM TDA会社M WHERE 演習CD = '061024hh' AND 会社CD = 'HOSAKA'"
'Query = "SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD='" & GB_SystemCD & "' AND 演習CD='" & EnshuCD & "' AND 業種CD='" & GB_GyosyuKubun & "'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会_伝票貸方 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "','0604003'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
'Query = "SELECT * FROM COLLABOLIST WHERE 電話帳名='" & ChrW(&h69) & "'"
'Query = "UPDATE COLLABOLIST SET 電話帳名 = '" & ChrW(&hFF) & "' WHERE 方式 = '1' AND APP種類 = '1' AND 学校コード = '0123' AND 演習コース = '23237j-001' AND 生徒ID = 'ONO2'"
'Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'"
Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '0'"
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & GB_KaisyaCD & "','" & GB_KaikeiKaishibi & "','" & GB_KaikeiSyuryobi & "'"
Query = "exec SPK帳簿_株主資本等変動計算書取得 'SFC', '00', 'ONO'"
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', '%', 'K001-ONO', 'S'"
Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', 'S'" '自社が乙の寄託契約書一覧
Query = "exec SPD入出庫一覧 'SFC','0', 'K005-ONO', '', 'SU'"
Query = "exec SPR入出庫在庫明細 'SFC','061109hhD', 'K001-HOSAKA','S001','2007/3/31'"
Query = "exec SPR入出庫在庫明細 'SFC','sj4t', 'WAX','S001','2008/3/31'"
'Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','061109hhD', 'K001-ONO','2007/3/31'"
'Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','0', 'K002-ONO '"
Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','0000','1', '" & GB_GakuseiNo & "'"
Query = "exec SPK伝票_入金伝票取得 '" & GB_SystemCD & "','0000','K001', '0704001'"
Query = "exec SPK自動転記帳簿_総勘定元帳照会 '" & GB_SystemCD & "','sj4t', 'WAX','8111','','2007/4/1','2008/3/31'"
Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','061109hhD','H003-HOSAKA'"
Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','061109hhD'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TU', 'TG'"
Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','061109hhD','HOSAKA', 'K003-HOSAKA', ''"
Query = "exec SPM記帳チェック '" & GB_SystemCD & "','061109hhD','HOSAKA'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会 '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会FromTo '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1', '2006/4/13'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TX', ''"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA', '0604007'"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI', '0604010'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','HOSHI-TEST4','HOSHI'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','0','ONO'"
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','0', ''"
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','00','K001-ONO', '', 'SU', '1'"
Query = "SELECT * FROM BK_COMPANY"
'↑↑↑呼び出したいクエリを貼り付ける
Set Content = MySQLQuery(Query)
'Set Content = OpenQuery(Query)
'Set Content = OpenQuery3(Query) 'webcollabodb用
'↓↓↓クエリ結果をテーブル表示
%>
<% '見出し列の表示
For i = 0 To Content.Fields.Count - 1
Response.Write(" " & Content(i).Name & " " & vbCrLf)
Next
%>
<% '取得結果の表示
Dim TDAlign
Do While Not(Content.EOF Or Content.EOF)
Response.Write(" " & vbCrLf)
For i = 0 to Content.Fields.Count - 1
If Content(i).Type <> 131 And Content(i).Type <> 139 Then
TDAlign = ""
Else
TDAlign = " align=right"
End If
Response.Write(" " & Content(i) & "" & vbCrLf)
next
Response.Write(" " & vbCrLf)
Content.MoveNext
Loop
%>
<% = HtmlFooter %>
<%
End Sub
'MySQLクエリー発行関数
Function MySQLQuery(Query)
Dim MySQLConn
Dim db
Dim Content
MySQLConn = "Provider=MSDASQL;"
MySQLConn = MySQLConn & "DRIVER={MySQL ODBC 3.51 Driver};"
MySQLConn = MySQLConn & "SERVER=ono2000sv;"
MySQLConn = MySQLConn & "PORT=3306;"
MySQLConn = MySQLConn & "DATABASE=booking;"
MySQLConn = MySQLConn & "USER=root;"
MySQLConn = MySQLConn & "PASSWORD=WebTest;"
MySQLConn = MySQLConn & "OPTION=1"
Set db = Server.CreateObject("ADODB.Connection")
db.ConnectionTimeout = 60
db.CommandTimeout = 60
db.Open MySQLConn
Set Content = db.Execute(Query)
'クエリ結果待機処理（Contentに結果が返っていないか、もしくはNothing以外の結果が返っている間ループさせる）
' Nothingであれば正しく「フィールド無し」の結果が返っているのでループ内処理を行わなず次へ。
' Nothingでない場合は (1)正しくフィールド結果が返っている (2)まだ結果が返っていない の2パターンがあり得るので
' (1)であればその時点でループを抜け、(2)の場合は念のためNextRecordSet()を発行してからループ先頭に戻る。
Do While Not Content Is Nothing
If Content.Fields.Count > 0 Then
Exit Do
End If
Set Content = Content.NextRecordSet()
Loop
Set MySQLQuery = Content
End Function
%>