VB Environment

[code language=”vb”] Private Sub frm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load</pre> Debug.Print(Environment.MachineName.ToUpper) Debug.Print(Environment.OSVersion.ToString) Debug.Print(Environment.UserDomainName) Debug.Print(Environment.UserName) Debug.Print(Environment.CurrentDirectory) Debug.Print(Environment.Is64BitOperatingSystem) End Sub &nbsp; [/code]

SQL script my sample data

[code language=”sql”]</pre> &nbsp; –drop table MySampleData CREATE TABLE dbo.MySampleData ( ItemCode VARCHAR(10) NOT NULL, ItemName VARCHAR(20) NOT NULL, Color VARCHAR(10) NULL, LastUpdated DATETIME NOT NULL ) —————————— DECLARE @KeyString VARCHAR(10) DECLARE @DataString VARCHAR(20) DECLARE @Color VARCHAR(20) DECLARE @Random INT DECLARE @InsertDate DATETIME Read More