Rodney Vinyard - .NET & SQL Developer

To Use VS 2005 Web Deployment Projects

Rodney Vinyard — Mon, 01 Dec 2008 18:13:18 GMT

To Use VS 2005 Web Deployment Projects

1. install VS 2005 Web Deployment Project add-in at "setup" link below

a. http://msdn.microsoft.com/en-us/asp.net/aa336619.aspx

2. In File Name Box - "*.*" -> Click Open Button

3. Select an available .wdproj file

Get email addressees of all users from all mails in Outlook Folder

Rodney Vinyard — Sat, 08 Nov 2008 14:06:39 GMT

Get email addressees of all users from all mails in Outlook Folder

Original Article:

http://msmvps.com/blogs/omar/archive/2006/08/09/get-email-address-of-all-users-from-all-mails-in-outlook-folder.aspx

Sometimes you want to send some important notice to everyone who has ever mailed you. Let's say you have a folder named "Friends" in Outlook where you store all the emails from your friends. Now you want to get all of their email addresses (from the folder, not from the email bodies). Pretty difficult work if you have thousands of such mails. Here's an easy way.

Select the folder in Outlook and press ALT+F11. It will open Visual Basic Editor.
Double click on ThisOutlookSession from the Project tree.
Set a reference to Microsoft Scripting Dictionary
Paste the following function:

Hit F5 and it will run for a while. Then press Ctrl+G. You will see the email addresses in the "Immediate Window".

Copy the whole string and you have all the email addresses from all the emails in the selected Outlook folder. There will be no duplicate address in the list.

Sub GetALLEmailAddresses()

