[mona626]

هــــــل يـــوجـــــد حـــــــــل ؟؟؟

[حريف برمجة]

ارفقي مثال للمطلوب وراح نساعدك .

[mona626]

المشروع في المرفقات 


والفورم هو :  dailyreporteditdelete

[حريف برمجة]

(23-11-15, 08:38 AM)mona626 كتب : المشروع في المرفقات 


والفورم هو :  dailyreporteditdelete

اوكي جربي الكود هذا ،،، استبدلي الكود كامل واعطيني خبر

كود :

Dim cmd As New SqlCommand("SELECT * FROM MonitoringReports WHERE EmployeeID = '" & TextBox9.Text & "' and LicensesNumber='" & TextBox1.Text & "'", con)
       Dim dr As SqlDataReader = cmd.ExecuteReader

       con.Open()

       If dr.Read = True Then
           TextBox8.Text = dr!EmployeeName
           TextBox9.Text = dr!EmployeeID
           DateTimePicker2.Value = dr!DateOfEntry
           TextBox1.Text = dr!LicensesNumber
           TextBox2.Text = dr!LicensesName
           TextBox5.Text = dr!LicensesType
           ComboBox6.Text = dr!LicensesCase
           ComboBox1.Text = dr!Location
           ComboBox2.Text = dr!Street
           TextBox3.Text = dr!NearOrNextTo
           ComboBox3.SelectedValue = dr!ActionType
           ComboBox7.SelectedValue = dr!ActionNumber
           ComboBox5.SelectedValue = dr!FineOrWarrningType
           TextBox4.Text = dr!Notes
           DateTimePicker1.Value = dr!DateOfFollow
       Else
           MsgBox("السجل غير موجود")
       End If

       dr.Close()
       cmd.Dispose()
       con.Close()