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

من يضع كود معرفة عدد الجداول ضمن دالة function

كود :

[align=left]        '**************************معرفة عدد الجداول****************

        ' Dim tc As New SqlCommand("SELECT Count(*) FROM INFORMATION_SCHEMA.TABLES", con)

        ' If con.State = ConnectionState.Closed Then

        ' con.Open()

        '  End If

        ' Response.Write("<div align=center><h2>" & tc.ExecuteScalar & "</h2></div>")

        ' If tc.ExecuteScalar = 0 Then

        ' Response.Write("<div align=center><h2>لا توجد جداول بالقاعدة الحالية</h2></div>")

        ' Exit Sub

        ' End If

        '*************************************************[/align]

تفضل أخي

PHP كود :

Function CountTable(ConDataB As SqlConnection)
Dim tc As New SqlCommand("SELECT Count(*) FROM INFORMATION_SCHEMA.TABLES", ConDataB)
If con.State = ConnectionState.Closed Then
con.Open()
End If

Response.Write("<div align=center><h2>" & tc.ExecuteScalar & "</h2></div>")
If tc.ExecuteScalar = 0 Then
Response.Write("<div align=center><h2>لا توجد جداول بالقاعدة الحالية</h2></div>")
End If
 
End Function 

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

PHP كود :

CountTable(con) 

con غنية عن التعريف بدلها باسم الاتصال الذي تستخدمه

* ملاحظة هذا الكود لقاعدة البيانات SQLServer
إذا كنت تستخدم اكسس غير SqlConnection الموجود في قسم التعريفات إللي فيfunction

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

سعود

Easy4ever