Dim objFolder As MAPIFolder
Dim strEmail As String
Dim strEmails As String
''' Requires reference to Microsoft Scripting Runtime
Dim dic As New Dictionary
Dim objItem As Object

''Set objFolder = Application.ActiveExplorer.Selection
Set objFolder = Application.GetNamespace("Mapi").PickFolder

For Each objItem In objFolder.Items

   If objItem.Class = olMail Then

       strEmail = objItem.SenderEmailAddress

If Not dic.Exists(strEmail) Then

strEmails = strEmails + strEmail + vbCrLf

dic.Add strEmail, ""

End If

End If

Next

Debug.Print strEmails

End Sub

simulate: “file Streams into Memory, then JOIN the data in Memory, via LINQ to Objects”

Rodney Vinyard — Fri, 24 Oct 2008 02:45:29 GMT

simulate: “file Streams into Memory, then JOIN the data in Memory, via LINQ to Objects”

original article: http://blogs.claritycon.com/blogs/don_peterson/archive/2007/11/04/3433.aspx

I wrote up a quick little WinForms project in VS2008 with .NET Framework 3.5,

Code overview:

1. On Form_Load,

a. create a List of People into DataDridView and in Memory

b. create a List of Jobs into DataDridView and in Memory

c. create a List of JobIds into ComboBox

2. On ComboBox_SelectedIndexChanged,

a. Perform LINQ to Objects query: “Select from People JOINED to Jobs by JobId”

b. Show query result in list box

You can probably do this with nHibernate too.

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace FascetLINQtoObjects

{

publicpartialclassForm1 : Form

{

public Form1()

{

InitializeComponent();

}

//-----------------------------------------------------

//Form Scope (To hold & share LINQ Objects' state) -

//-----------------------------------------------------

List<Person> people = newList<Person>();

List<Job> jobs = newList<Job>();

bool _loaded = false;

privatevoid Form1_Load(object sender, EventArgs e)

{

//-----------------------------------------------------

//Form Load Load LINQ Objects' state

//Simulate Fascet Client data streaming into Fascet Winform

//-----------------------------------------------------

people.Add(newPerson("Gerald", DateTime.Parse("1/2/2003"), 3));

people.Add(newPerson("Linda", DateTime.Parse("2/2/2002"), 1));

people.Add(newPerson("Sarah", DateTime.Parse("4/2/2002"), 1));

people.Add(newPerson("Bill", DateTime.Parse("4/5/2006"), 2));

jobs.Add(newJob(1, "Developer", "Microsoft", "West"));

jobs.Add(newJob(2, "Developer", "Microsoft", "East"));

jobs.Add(newJob(3, "Technical Account Representative", "Microsoft", "Central"));

//-----------------------------------------------------

//Bind to Jobs DataGridView

//-----------------------------------------------------

dgPeople.DataSource = people;

this.dgJobs.DataSource = jobs;

//-----------------------------------------------------

//Bind to Jobs comboBox

//-----------------------------------------------------

this.cboJob.DataSource = jobs;

this.cboJob.ValueMember = "ID";

this.cboJob.DisplayMember = "ID";

//-----------------------------------------------------

//ShowPersonJob

//-----------------------------------------------------

int jobId = int.Parse(cboJob.SelectedValue.ToString());

ShowPersonJob(jobId);

_loaded = true;

}

privatevoid ShowPersonJob(int jobId)

{

//-----------------------------------------------------

//query joined LINQ objects

//-----------------------------------------------------

var result = from p in people

from j in jobs

where p.JobID == j.ID

&& j.ID == jobId

selectnew

{

p.Name,

j.Company,

j.Title

};

//-----------------------------------------------------

//display query result

//-----------------------------------------------------

this.listBox1.DataSource = result.ToList();

}

privatevoid cboJob_SelectedIndexChanged(object sender, EventArgs e)

{

//-----------------------------------------------------

//ShowPersonJob

//-----------------------------------------------------

if (_loaded)

{

//-----------------------------------------------------

int jobId = int.Parse(cboJob.SelectedValue.ToString());

ShowPersonJob(jobId);

}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace FascetLINQtoObjects

{

classPerson

{

string _name = "";

publicstring Name

{

get { return _name; }

set { _name = value; }

}

DateTime? _Birthday;

publicDateTime? Birthday

{

get { return _Birthday; }

set { _Birthday = value; }

}

int _jobID = 0;

publicint JobID

{

get { return _jobID; }

set { _jobID = value; }

}

public Person(string name, DateTime birthday, int jobID)

{

this._name = name;

this._Birthday = birthday;

this._jobID = jobID;

}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace FascetLINQtoObjects

{

classJob

{

string _title = "";

publicstring Title

{

get { return _title; }

set { _title = value; }

}

string _company = "";

publicstring Company

{

get { return _company; }

set { _company = value; }

}

int _id = 0;

publicint ID

{

get { return _id; }

set { _id = value; }

}

string _location = "";

publicstring Location

{

get { return _location; }

set { _location = value; }

}

public Job(int id, string title, string company, string location)

{

_title = title;

_id = id;

_company = company;

_location = location;

}

List All Primary Keys and Foreign Keys

Rodney Vinyard — Thu, 23 Oct 2008 15:49:57 GMT

List All Primary Keys and Foreign Keys

Original article: http://www.sqlteam.com/forums/topic.asp?TOPIC_ID=41896

set nocount on
create table #PK(constraint_schema sysname not null, constraint_name sysname not null, sql varchar(4000) not null, constraint PK_#PK primary key clustered(constraint_schema, constraint_name))
create table #cols(constraint_schema sysname not null, constraint_name sysname not null, column_name sysname not null, ordinal_position int not null, constraint PK_#PKcol primary key clustered(constraint_schema, constraint_name, ordinal_position))
create table #FK(constraint_schema sysname not null, constraint_name sysname not null,
unique_constraint_schema sysname not null, unique_constraint_name sysname not null,
sql varchar(4000) not null, constraint PK_#FK primary key clustered(constraint_schema, constraint_name))

insert into #PK
select constraint_schema, constraint_name, 'ALTER TABLE ' + quotename(table_schema) + '.' + quotename(TABLE_NAME) +
' ADD CONSTRAINT ' + quotename(CONSTRAINT_NAME) +
' PRIMARY KEY ' + CASE WHEN si.indid<>1 THEN 'NON' ELSE '' END +
'CLUSTERED (>cols<) WITH FILLFACTOR=' + cast(si.OrigFillFactor as varchar) + ' ON ' + quotename(fg.groupname)
AS SQL
from INFORMATION_SCHEMA.TABLE_CONSTRAINTS TC
INNER JOIN sysindexes si on TC.CONSTRAINT_NAME=si.name
inner join sysfilegroups fg on si.groupid=fg.groupid
WHERE CONSTRAINT_TYPE IN('PRIMARY KEY','UNIQUE')

insert into #fk
select c.constraint_schema, c.constraint_name, c.unique_constraint_schema, c.unique_constraint_name,
'ALTER TABLE ' + quotename(F.table_schema) + '.' + quotename(F.table_name) +
' ADD CONSTRAINT ' + quotename(F.constraint_name) +
' FOREIGN KEY(>cols<) REFERENCES ' + quotename(r.table_schema) + '.' + quotename(r.table_name) +
'(>rcols<)'
AS sql
FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS F
INNER JOIN INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS C ON F.constraint_schema=C.constraint_schema AND f.constraint_name=c.constraint_name AND F.constraint_type='FOREIGN KEY'
INNER JOIN INFORMATION_SCHEMA.TABLE_CONSTRAINTS R ON R.constraint_schema=C.unique_constraint_schema AND r.constraint_name=c.unique_constraint_name AND r.constraint_type in ('PRIMARY KEY','UNIQUE')
ORDER BY F.table_name, r.table_name

insert into #cols
select constraint_schema, constraint_name, COLUMN_NAME, ORDINAL_POSITION from INFORMATION_SCHEMA.KEY_COLUMN_USAGE

declare @ctr int, @max int, @delim varchar(1)
select @ctr=1, @max=max(ordinal_position), @delim='' from #cols

set nocount on
while @ctr<=@max
BEGIN

update P SET SQL=Replace(SQL, '>cols<', @delim + quotename(c.column_name) + '>cols<')
FROM #PK P INNER JOIN #cols C ON P.constraint_schema=C.constraint_schema AND P.constraint_name=C.constraint_name
WHERE C.ORDINAL_POSITION=@ctr

UPDATE F SET SQL=Replace(Replace(SQL, '>cols<', @delim + quotename(c.column_name) + '>cols<'), '>rcols<', @delim + quotename(r.column_name) + '>rcols<')
FROM #FK F INNER JOIN #cols C ON F.constraint_schema=C.constraint_schema AND F.constraint_name=C.constraint_name AND C.ordinal_position=@ctr
INNER JOIN #cols R ON F.unique_constraint_schema=R.constraint_schema AND F.unique_constraint_name=R.constraint_name AND C.ordinal_position=R.ordinal_position

select @ctr=@ctr+1, @delim=','
END
set nocount on

update #PK SET SQL=Replace(SQL, '>cols<', '')
update #FK SET SQL=Replace(Replace(SQL, '>cols<', ''), '>rcols<', '')

select sql from #PK order by sql
select sql from #FK order by sql

drop table #pk
drop table #fk
drop table #cols

regex zip code 5 or 9 digits for "complete" ASP.NET zip code text box

Rodney Vinyard — Thu, 25 Sep 2008 02:40:56 GMT

Here is an example of Asp.NET Web page - "complete" zip code text box

1) regex for xxx -> ="^(\d{5}|\d{5}\-\d{4})"

2) zip code text box with

a) regex RegularExpressionValidator

b) RequiredFieldValidator

<asp:TextBox ID="txtZip" runat="server" MaxLength="10" Width="100px" ></asp:TextBox>

<asp:RegularExpressionValidator

ID="RequiredFieldValidatorZip"

ControlToValidate="txtZip"

ValidationExpression="^(\d{5}|\d{5}\-\d{4})$"

ErrorMessage="Zip code must be numeric nnnnn or nnnnn-nnnn."

Display="dynamic"

RunAt="server"></asp:RegularExpressionValidator>

<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ErrorMessage="Zip is a required field!" ControlToValidate="txtZip"></asp:RequiredFieldValidator>

Windows XP Backup

Rodney Vinyard — Thu, 28 Aug 2008 20:27:54 GMT

Windows XP Backup

http://www.microsoft.com/windowsxp/using/setup/learnmore/bott_03july14.mspx

Generic xmlTextReader

Rodney Vinyard — Wed, 13 Aug 2008 14:26:44 GMT

Generic xmlTextReader

Original article:

http://www.dotnetspider.com/resources/1671-Reading-xml-file-simple-way-by-using-XmlTex.aspx

////------------------------------------------------------------------

////convert XML string to MemoryStream

////------------------------------------------------------------------

MemoryStream memoryStream = new MemoryStream();

byte[] data = Encoding.Unicode.GetBytes(strippedXml);

memoryStream.Write(data, 0, data.Length);

memoryStream.Position = 0;

////------------------------------------------------------------------

////convert MemoryStream to xmlTextReader

////------------------------------------------------------------------

//XmlTextReader xmlTextReader = new XmlTextReader(Server.MapPath("test.xml"));

XmlTextReader xmlTextReader = new XmlTextReader(memoryStream);

////------------------------------------------------------------------

////

////------------------------------------------------------------------

while (xmlTextReader.Read())

{

switch (xmlTextReader.NodeType)

{

case XmlNodeType.Element:

Debug.WriteLine(xmlTextReader.Name.ToString());

break;

case XmlNodeType.Text:

Debug.WriteLine(xmlTextReader.Value.ToString());

break;

case XmlNodeType.EndElement:

Debug.WriteLine(xmlTextReader.Name.ToString());

break;

}

indent xml with .NET

Rodney Vinyard — Mon, 11 Aug 2008 14:09:56 GMT

Original Article:

http://bytes.com/forum/thread176986.html

Is there a simple way to indent xml with dotnet? SQL Server returns a long xml string that is hard
> to read.[/color]

XmlReader r = new XmlTextReader(new StringReader(myXML));
StringWriter sw = new StringWriter();
XmlTextWriter w = new XmlTextWriter(sw);
w.Formatting = Formatting.Indented;
while (r.Read())
w.WriteNode(r, false);
w.Close();
r.Close();
Console.WriteLine(sw.ToString());
--
Oleg Tkachenko [XML MVP]
http://blog.tkachenko.com

CVS Source Control - Users Guide

Rodney Vinyard — Thu, 31 Jul 2008 17:56:15 GMT

CVS Source Control - Users Guide

http://cvsgui.sourceforge.net/winhtml/wincvs11.htm

CVS Source Control - Users Guide

Rodney Vinyard — Thu, 31 Jul 2008 17:55:59 GMT

CVS Source Control - Users Guide

http://cvsgui.sourceforge.net/winhtml/wincvs11.htm

visio automation

Rodney Vinyard — Tue, 29 Jul 2008 01:03:32 GMT

1) http://blogs.msdn.com/visio/archive/2006/06/13/624391.aspx

1a) http://office.microsoft.com/en-us/visio/HA011822551033.aspx

2) http://www.microsoft.com/communities/newsgroups/en-us/default.aspx?dg=microsoft.public.visio.developer&tid=bc85a37f-451c-46c1-b18b-5201dc10ec9a&cat=en_US_7dd7f818-5a21-4dac-938b-9ac892ab60f3&lang=en&cr=US&sloc=&p=1

Hi,
I am trying to programatically automate the Org Chart Wizard(Visio 2003) in
C#. But when I attempt to connect to a SQL Server 2005, I get an error
message- "Invalid data. Your data file is empty".
I tried programming Excel file to be the data source, it worked fine.
I manually ran the wizard using the SQL data source, it worked fine.
But when I try to code it to work with the same SQL Server data source, I
get this error. It is able to connect to the data source but it is not able
to connect to the database.
I tried changing the name of the datasource, changing it to a different
server, tried connecting it to different databases but it does not work for
any database.

The code for connecting to database is-

commandPart = "/DATASOURCE="
+ formatHelper.StringToFormulaForString(data_source_name);
commandPart = commandPart + "," + "/TABLE=";
commandPart = commandPart +
formatHelper.StringToFormulaForString(Table_containing_information);
commandPart = commandPart + "," + "/DBQUALIFIER=";
commandPart = commandPart +
formatHelper.StringToFormulaForString(database_name);
chartWizard.Run(command + commandPart);

I tried running the orgwiz.exe with command line arguements, but again it
can connect to the data source but it says "Invalid data. Your data file is
empty"
Please help.
Thanks,
Archana

nhibernate - Getting Started

Rodney Vinyard — Mon, 28 Jul 2008 20:05:58 GMT

1) nHibernate Quick Start Guide

http://www.hibernate.org/362.html

1a) NHibernate Best Practices with ASP.NET, 1.2nd Ed

http://www.codeproject.com/KB/architecture/NHibernateBestPractices.aspx

2) http://www.beansoftware.com/asp.net-tutorials/nhibernate-log4net.aspx

find columns and tables in a view

Rodney Vinyard — Tue, 29 Apr 2008 16:54:49 GMT

find columns and tables in a view

SELECT vObj.name AS vName, vObj.id AS vID, vObj.xtype AS vType,

dep.depid, dep.depnumber, tObj.name AS tName, col.colid,

col.name AS cName

FROM sysobjects vObj LEFT OUTER JOIN

sysdepends dep ON vObj.id = dep.id LEFT OUTER JOIN

sysobjects tObj ON dep.depid = tObj.id LEFT OUTER JOIN

syscolumns col ON dep.depnumber = col.colid

AND tObj.id = col.id

WHERE vObj.xtype = 'V' And vObj.category = 0

and vObj.name = 'vw1_inv_item_det'

ORDER BY vObj.name, tObj.name, col.name