Imports System.Data.SqlClient

Module ConnectSQL

Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim p1, p2 As SqlParameter
Dim dr As SqlDataReader()

Public Sub Connect_()


conn = New SqlConnection()
conn.ConnectionString = "server=MainSever; uid=sa1; pwd=sa1; database=DBLBR"
conn.Open()


cmd = New SqlCommand()
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "GetOneMontn"

'добавляем входные параметры ХП
p1 = cmd.Parameters.Add(New SqlParameter("@m", SqlDbType.Int))
p1.Direction = ParameterDirection.Input
p2 = cmd.Parameters.Add(New SqlParameter("@year", SqlDbType.Int))
p2.Direction = ParameterDirection.Input

p1.Value = 7
p2.Value = 2004


'А вот эта строка подчеркивается волнистой линией
dr=cmd.ExecuteReader()

во всплывающей подсказке пишет cannot converted to 1-dimensional array

End Sub

End Module

Что я не так делаю?

2 sa

Все равно подчеркивает!

Dim dr As SqlDataReader = New SqlDataReader()

New SqlDataReader() - вот это подчеркивает!

Не пойму ,что за хрень.

Вот все что есть в форме.






Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim p1, p2 As SqlParameter
Dim ad As SqlDataAdapter
Dim ds As DataSet


Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dr As SqlDataReader = New SqlDataReader()

Dim dgstyle As New DataGridTableStyle()

DataGrid1.TableStyles.Add(dgstyle)

conn = New SqlConnection()
conn.ConnectionString = "server=MainSever; uid=sa1; pwd=sa1; database=DBLBR"
conn.Open()


cmd = New SqlCommand()

cmd.CommandText = "GetOneMonth"
cmd.CommandType = System.Data.CommandType.StoredProcedure
cmd.Connection = conn
cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))

p1 = cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@m", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
p2 = cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@year", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))

p1.Value = 7 : p2.Value = 2004

dr=cmd.ExecuteReader()



End Sub


End Class

HummerА вот это у вас написано: Imports System.Data.SqlClient?:)

Если нет, что же вы хотите-то?:)

Не понял?

Вот , получилось

Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim p1, p2 As SqlParameter
Dim ad As SqlDataAdapter
Dim ds As DataSet
Dim dr As SqlDataReader

Странно , до этого писал тоже самое и это подчеркивалось, а сейчас нет!

Странно..Хмм.

Тьфу ты