[new_programer]

PHP كود :

Public Function Get_Data_Code2(ByVal SupName As String, ByVal TableName As String, ByVal ColumnName As String, ByVal ColumnName2 As String)
       
        Dim cmd As New SqlCommand("select " & ColumnName & "   from " & TableName & " where " & ColumnName2 & "=@SupName", conn)
        cmd.Parameters.Add("@SupName", SqlDbType.VarChar).Value = SupName 'txtName.Text
        If conn.State = ConnectionState.Closed Then conn.Open()
        Dim drSrch As SqlDataReader = cmd.ExecuteReader
        drSrch.Read()

        Dim IDn As String
        If drSrch.HasRows Then
            IDn = drSrch(0) ' txtVindorID.Text = drSrch(0)
        Else
            IDn = "0"
            '  MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
            ' لا تحتاج للارسالة - إن لم يكن الرقم موجود يعيد الرقم صفر
        End If
        drSrch.Close()
        conn.Close()
        Return IDn
    End Function 


كود الاستدعاء 

PHP كود :

'txtDrawerID.Text = Get_Data_Code2(txtDrawer.Text, "DrawerTbl", "DrawerID", "DrawerName") 


---

اشكرك جدا اخى الكريم : Taha Okla

الكود يعمل وتم التعديل علية للعمل دون تقيد مع بيانات ثابتة


اشكرا مرة اخري Taha Okla
ربنا يجعلة فى ميزان حسناتك ويذيدك علم