[mohamedalqadi]

(31-03-20, 12:20 AM)ابو ليلى كتب : اكيد اخي ..
ارفعها سكربت

تفضل

[ابو ليلى]

توضيف غير موفق للدوال حاول تتعلم من امثلة موجودة بكثرة في المنتدى.
كود الموظف لا يتم تمريره رغم انك مستخدم دالة لجلبه و فيها خطأ , عدلها كما يلي:

PHP كود :

   Public Function Max_emp_id_From_Employee()
        Dim number As Integer
        Try
            Dim cmd As New SqlCommand("Select Isnull(Max(emp_id) + 1, 1) From Employees", connSQLServer)

            connSQLServer.Open()
            number = cmd.ExecuteScalar
            connSQLServer.Close()
        Catch
            number = 0
            connSQLServer.Close()
        End Try
        Return number

    End Function 


وعدل اجراء الاضافة لياخذ كود الموظف القادم من الدالة

PHP كود :

   Public Sub Insert_Employees(ByVal emp_name As String, ByVal emp_phone As String, ByVal emp_state As Boolean)
        Dim cmd As New SqlCommand("Insert Into Employees(emp_id,emp_name,emp_phone,emp_state) values (@emp_id,@emp_name,@emp_phone,@emp_state)", connSQLServer)
        cmd.Parameters.Add("emp_id", SqlDbType.Int).Value = Max_emp_id_From_Employee()
        cmd.Parameters.Add("emp_name", SqlDbType.NVarChar).Value = emp_name
        cmd.Parameters.Add("emp_phone", SqlDbType.NVarChar).Value = emp_phone
        cmd.Parameters.Add("emp_state", SqlDbType.Bit).Value = emp_state
        connSQLServer.Open()
        cmd.ExecuteNonQuery()
        connSQLServer.Close()
        cmd = Nothing
    End Sub 


لم اجرب اي شيئ اخر , حاول تتعلم من اخطائك حتى تستفيد اكثر.
بالتوفيق

[mohamedalqadi]

(31-03-20, 02:14 AM)ابو ليلى كتب : توضيف غير موفق للدوال حاول تتعلم من امثلة موجودة بكثرة في المنتدى.
كود الموظف لا يتم تمريره رغم انك مستخدم دالة لجلبه و فيها خطأ , عدلها كما يلي:

PHP كود :

   Public Function Max_emp_id_From_Employee()
        Dim number As Integer
        Try
            Dim cmd As New SqlCommand("Select Isnull(Max(emp_id) + 1, 1) From Employees", connSQLServer)

            connSQLServer.Open()
            number = cmd.ExecuteScalar
            connSQLServer.Close()
        Catch
            number = 0
            connSQLServer.Close()
        End Try
        Return number

    End Function 


وعدل اجراء الاضافة لياخذ كود الموظف القادم من الدالة

PHP كود :

   Public Sub Insert_Employees(ByVal emp_name As String, ByVal emp_phone As String, ByVal emp_state As Boolean)
        Dim cmd As New SqlCommand("Insert Into Employees(emp_id,emp_name,emp_phone,emp_state) values (@emp_id,@emp_name,@emp_phone,@emp_state)", connSQLServer)
        cmd.Parameters.Add("emp_id", SqlDbType.Int).Value = Max_emp_id_From_Employee()
        cmd.Parameters.Add("emp_name", SqlDbType.NVarChar).Value = emp_name
        cmd.Parameters.Add("emp_phone", SqlDbType.NVarChar).Value = emp_phone
        cmd.Parameters.Add("emp_state", SqlDbType.Bit).Value = emp_state
        connSQLServer.Open()
        cmd.ExecuteNonQuery()
        connSQLServer.Close()
        cmd = Nothing
    End Sub 


لم اجرب اي شيئ اخر , حاول تتعلم من اخطائك حتى تستفيد اكثر.
بالتوفيق

شكرا لك انشاء الله