UDP Web Centre

Data access component with ADO and ADO.NET

Product	Rational Rose
Notation	UML
Tutorials	VB, C#

Visual Basic tutorial:

	''Creating Database object and reading connection string from system registry
	Set DB = CreateObject("DBAccess.DataBase")
	DB.Logger.FileName = "sqllog.log"
	DB.Logger.ErrorFileName = "ErrorLog.log"

	''Deserialization objects
	Sql="Select * From Employees Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
	Set Reader = DB.Lookup(Sql,Month(Now()), Day(Now()))
	For Each Employee In Reader.ReadToEnd("Employees.Employee")
	Employee.Alert "Happy Birth Day!"
	Next

	''Serialization objects
	Set Writer = CreateObject("DBAccess.Writer")
	DB.Logger.WriteLog "Start transaction"
	DB.StartTransaction
	Reader.Reset
	For Each Employee In Reader.ReadToEnd("Employees.Employee")
	Employee.AddSalary 1000
	Writer.Serialize Employee
	Writer.WriteLine "Update Employee"
	Next
	DB.Execute Writer
	DB.Commit
	DB.Logger.WriteLog "Commit transaction "

	''Calling stored procedure
	Set Caller = CreateObject("DBAccess.Caller")
	Caller.Name = "dbo.Shedule"
	Caller.AddLong "ID", 1000
	Caller.AddDate "Time", Now()
	DB.Execute Caller
	varName = Caller!Name

	''Deserialization collection of order
	Set Entity = CreateObject("DBAccess.Entity")
	Entity.Create "Orders", True
	With Entity
	.Append "ID , CustOrderID,Vendor, Date"
	.Append "Address1 , Address2, Address3"
	.Append "BuyerID , RefA, RefB, Tag"
	.Append "TotalExt , GSTExt, PSTExt"
	With .AppendEntity("Orderrows", "Orderrows", "ID To OrderID")
	.Append "OrderID,LineID , ItemID, Quantity"
	.Append "PurchUnit , TeknDescription, TeknPrice"
	.Append "PricUnit , DelivDate
	.Append "Quantity * TeknPrice as Total"
	.Append "iif(UCase(ItemID) Like '%\P%' ,'Special','Regular') as Type"
	End With
	.Add "Sum(Orderrows.Quantity) as TotalQuantity"
	.Add "Sum(Orderrows.Total) as TotalPrice"
	End With
	Set Orders = CreateObject("DBAccess.Collection")
	Orders.Deserialize Entity
	Orders.ClassName = "Customers.Order"
	For Each Order In Orders
	total = 0
	For Each row In Order.Rows
	total = total + row.total
	Next
	If total > 1000 Then
	Order.Buyer.AddPriority
	Order.Salesman.AddPriority
	End If
	Next

	''Serialization changed objects in collection to db
	Orders.Serialize

	''Sending data to email box
	emp="Select * From Employees Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
	cust="Select * From Customers Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
	DB.Execute emp,Month(Now()), Day(Now())
	Set Reader = DB.Lookup(cust,Month(Now()), Day(Now()))
	Set Mailer = CreateObject("AppicationLib.Mailer")
	Mailer.Logger.FileName = "c:\maillog.log"
	Mailer.Logger.ErrorFileName = "c:\mailerror.log"
	Mailer.Host = "Host"
	Mailer.FromAddress = "root@webudp.com"
	Mailer.SendTo Reader
	Reader.NextResult
	Mailer.SendTo Reader

	''Get object by "Employee ID" primary key and send to email postbox in XML format
	Set Employee = DB.Deserialize("Employees.Employee", 1001)
	Employee.AddSalary 1000
	Mailer.SendTo Employee
	DB.Serialize Employee

C# tutorial:

	//Creating Database object and reading connection string from system registry
	DataBase DB = new DataBase();
	DB.Logger.FileName = "sqllog.log";
	DB.Logger.ErrorFileName = "ErrorLog.log";

	//Deserialization objects
	sql="select * from Employees Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?";
	Reader reader = DB.Lookup(sql,DateTime.Now.Month,DateTime.Now.Day);
	foreach(Employee employee in reader.ReadToEnd("NetSales.Employees.Employee"))
	{
	employee.Alert("Happy Birth Day!");
	}

	//Serialization objects
	Writer writer = new Writer();
	DB.Logger.WriteLog("Star transaction");
	DB.StartTransaction();
	reader.Reset();
	foreach(Employee employee in reader.ReadToEnd("NetSales.Employees.Employee"))
	{
	employee.AddSalary(1000);
	writer.Serialize(employee);
	writer.WriteLine("Update Employee");
	}
	DB.Execute(writer);
	DB.Commit();
	DB.Logger.WriteLog("Commit transaction");


	//Calling stored procedure
	Caller caller = new Caller("dbo.Shedule");
	caller.AddLong("ID",1000);
	caller.AddDate("Time",DateTime.Now);
	DB.Execute(caller);
	string varName = caller["Name"].ToString();

	''Deserialization collection of order
	Entity entity = new Entity("Orders", true);
	entity.Append("ID , CustOrderID,Vendor, Date");
	entity.Append("Address1 , Address2, Address3");
	entity.Append("BuyerID , RefA, RefB, Tag");
	entity.Append("TotalExt , GSTExt, PSTExt");
	Entity rowdef = entity.AppendEntity("Orderrows", "Orderrows", "ID To OrderID");
	rowdef.Append("OrderID,LineID , ItemID, Quantity");
	rowdef.Append("PurchUnit , TeknDescription, TeknPrice");
	rowdef.Append("PricUnit , DelivDate");
	rowdef.Append("Quantity * TeknPrice as Total");
	rowdef.Append(@"iif(UCase(ItemID) Like '%\P%' ,'Special','Regular') as Type");
	entity.Add("Sum(Orderrows.Quantity) as TotalQuantity");
	entity.Add("Sum(Orderrows.Total) as TotalPrice");
	Collection Orders = new Collection("NetSales.Customers.Order");
	Orders.Deserialize(entity);
	double total;
	foreach(Order order in Orders)
	{
	total = 0;
	foreach(Orderrow row in order) total += row.total;
	if (total > 1000)
	{
	order.buyer.AddPriority();
	order.salesman.AddPriority();
	}
	}

	//Serialization changed objects in collection to db
	Orders.Serialize();

	//Sending data to email box
	emp="Select * From Employees Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
	cust="Select * From Customers Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
	DB.Execute(emp,DateTime.Now.Month,DateTime.Now.Day);
	reader = DB.Lookup(cust,DateTime.Now.Month,DateTime.Now.Day);
	Mailer mailer = new Mailer();
	mailer.Logger.FileName = "c:\\maillog.log";
	mailer.Logger.ErrorFileName = "c:\\mailerror.log";
	mailer.Host = "MainHost";
	mailer.FromAddress = "root@webudp.com";
	mailer.SendTo(reader);
	reader.NextResult();
	mailer.SendTo(reader);

	//Get object by "Employee ID" primary key and send to email postbox in XML format
	Employee emp = DB.Deserialize("NetSales.Employees.Employee",1001) as Employee;
	emp.AddSalary(1000);
	mailer.SendTo(emp);
	DB.Serialize(emp);