خطا در کد()myadapter.fill ؟

[nahidkh]

سلام
کدهای پایین رو نوشتم هنگام debug کردنerror به قسمتmyadapter.Fill(mydst) میده.
لطفا اگه کسی علت رو میدونه کمکم کنه:


Public

Function gettableindataset(ByVal cmd AsString) AsDataSet

' ايجاد ارتباط با بانک و ايجاد کامند
Dim myconnection AsSqlConnection = NewSqlConnection(cn.ConnectionString)
Dim myadapter AsSqlDataAdapter = NewSqlDataAdapter(cmd, myconnection)
Dim mydst AsNewDataSet
myadapter.Fill(mydst)
Return mydst
EndFunction
error:

The ConnectionString property has not been initialized

[ali_najari]

دوست عزيز زماني كه داريد ديتاست رو fill ميكنيد بايد نام جدول رو هم بهش بديد يعني به اين صورت تغيير ميكنه:

فرض كنيد كه ميخواهيد اطلاعات مربوط به جدولي از بانك اطلاعاتي به نام TBL1 را دريافت كنيد:


myadapter.Fill(mydst,"TBL1")

[nahidkh]

ممنون ولی اسم تیبلم رو اضافه کردم همونطوریکه گفته بودین،باز هم همون error رو داد.:ناراحت:

[kebriya]

cmd که پارامتر تابع است رو مقدار دادین؟ چه مقداری داره؟

یه چیز دیگه اینکه error داره به connectionstring گیر میده اون رو درست نوشتی؟ کدش رو اینجا بذارین

[nahidkh]

cmd رو همینجا باید مقدار بدم؟ لطفا بیشتر توضیح بدین
کد connectionstring: این قسمت که قبلا تست کردم مشکل نداشت،
cn.ConnectionString = ("data source=RES08;initial catalog=edareyepajuhesh;Integrated Security=true")

[kebriya]

ببین من کد شما رو اینجوری نوشتم error نداده. connectionstring رو درست نوشتی اما خودت یه نگاه بنداز ببین این کد با کد خودت چه فرقی داره



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ds = gettableindataset("select * from tbluser")
End Sub

Function gettableindataset(ByVal cmd As String) As DataSet
Dim ConnectionString = ("data source=.;initial catalog=edareyepajuhesh;Integrated Security=true")
' ايجاد ارتباط با بانک و ايجاد کامند
Dim myconnection As SqlConnection = New SqlConnection(ConnectionString)
Dim myadapter As SqlDataAdapter = New SqlDataAdapter(cmd, myconnection)
Dim mydst As New DataSet
myadapter.Fill(mydst)
Return mydst
End Function