منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : [ليس جديد] صياغة Function لتستخدم متغيرات لاسماء الجداول او الحقول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
حبيت اكتب الطريقة ادري انها ليست جديدة لكن لعل احد يجد بها حل.

اول Function تزودها بوسائط لتعيد لك قيمة
PHP كود :
Public Function getPageTitle(table As Stringcolid As Stringcoltitle As Stringfid As Integer) As String
        Using cm 
As New SqlClient.SqlCommand(""con)
 
           cm.CommandText "select " coltitle " from " table " where " colid "=@" colid ""
 
           cm.Parameters.AddWithValue("@" colidfid)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dr As SqlClient.SqlDataReader cm.ExecuteReader
            If dr
.Read Then
                Return dr
.Item(coltitle)
 
           End If
 
       End Using
    End 
Function 
التالية لمعرفة عدد صفوف شيء معين:
PHP كود :
Public Function rowsCountByid(table As Stringcolname As Stringcolid As Integer) As Integer
        Using cm 
As New SqlClient.SqlCommand(""con)
 
           cm.CommandText "select count(" colname ") from " table " where " colname "=@" colname ""
 
           cm.Parameters.AddWithValue("@" colnamecolid)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Return cm.ExecuteScalar
        End Using
    End 
Function 
اكيد الكود فيه قصور لكن الفكرة هي عدم تكرار صياغة Function  لكل هدف قد يكون مشابه.
مساء الخير