|
■No18268 (はつね さん) に返信
はつねさん返信ありがとうございます。
独自関数proc_sqlCmndCnnの中身ですが以下のような関数になっています。
Public Function proc_sqlCmndCnn(ByVal sql As String, _
ByVal sqlcmnd As SqlCommand, _
ByVal dataAda As SqlDataAdapter, _
ByVal DataSet As DataSet, _
ByVal strdatatabl As String _
) As Boolean
'接続文字列設定
sqlcmnd.Connection = cnn
'SQL設定
sqlcmnd.CommandText = sql
'SQL発行時のタイムアウト1200秒(20分)設定
sqlcmnd.CommandTimeout = 1200
'データアダプターにコマンドを設定
dataAda.SelectCommand = sqlcmnd
'データセットにデータの実態を取得する()
dataAda.Fill(DataSet, strdatatabl)
呼び元↓
Private Sub データ表示関数()
Dim dataset As New DataSet
Dim cmnd As New SqlCommand
Dim dataAda As New SqlDataAdapter
Dim SQL As String
Dim obTable As DataTable
SQL = "select A as テスト from 取得したいテーブル"
'コマンド生成
cmnd = New SqlCommand
Call proc_sqlCmndCnn(SQL, cmnd, dataAda, dataset, "aaaaaa") ←SQL実行用の共通関数(この関数内で接続処理、Fillメソッド等が行われています)
独自関数内でdataAda.Fill(DataSet, strdatatabl)を行い、DataSetにSQLの実行結果を格納しているのですが処理自体の間違い等ございますでしょうか?
問題の切り分けが見えてきていません…。
上記のような処理だとdatasetに値を設定されないのでしょうか?
|