Dim resultset_obj As rdoResultset 'キーセットタイプでレコードを取得 Set resultset_obj = rdoConnection_obj.OpenResultset("Select * From table1;", rdOpenKeyset, rdConcurLock)
'セットの先頭に移動 resultset_obj.MoveFirst Do Until resultset_obj.EOF 'EOFまでループ 'セットの内容を表示 Debug.Print resultset_obj![field1], resultset_obj![field2] resultset_obj.MoveNext '次の行に移動 Loop resultset_obj.Close 0153名前は誰も知らない2020/05/14(木) 20:56:30.97ID:y8SMZ/GD Tray% = DMBIN_AUTO '自動 '用紙方向と用紙サイズとトレイをプリンタドライバに一時的に設定する Ret& = CoSetPrinterDriver(DM_ORIENTATION Or DM_PAPERSIZE Or DM_DEFAULTSOURCE Or DM_TEMPORARY, orient, papersize, 0, 0, 0, 0, Tray, 0, 0, 0, 0, 0, WorkBuffer(0)) Ret& = CoInit(hWnd&, hdc&, OutputDevice&, PrintScale&, MarginX&, MarginY&, WinLeft&, WinTop&, WinWidth&, WinHeight&, fname$, "", WorkBuffer(0)) 0154名前は誰も知らない2020/05/14(木) 21:38:56.36ID:y8SMZ/GDhttps://www.youtube.com/watch?v=BsU7Zm6zEUI //good!!// 0155名前は誰も知らない2020/05/16(土) 02:23:40.95ID:JoUOVmi2 workbook.defined_names.each do |defined_name| #印刷範囲の設定 if defined_name.name == "_xlnm.Print_Area" #defined_name.reference = '\ + ☆彡 + \'!$A$1:$R$10' if defined_name.reference.start_with?('sheet1') #defined_name.reference = "\ + #{str} + \ !$A$1:$R$#{print_max_row}" if defined_name.reference.start_with?('出荷指示書(業務)') defined_name.reference = '\'' + str + '\'!$A$1:$R' + print_max_row.to_s if defined_name.reference.start_with?('\'' + str + '\'') end # #印刷タイトル行の設定 if defined_name.name == "_xlnm.Print_Titles" defined_name.reference = '\'' + str + '\'!$1:$4' if defined_name.reference.start_with?('\'' + str + '\'') end end 0156名前は誰も知らない2020/05/16(土) 02:30:11.14ID:JoUOVmi2 workbook.defined_names.each do |defined_name| #印刷範囲の設定 if defined_name.name == "_xlnm.Print_Area" defined_name.reference = '/'' + str + '/'!$A$1:$R' + print_max_row.to_s if defined_name.reference.start_with?('/'' + str + '/'') end # #印刷タイトル行の設定 if defined_name.name == "_xlnm.Print_Titles" defined_name.reference = '/'' + str + '/'!$1:$4' if defined_name.reference.start_with?('/'' + str + '/'') end end 0157名前は誰も知らない2020/05/20(水) 13:22:15.72ID:kfvuPXWz Rust難しい 0158名前は誰も知らない2020/05/20(水) 14:41:26.73ID:95H12Z6W コロナ給付金のオンライン申請のシステムがトラブル続きらしいが。 僕がおぼえたてのJavascriptで書いてあげようか? 0159名前は誰も知らない2020/05/24(日) 01:23:31.64ID:3EVmj3Kp xamppでローカル環境構築 ■xamppとは webアプリケーション開発のためのテスト環境を整えるために必要な アプリケーション一式をパッケージにしたものです。 https://www.sejuku.net/blog/967300160名前は誰も知らない2020/05/24(日) 01:37:07.78ID:3EVmj3Kp JSでエクセルを扱う ( SheetJS js-xlsx が凄い ) http://bashalog.c-brains.jp/20/01/20-134258.php0161名前は誰も知らない2020/05/24(日) 02:57:15.09ID:3EVmj3Kp データベースに接続!PHPでPDOを使う方法 https://techacademy.jp/magazine/18790