Database

<br />
Dim strSQL as string = "SELECT * FROM EMPLOYEE"<br />
<br />
strSQL = strSQL & "WHERE EmployeeID=" & txtEmployee.Text<br />
strSQL = strSQL & " AND StartDate > " txtStart.Text<br />
strSQL = strSQL & " AND EndDate > " txtEnd.Text<br />
<br />
Debug.Writeline (strSQL)<br />
<br />
'Execute the SQL<br />
Dim oConn as new System.Data.Oledb.OledbConnection (strConnectionString)<br />
Dim oDA as new System.Data.Oledb.OledbDataAdapter(oConn, strSQL)<br />
Dim oDS as Dataset<br />
<br />
oDA.Fill (oDS)<br />
<br />
'Output no. rows<br />
Debubg.Writeline (oDS.Tables(0).Rows.Count)<br />

Select * 
Into [tblNewTable] 
From [tblExistingTable]
Where 0=1

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event[^].

Dim cmd as New SqlCommand
cmd.Connection = cn 'Connection
cmd.CommandText = "Insert into [Server] ([Date], [Time]) Values (yourDate, yourTime)"
cmd.commandType = CommandText
return cmd.ExecuteNonQuery

int FindCharRev (const CString str, const char c, CString& buf)
{
    char* pStr;
    int index, j = 0, len = str.GetLength ();
    for (int i = len; i > 0; i--) {
        if (str[i] == c) 
            { index = i; break; }
    }

    pStr = (LPTSTR)(LPCTSTR)str;
    pStr += index;
    while (pStr) {
        buf[j] = *pStr;
        pStr++;
        j++;
    }
    return index
}

select instr('CORPORATE FLOOR,'OR',-3,2) from dual
will a return a value of 2