ＳＱＬ後データグリッドを編集するには？ (ID：108096)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

おはようございます。
テーブルＡ：商品コード
            商品名
            商品単価
テーブルＢ：商品コード
            日付
            売上数量
のテーブルがあり、
フォームＡ：テキスト１（商品コード
            テキスト２（商品名
            テキスト３（商品単価
            データグリッド１（日付・売上数量
のフォームがあります。
テキストＡに商品コードを打つとSQLでテキスト２とテキスト３に商品名と商品単価、
データグリッドに日付と売上数量が表示されるように記述したのですが。（下記）
テキスト２とテキスト３までは表示されて、データグリッドには表示されませんでした。
あと、データグリッドの中身を編集、追加してやりたいのですが、
OPENメソッドの引数に直でコネクションを指定したせいか、データグリッドの編集もできません。
SQLでデータを取得しなければ編集はできるのですが・・・
どう対処していいのか教えていただけたらと思っています。
（SQLサーバーを使用しています）

Private Sub Syohin_Cd_LostFocus()
    Con1.Open
    '定義
    Dim RS As New ADODB.Recordset
    Dim strSQL As String
    
    'テーブルＡのＳＱＬ記述
    strSQL = "SELECT * FROM M1_SYOHIN_TBL WHERE M1_SYOHIN_CD = '" & Me.Syohin_Cd & "'"
    
    RS.Open strSQL, CN
    'テキスト２と３にデータを送る
    Set Me.Syohin_Nm.DataSource = RS
    Set Me.Syohin_Tn.DataSource = RS
    
    Me.Syohin_Nm.DataField = "M1_SYOHIN_NM"
    Me.Syohin_Tn.DataField = "M1_TANI1_CD"
    RS.Close
    'テーブルＢのＳＱＬ記述
    strSQL = "SELECT * FROM M2_TENKAI_TBL WHERE M2_SYOHIN_CD = '" & Me.Syohin_Cd & "'"
    
    RS.Open strSQL, CN
    Set Me.Tenkai.DataSource = RS

RS.Close
    Con1.Close
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る