Database

Kevin Marois wrote:

All variables in xBase are False by default.

Kevin Marois wrote:

...so it will get its type when assigned to.

char(1) myvar[11]
myvar[1] = Chr(32)
myvar[2] = Chr(45)
myvar[3] = "Hello"
myvar[3] = DATETIME()
myvar[10] = Chr(124)

VFP is a weakly typed language, that is, the compiler allows operations such as assignment and comparison among variables of different types. For example, VFP allows the value of a variable to be cast to another type. The ability to use variables of different types in the same expression promotes flexibility as well as efficiency.

Note: Strong typing in Visual FoxPro 7/8/9 SP2 is not enforced at compile or run time, but is used primarily at design time.

Kevin Marois wrote:

Do you know what language this code was written in?

Kevin Marois wrote:

If it compiles in one, it should in another with minimal work.

Customer = "Smith"
Customer = CreateObject("Excel.Application") 
Customer = .T. 

LOCAL CustomerName AS String

LOCAL CustomerName AS String
CustomerName = 10+5

sindhuan wrote:

Is this the right way to do??

dc.users.InsertOnSubmit("us");

dc.users.InsertOnSubmit(us);

using (MyDataContext dc = new MyDataContext())
{
    var userName = (from u in dc.tblUsers
                    where u.Id = someId
                    select u.UserName).FirstOrDefault();


    user us = new user
    {
        Date = DateTime.Now,
        name = userName
    };

    try
    {
        dc.users.InsertOnSubmit(us);
    }
    catch(Exception e)
    {
        // Handle exception here
    }
}

CREATE TRIGGER tr_trigtest ON trigtest FOR INSERT, UPDATE, DELETE
AS

DECLARE @bit INT ,
       @field INT ,
       @maxfield INT ,
       @char INT ,
       @fieldname VARCHAR(128) ,
       @TableName VARCHAR(128) ,
       @PKCols VARCHAR(1000) ,
       @sql VARCHAR(2000), 
       @UpdateDate VARCHAR(21) ,
       @UserName VARCHAR(128) ,
       @Type CHAR(1) ,
       @PKSelect VARCHAR(1000)
       

--You will need to change @TableName to match the table to be audited
SELECT @TableName = 'trigtest'

-- date and user
SELECT         @UserName = SYSTEM_USER ,
       @UpdateDate = CONVERT(VARCHAR(8), GETDATE(), 112) 
               + ' ' + CONVERT(VARCHAR(12), GETDATE(), 114)

-- Action
IF EXISTS (SELECT * FROM inserted)
       IF EXISTS (SELECT * FROM deleted)
               SELECT @Type = 'U'
       ELSE
               SELECT @Type = 'I'
ELSE
       SELECT @Type = 'D'

-- get list of columns
SELECT * INTO #ins FROM inserted
SELECT * INTO #del FROM deleted

-- Get primary key columns for full outer join
SELECT @PKCols = COALESCE(@PKCols + ' and', ' on') 
               + ' i.' + c.COLUMN_NAME + ' = d.' + c.COLUMN_NAME
       FROM    INFORMATION_SCHEMA.TABLE_CONSTRAINTS pk ,

              INFORMATION_SCHEMA.KEY_COLUMN_USAGE c
       WHERE   pk.TABLE_NAME = @TableName
       AND     CONSTRAINT_TYPE = 'PRIMARY KEY'
       AND     c.TABLE_NAME = pk.TABLE_NAME
       AND     c.CONSTRAINT_NAME = pk.CONSTRAINT_NAME

COALESCE(@PKCols + ' and', ' on')

WHERE ISNULL(@PKCols, '') <> ''

case 
    when instr(mystring, ' and ') > 0 then substr(mystring, 0, instr(mystring, ' and ')-1)
    else mystring 
end as string1
case
    when instr(mystring, ' and ') > 0 then substr(mystring, instr(mystring, ' and ') + length(' and '))
    else null 
end as string2