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

(23-04-17, 11:26 AM)عبـدالله كتب : [ -> ]ضع هذه الدالة

PHP كود :

Function SqlScalar(sql As String) As Integer
    Try
        Using cmd As New OleDbCommand(sql, Con)
            If Con.State <> ConnectionState.Open Then Con.Open()
            Dim c As Integer = cmd.ExecuteScalar
            Con.Close()
            Return c
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
        Return 0
    End Try
End Function 


ثم استدعها بالطريقة التالية لتعيد لك العدد

PHP كود :

Dim r As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 5 AND 9)")
rep.SetParameterValue("p1", r)

Dim n As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 5 AND 9)")
rep.SetParameterValue("p2", n) 


من الجيد وضع جدول لكل خاصية، ولكن يتوجب عندها الربط بين الجداول، والاستعلام سيختلف قليلاً.