Database

<br />
select <br />
    case when count(mr.ReadValue) = count(*) then <br />
                  sum(mr.ReadValue) <br />
         else <br />
                  null <br />
         end    <br />
    as 'SiteReadValue'<br />

Do you want to know more?
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and Forums

<italic>Work hard and a bit of luck is the key to success.

<italic>Work hard and a bit of luck is the key to success.

  Dim oOleDbConnection As New OleDb.OleDbConnection<br />
        Dim strPassword As String = "123456"<br />
        Dim strDataBasePath As String = "C:\Documents and Settings\creek\Desktop\AC115DataBase.mdb"<br />
<br />
        Dim sConnString As String = _<br />
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
        "Data Source=" & strDataBasePath & ";" & _<br />
        "Jet OLEDB:Database Password=" & strPassword & ";"

SELECT 
    COUNT(a.*) AS Daughters,
    ac.FinalClass
FROM 
    Animal a
INNER JOIN
    AnimalClassification ac
    ON (a.HerbBookNumber = ac.HerbBookNumber)
WHERE
    (ac.LactationNumber = 
     (SELECT 
          MAX(LactationNumber)
      FROM 
          AnimalClassification
      WHERE
           HerbBookNumber = a.HerbBookNumber)) AND
    (Animal.Sex = 1) AND
    (Animal.Sire = paramSire)
GROUP BY
    ac.FinalClass

Do you want to know more?
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and Forums

DECLARE @Str1 VARCHAR(20)
DECLARE @Str2 VARCHAR(20)
DECLARE @Str3 VARCHAR(20)
   
SET @Str1 = 'abcdefg'
SET @str2 = 'ABCDEFG'
SET @Str3 = 'abcdefg'
  
IF @Str1 = @str2
    Print 'Case Insentative: Equal'
ELSE
    Print 'Case Insentative: Not Equal'
  
IF CAST(@Str1 AS VARBINARY(50)) = CAST(@Str2 AS VARBINARY(50))
    Print 'Case Sensitive 1: Equal'
ELSE
    Print 'Case Sensitive 1: Not Equal'
  
IF CAST(@Str1 AS VARBINARY(50)) = CAST(@Str3 AS VARBINARY(50))
    Print 'Case Sensitive 2: Equal'
ELSE
    Print 'Case Sensitive 2: Not Equal'

CREATE DATABASE MyDatabase;