投稿日	： 2005/10/04(Tue) 17:26
投稿者	： まさ
ＵＲＬ	：
タイトル	： Re^8: レコードの取得・表示

PCの調子が悪くなって、書き込みがおそくなってしまいました！
いなさん、つぼちゃんさん、適切なご教授と指摘ありがとうございます。
SQL文とデータ読込みは無事上手く行きました！
ただ、いろいろ調べたんですが、スプレッドシート（Spread3.0を使っているのですが・・・）への書き込みが
出来ないんです。。。
こんな感じで書いてみました。

AstrSQL = "select t_uriageh.denno, t_uriageh.kokyakucd, t_uriaged.gyono,t_uriaged.syohincd, 　
　　　　　　m_syohin.syohinname,"
AstrSQL = AstrSQL & " m_syohin.hantan, t_uriaged.suryo from t_uriageh, t_uriaged, m_syohin"
AstrSQL = AstrSQL & " where t_uriageh.denno = t_uriaged.denno and t_uriaged.syohincd = 　　　
　　　　　　m_syohin.syohincd"
AstrSQL = AstrSQL & " and t_uriageh.kokyakucd = " & CStr(code.Text)
    
Set OraDS = OraDB.CreateDynaset(AstrSQL, 0&)

    
    Do Until OraDS.EOF
    
       If OraDS.Fields(2) = 1 Then
            vaSpread1.SetText 1, 1, OraDS.Fields(2)
            vaSpread1.SetText 1, 2, OraDS.Fields(3)
            vaSpread1.SetText 1, 3, OraDS.Fields(4)
            vaSpread1.SetText 1, 4, OraDS.Fields(5)
            
            Else
            If OraDS.Fields(2) = 2 Then
                vaSpread1.SetText 1, 1, OraDS.Fields(2)
                vaSpread1.SetText 1, 2, OraDS.Fields(3)
                vaSpread1.SetText 1, 3, OraDS.Fields(4)
                vaSpread1.SetText 1, 4, OraDS.Fields(5)
             End If
        End If
    OraDS.MoveNext
    Loop

指摘、ご教授お願いします！

★ - レコードの取得・表示 - まさ 09/12-11:32No.4375
• Re: レコードの取得・表示 - いな 09/12-13:48 No.4384
  • Re^2: レコードの取得・表示 - まさ 09/12-14:30 No.4387
    • Re^3: レコードの取得・表示 - つぼちゃん 09/12-15:08 No.4389
      • Re^4: レコードの取得・表示 - まさ 09/13-14:47 No.4394
        • Re^5: レコードの取得・表示 - いな 09/13-16:42 No.4398
          • Re^6: レコードの取得・表示 - まさ 09/13-19:39 No.4402
          • Re^6: レコードの取得・表示 - まさ 09/13-19:40 No.4403
            • Re^7: レコードの取得・表示 - いな 09/13-19:53 No.4405
              • Re^8: レコードの取得・表示 - まさ 09/13-23:45 No.4407
                • Re^9: レコードの取得・表示 - いな 09/14-02:25 No.4408
            • Re^7: レコードの取得・表示 - つぼちゃん 09/14-14:23 No.4410
              • Re^8: レコードの取得・表示 - まさ 10/04-17:26 No.4571