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
من يه مشکل در برنامم پيش اومده که ممنون ميشم جواب بدبد.برنامم با 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