PDA

View Full Version : خطاي کد_فوري



javadaskari
دوشنبه 08 مهر 1387, 09:36 صبح
با سلام
من يه مشکل در برنامم پيش اومده که ممنون ميشم جواب بدبد.برنامم با VB 2005 و SQL Server 2005‌ است:
اين کد روي خط اول حلقه for…each‌ پيغامي خاص ميده که نميدونم مفهومش چيه.فقط بگم که يه جدول به نام T_InfoPayah دارم که در آن فيلدهاي ID و Name قرار داده.جالب اينجاست که اگر بانک اطلاعاتي Accsess باشد مشکلي ندارد.لطفا کمکم کنيد:




Public Class Form1

Private CnnStr As String = "Trusted_Connection=yes;Initial Catalog=dbsExame;Server=" & Environment.MachineName

Private cnn As New SqlConnection(CnnStr)
Private objCmd As New SqlCommand
Private objDS As New DataSet
Private objDA As New SqlDataAdapter
Private sSql As String

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

objCmd.Connection = cnn
sSql = "Select * From T_InfoPayah"
objCmd.CommandText = sSql
objDA.SelectCommand = objCmd

cnn.Open()
objDA.Fill(objDS, "Name")
Dim row As DataRow

For Each row In objDS.Tables("T_InfoPayah").Rows

cbo1.DisplayMember = CStr(row("Name"))
cbo1.ValueMember = CStr(row("ID"))

Next

cnn.Close()

End Sub
End Class

yavari
دوشنبه 08 مهر 1387, 10:58 صبح
سلام

پیغام خطا رو میشه بذارید ؟

کم حوصله
دوشنبه 08 مهر 1387, 11:05 صبح
سلام
در زمان پرکردن دیتاتیبل نام آن را Name گذاشته اید ولی در زمان خواندن با نام T_InfoPayah فراخوانی کردید با یکسان کردن این نام ها مشکلتان حل میشود

کد اصلاح شده




Public Class Form1

Private CnnStr As String = "Trusted_Connection=yes;Initial Catalog=dbsExame;Server=" & Environment.MachineName

Private cnn As New SqlConnection(CnnStr)
Private objCmd As New SqlCommand
Private objDS As New DataSet
Private objDA As New SqlDataAdapter
Private sSql As String

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

objCmd.Connection = cnn
sSql = "Select * From T_InfoPayah"
objCmd.CommandText = sSql
objDA.SelectCommand = objCmd

cnn.Open()
objDA.Fill(objDS, "T_InfoPayah")
Dim row As DataRow

For Each row In objDS.Tables("T_InfoPayah").Rows

cbo1.DisplayMember = CStr(row("Name"))
cbo1.ValueMember = CStr(row("ID"))

Next

cnn.Close()

End Sub
End Class

javadaskari
سه شنبه 09 مهر 1387, 13:47 عصر
خيلي از کمک شما ممنونم. با تشکر فعلا...