اسعدتم مساء وكل عام وانتم بخير ...
ارجو يابش مهندس تصحيح الكود التالي حيث هو عبارة عن علاقة بين جدولين حيث تظهر لي الخطاء التالي Cannot find either column "Integer" or the user-defined function or aggregate "Integer.Parse", or the name is ambiguous.
Dim cn As New SqlConnection()
If cn.State = ConnectionState.Closed Then
cn.ConnectionString =
"Data Source=.;Initial Catalog=data;Integrated Security=True"
cn.Open()
End If
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
cmd.Connection = cn
cmd.CommandType =
CommandType.Text
Dim s As String
s =
"SELECT Names.[Name],Absence.[Absence_number],Absence.[Abcence_date],Absence.[Absence_type],Absence.[Absence_form],Absence.[Absence_to],Absence.[Absence_total],Absence.[Absence_discount],Absence.[Absence_details] FROM Names , Absence "
s = s &
"WHERE Names.[data_id]=Integer.Parse(cb1.SelectedValue.ToString()) And Names.[data_id] = Absence.[Absence_emp_no] "
cmd.CommandText = s
Dim dp As New SqlDataAdapter
Dim dt As New DataTable
dp.SelectCommand = cmd
dp.Fill(dt)
Dim frm As New repabsent
frm.dt = dt
frm.ShowDialog()
frm.Refresh()
