投稿日	： 2005/01/06(Thu) 13:37
投稿者	： KASHO
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^6: データグリッドから・・・

> > 例えばですが、このような処理はＡＤＯデータコントロールを使用しなくても実現可能なのでしょうか？
> 可能です。各DataSourceにRecordsetをコードで設定してください。

    Set rsgrid = New ADODB.Recordset
    chksql = "select * from *****"
    rsgrid.Open chksql, cn, adOpenStatic, adLockOptimistic
    Set KubunGrid.DataSource = rsgrid
    Text(0).DataField = "*****"
    Text(1).DataField = "*****"
    Text(2).DataField = "*****"
    Text(3).DataField = "*****"
    Text(4).DataField = "*****"
    Text(5).DataField = "*****"
    For cnt = 0 To 5
        Set Text(cnt).DataSource = rsgrid
    Next cnt
※*は例えばの値です＾＾；

としたらできました。
ありがとうございます＾＾
しかしそこでまた質問が発生してしまいました＾＾；
フォーム内にある各テキストボックスをクリアするボタンがあるのですが↓

    Dim cnt As Integer
    cnt = 0
    Do While cnt <= 5
        Text(cnt).Text = ""
        cnt = cnt + 1
    Loop

手順
１．データグリッドから選択してテキストボックスにデータを表示
２．フォーム内のクリアボタンをクリックしてテキストボックス消去
３．データグリッド内のレコードのフォーカスをほかのレコードに移動
させるとレコードがすべて空欄になってしまいます。
データフィールドを連結させているからそうなるのかなぁ、と思ったりしているのですが

    Text(cnt).DataField=""　※１

※１　０〜５でループさせています

としても、リンクは切れますが上記の問題はうまくいかないようです。
どうすれば宜しいでしょうか？


> (ConnectionString自動生成ツールとしては、よく使います。
> その場合、Formに貼り付けて、プロパティページで接続テストに成功したら、
> ConnectionStringだけコピーして、ADODCは消します。)

それはすごく使えますね！
私も使わせていただきます＾＾

★ - データグリッドから・・・ - KASHO 01/02-00:40No.1403
• Re: データグリッドから・・・ - Say 01/03-18:51 No.1404
  • Re^2: データグリッドから・・・ - KASHO 01/04-01:46 No.1405
    • Re^3: データグリッドから・・・ - Say 01/04-13:28 No.1407
      • Re^4: データグリッドから・・・ - KASHO 01/05-01:15 No.1415
        • Re^5: データグリッドから・・・ - Say 01/05-03:15 No.1416
          • Re^6: データグリッドから・・・ - KASHO 01/06-13:37 No.1427