Database

<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;

SELECT
    t.Field1,
    t.Field2,
    (Select Count(*) FROM tblA WHERE Field1+Field2 < t.Field1+t.Field2) AS Idx
FROM
    tblA t
ORDER BY
    Field1,
    Field2