掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
vb2005とfirebirdで開発するには (ID:144115)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
魔界の仮面弁士さんご回答ありがとうございます。 以下のコードでInsert Update Deleteはできました。 （コードはUpdate分だけですがInsert,Deleteも同じようなものです） わからないのはSelectの場合です。DataSetにデータ格納までは できたと思うのですがそこから先がわかりません。 やりたいことは以下の２点です。 （１）レコードがあるかどうかの判断 （Adodbの場合はRecordSet.Eof で判断） （２）Selectしたデータをテキストボックスに表示させたい 以下のコードの場合、T_Hoge.Nameフィールドの内容を TEXT_002に表示させたい。 （Adodbの場合はTEXT_002.TEXT = RecordSet!フィールド名で可能） どうかよろしくおねがいします。 Private Sub SubSelectData() Dim FbDs As DataSet = New DataSet With FbDA_1 'DataAdapterです .SelectCommand.CommandText = "SELECT * FROM T_Hoge WHERE ID =" & TEXT_1.Text .Fill(FbDs) End With 'ここから先がわからない End Sub Private Sub SubInsertData() With FbDA_1 .InsertCommand.CommandText = "INSERT INTO T_Hoge ( ID, NAME ) VALUES (" & TEXT_001.Text & ",'" & TEXT_002.Text & "' )" .InsertCommand.Connection.Open() .InsertCommand.ExecuteNonQuery() .InsertCommand.Connection.Close() End With End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.