[atef_020]

(19-02-19, 06:15 PM)asemshahen5 كتب : إستخدم داتا تابل بدل الداتا سيت مع مراعاة وضعه في مديول ليتم استخدامه في أكثر من فورم :

PHP كود :

   Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean
        Dim dt As New DataTable
        Dim SqlStr As String = "select * from " & t1 & " where " & code & " ='" & t4 & "'"
        If Con.State = ConnectionState.Closed Then Con.Open()
        Dim adp As New SqlClient.SqlDataAdapter(SqlStr, con)
        adp.Fill(dt)
        If dt.Rows.Count = 0 Then
            MsgBox("الكود غير موجود")
            CheckCode = False
        Else
            MsgBox("الكود موجود")
            CheckCode = True
        End If
        If Con.State = ConnectionState.Open Then Con.Close()
        Return CheckCode
    End Function 


اشكرك اخونا الكريم على الاهتمام والرد .......ولكن يوجد خطاء ويعطن هذه الرسالة 

PHP كود :

Argument not specified for parameter 'code' of 'Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean' 


---

(20-02-19, 11:20 AM)atef_020 كتب :

(19-02-19, 06:15 PM)asemshahen5 كتب : إستخدم داتا تابل بدل الداتا سيت مع مراعاة وضعه في مديول ليتم استخدامه في أكثر من فورم :

PHP كود :

   Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean
        Dim dt As New DataTable
        Dim SqlStr As String = "select * from " & t1 & " where " & code & " ='" & t4 & "'"
        If Con.State = ConnectionState.Closed Then Con.Open()
        Dim adp As New SqlClient.SqlDataAdapter(SqlStr, con)
        adp.Fill(dt)
        If dt.Rows.Count = 0 Then
            MsgBox("الكود غير موجود")
            CheckCode = False
        Else
            MsgBox("الكود موجود")
            CheckCode = True
        End If
        If Con.State = ConnectionState.Open Then Con.Close()
        Return CheckCode
    End Function 


اشكرك اخونا الكريم على الاهتمام والرد .......ولكن يوجد خطاء ويعطن هذه الرسالة 

PHP كود :

Argument not specified for parameter 'code' of 'Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean' 


قمت بتعديل الكود والحمد لله شغال تمام

PHP كود :

Public Function CheckCode() As Boolean
        Dim dt As New DataTable
        Dim SqlSt As String = "select * from  t1  where code='" & T4.Text & "'"
        If Con.State = ConnectionState.Closed Then Con.Open()
        Dim adp As New OleDb.OleDbDataAdapter(SqlSt, con)
        adp.Fill(dt)
        If dt.Rows.Count = 0 Then
            MsgBox("الكود غير موجود")
            CheckCode = False
        Else
            MsgBox("الكود موجود")
            CheckCode = True
        End If
        If Con.State = ConnectionState.Open Then Con.Close()
        Return CheckCode
    End Function 


ولكن اذا قمت بتعديل كود الصنف فى التعديل يعنى مثلا ادخلت صنف بكود 112 فعندما اضغط 112 بيظهر بيانات هذا الصنف فاذا غيرت هذا الكود من 112 الى 115 مثلا فاجد انة ادخل كود 115 ولم يلغى 112.. اريد عندما اعدل كود الصنف يقوم بمسح البيانات القديمة ......وتحياتى للجميع