投稿日	： 2005/04/13(Wed) 21:19
投稿者	： やくも
Ｅメール	：
ＵＲＬ	：
タイトル	： フォーム間でのデータの受け渡し

VB6とORACLE9iで、oo4oを使ってデータの取り出しを行っています。
今、FORM_A、FORM_B、という２つのフォームがあり、FORM_Aで取得
したSQLの結果をFORM_Bに渡して、FORM_Bで展開したいのですが。
又、FORM A,BのObjectやString、Integerの値を受け渡しする文法
を具体的に知りたいのですが。


Private Sub Command1_Click()
Dim objSess         As Object
Dim objDb           As Object
Dim objDs           As Object
Dim objCol          As Object
Dim str_SQL         As String

    Set objSess = CreateObject("OracleInProcServer.XOraSession")
    Set objDb = objSess.OpenDatabase(strDBName, strUser & "/" & strPass,
0&)
    
    str_SQL = ""
    str_SQL = "・・・・・・・・・・・・・"

    Set objDs = objDb.DbCreateDynaset(str_SQL, 12&)
    Set objCol = objDs.Fields
    If objDs.EOF Then
        Call MsgBox("データが存在しません。")
        Exit Sub
    End If

    FORM_B.Show 1 （ここで、objDsを受け渡したい）
    Show

End Sub

★ - フォーム間でのデータの受け渡し - やくも 04/13-21:19No.2839
• Re: フォーム間でのデータの受け渡し - ガッ 04/13-21:33 No.2840
  • Re^2: フォーム間でのデータの受け渡し - やくも 04/13-23:44 No.2842
    • Re^3: フォーム間でのデータの受け渡し - 花ちゃん 04/14-00:03 No.2843
      • Re^4: フォーム間でのデータの受け渡し - やくも 04/14-01:12 No.2844
        • Re^5: フォーム間でのデータの受け渡し - るしぇ 04/14-07:57 No.2845
          • Re^6: フォーム間でのデータの受け渡し - やくも 04/14-23:36 No.2869