[Easy4ever]

تفضل أخي

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