[سعود]

شوف الدالة هذي

PHP كود :

Private Function isfound(ByVal un As String) As Integer
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.CommandText = "select count(tid) from tb where tname='" & un & "'"
        If con.State = ConnectionState.Closed Then con.Open()
        isfound = cm.ExecuteScalar
    End Function 


واستخدامها كالتالي:

PHP كود :

       If CheckBox1.Checked Then
            If isfound(tname.Text) > 0 Then MsgBox("الاسم محجوز جرب اخر") : Exit Sub
        End If 


الدالة تستعلم من الجدول مباشرة فقط غير ما يلزم ليعمل معك