タイトル : SQLServerからのデータの取得方法 投稿日 : 2007/05/08(Tue) 17:27 投稿者 : くわ
お世話になっております くわと申します VB2005でSQLServer2000へ接続して テーブルからデータセットを取得するロジックを共通化して SQL分を引数として渡すと結果のデータセットを戻したいのですが データ リーダーが閉じているときに、無効な操作 MetaData をしようとしました。 というエラーが出てしまいます VB2005をはじめて間もないのでまったく検討違いな事をしてしまってますでしょうか VB6のレコードセットの様にはできないのでしょうか? ご教授いただければ幸いです Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dr As SqlClient.SqlDataReader Dim aa As String dr = get_tantousha("SELECT * FROM 担当者マスタ WHERE 担当者番号 = '001'") aa = dr.Item("担当者名") ←ここでエラーがでます End Sub Private Function get_tantousha(ByVal strSqlCmd As String) As SqlClient.SqlDataReader Dim Cn As New SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand Dim dr As SqlClient.SqlDataReader Cn.ConnectionString = "Data Source=192.168.120.xx;Initial Catalog=GS_T_TEST;User ID=sa;Password=sa;" Cn.Open() cmd.Connection = Cn cmd.CommandText = strSqlCmd get_tantousha = cmd.ExecuteReader Cn.Close() End Function |