- 締切済み
構造体からレコードセットへの代入
rivoisuの回答
- rivoisu
- ベストアンサー率36% (97/264)
＞With Product With Car ですね いろいろ考えてみたのですができないと思います。
関連するQ&A
- VBA 構造体の値参照
いつもお世話になっています。 Access VBAにて構造体を作成し、その値をループで渡したいのですが、ご存知の方おられましたら、お助けください。 (例) Private Type HD_REC ID as string * 2 Name as string * 10 Lev as string * 50 End Type Function SetData() Dim rs As RecordSet Set rs = CurrentDB.OpenRecordSet("XXXXXXXX") While Not rs.EOF rs.Fields(i) = 'ここに構造体のID,Name,Levを渡したいのです。 i=i+1 Wend End Function よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 構造体をコレクションに入れて扱いたいのですが…
当方、Windows2000(SP2) + VB6.0(SP5) の環境です。 今、私が困っている事なのですが、宣言した構造体に入れた値を、 構造体ごとコレクションに追加して扱いたいと言う所なのです。 しかし最初の「構造体をコレクションに追加する」と言う時点で躓いています。 もしかして、構造体ごとコレクションに登録すると言う事は出来ないのでしょうか？ 私が考えて書いたコードは以下のようになっております。 --- 標準モジュールにて構造体を宣言 --- Public gcolAddData As New Collection 'Collectionオブジェクト Public Type AddData '各データをレコードで獲得 varName As Variant varPostCd As Variant varAddress As Variant varTellNum As Variant End Type Public gAddData As AddData --- 以下が実際に走っているソースです --- '構造体に取得する With gAddData --- ここで構造体の各変数に値を入れています --- End With '構造体をコレクションに格納 gcolAddData.Add gAddData 普通にAddしてしまう方法なのですが、これでは駄目なのでしょうか。 方法があるのであれば教えて頂けると嬉しいです。 また、これは念の為の確認としてお聞きしたいのですが、 コレクションに追加した構造体を受け取りたい時は 以下のようにSet文で構わないですよね？ Dim tmpAddData As gcolAddData Set tmpAddData = gcolAddData.Item(0) 何分、まだこの段階まで進めていない状態ですので……（汗 どうぞよろしくお願いします。
- 締切済み
- Visual Basic
- Accessコンボボックスにレコードセット代入について質問です。
Accessコンボボックスにレコードセット代入について質問です。 コンボボックスにレコードセットの値と代入したいと考えています。 Set Me![コンボボックス名].Recordset = rs で代入できたのですが、連結列をどうしても代入できません。 | ID | MachineName | | 1 | MachineA | | 2 | MachineB | | 3 | MachineC | の様なレコードセットをコンボボックスに代入したいです。 保存列はIDフィールドです。 どなたかご存じの方がおられましたら、アドバイスよろしくお願いいたします。 m(_ _)m
- ベストアンサー
- その他（プログラミング・開発）
- ADOでレコードを閉じるタイミング。。Access2000/VB6/Win2K
レコードセットを返すFuncitonプロシージャーを作ってみたのですが。。。 下のGet_Recordsの方のレコードセットをCloseすると上の方のDisp_Dataでオブ ジェクトが閉じているといって怒られます。しかし、閉じないと下の方では開きっ ぱなしになると思うのですが。。。どのように処理すればいいのでしょうか？ Public P_CN As ADODB.Connection Private Sub Disp_Date() Dim RS As ADODB.Recordset Dim SQL AS String Set RS = Get_Records(SQL) With RS If .RecordCount > 0 Then .MoveLast: .MoveFirst .Debug.Print !顧客_ID End If End With RS.Close Set RS = Nothing End Sub Public Function Get_Records(pSQL As String) As ADODB.Recordset Dim RS As ADODB.Recordset Set RS = New ADODB.Recordset RS.Open pSQL, P_CN, adOpenKeyset, adLockOptimistic Set Get_Records = RS ''' RS.Close ''' Set RS = Nothing End Function
- ベストアンサー
- その他(データベース)
- JSP(ラジオボタンでチェックされた値を代入)
JSPのHTML箇所で以下のようなラジオボタンを作成しました。 <input type="radio" name="a" value="1" checked> <input type="radio" name="b" value="2"> 上のラジオボタンが選択されたとき、<% %>のJAVAで変数cに1をセット、 下のラジオボタンが選択されたとき、変数cに2をセットという形を作りたいのですが、 調べてもわかりませんでしたのでご教示ください。 以下のようにするとどちらもソースを通るので、必ず2が代入されてしまいます。 IF文的にどちらかチェックされたほうを代入できるようにしたいです。 <input type="radio" name="a" value="1" checked <% c=1 %>> <input type="radio" name="b" value="2" <% c=2 %>>
- ベストアンサー
- Java
- MySQL 5 PHP 5 データの受け渡しについて 困ってます。。
MySQL 5 PHP 5 データの受け渡しについて 困ってます。。 下記内容で困ってます。機能としては (1)プロダクトテーブルからデータを読み込み表示。 ※プロダクトテーブルには商品データが8件登録されています。 (2)注文ボタンが押されたら受注テーブルにデータをカキコミ。 なんですが。。。 プロダクトテーブルから読み込んだデータを受注テーブルに書き込むと $product_id がいつも8（受注テーブルデータの一番最後の数字） $product_name 同じ $product_price 同じ ・・・ になってしまいます。 whileループしているので変数に代入するのも繰り返されて一番最後のデータが いつも格納されている状態だと思うのですが、この解決策を教えて下さい！ 最近始めたばかりで良く理解出来ないので噛み砕いて教えてくれる方お願いします＞＜ <?php //---------------------------------------- // □：テーブルからデータを読む //---------------------------------------- $mysql->query("SELECT * FROM products ORDER BY product_id") or die(mysql_error()); while($row = $mysql->fetch()){ $product_id = $row["product_id"]; $product_name = $row["product_name"]; $product_price = $row["product_price"]; echo <<<EOT <tr> <td align="center">$product_id<input name="product_id" type="hidden" value="$product_id" size="10" /></td> <td align="center">$product_name<input name="product_name[$product_id]" type="hidden" value="$new_product_name" size="10" /></td> <td align="right">$product_price<input name="product_price[$product_id]" type="hidden" value="$new_product_price" size="10" /></td> <td><input name="new_use_date[$product_id]" type="text" value="$new_use_date" size="20" /></td> <td><input name="new_use_time[$product_id]" type="text" value="$new_use_time" size="20" /></td> <td><input name="remarks[$product_id]" type="text" value="$new_remarks" size="40" /></td> <td><input name="submit_add" type="submit" value="注文する" /></td> </tr> EOT; } //ここまでwhileループ[終了の閉じカッコ] ?>
- ベストアンサー
- MySQL
- 複数レコードを１変数にセットするには
以下、ご回答、よろしくお願いします。 ストプロで、カーソルに格納したレコードを、１変数にセットしたく思います。 （この変数を本文にして、メールをはき出します。） AccessVBAでは -------------------------- Do Until rs.EOF strBody = strBody & rs!受注コード & ":" & rs!明細コード & vbCrLf rs.MoveNext Loop -------------------------- とするところを、sqlのストプロで -------------------------- WHILE @@FETCH_STATUS = 0 BEGIN select @strBody = (@受注コード + @明細コード) + char(13) + char(10) FETCH NEXT FROM cur_cust INTO @受注コード, @明細コード end -------------------------- 等としても、１レコード分のデータしか渡りません。（あたり前ですね。） 現在に手詰まりの状態です。 ご教授、よろしくお願いします。
- ベストアンサー
- SQL Server
- DAOでレコード数を取得したい（ACESSVBA）
レコードの行数は複数あるのに --------------------------------------------------------- Sub あ() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("T_test", dbOpenDynaset) MsgBox rs.RecordCount Set rs = Nothing Set db = Nothing End Sub --------------------------------------------------------- これでレコード数を取得しようとすると１がかえるのですが なぜレコードの行数を取得できないのでしょうか？
- ベストアンサー
- その他MS Office製品
- MS-ACCESSで、レコードセットを取得したい。
MS-ACCESS2000での質問です。 VBAのコードで、任意のテーブルから、レコードセットを取得して、ADO.Recordset変数に代入したいのですが、どのような記述をすれば、出来ますでしょうか？ 最終的にはそのレコードセットの各レコードに操作をしたいのです。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- レコード件数が返らない理由がわからない
テーブル1にはレコードが5件入ってるのですが Private Sub レコード件数() Dim strSQL As String Dim rs As DAO.Recordset strSQL = "SELECT * FROM テーブル1;" Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) Debug.Print rs.RecordCount End Sub これをすると1が返るのですがなぜでしょうか？ レコードの数が返ると思ってるのですが違うのでしょうか？
- ベストアンサー
- オフィス系ソフト
補足
ありがとうございます。 無理のようですか。。。 手作業で書きます。