Simple_Thing

Create SQL Server Reporting Service Explorer and Report Viewer with C# Part 1

noreply@blogger.com (Ronsi) — Sat, 11 Jul 2009 05:13:00 +0000

Today we will try to create an C# winform application that will explore the SQL Server Reporting Service structure and create a report viewer using reportviewer control.

First, you must have SQL Reporting Server.I have found a detail step-by-step SQL Server 2005 Report installation guide here. After SQL Server Report has already installed, we need Web Service URL that will be referenced by our apps later. You can find this URL by open Reporting Service Configuration Manager menu, click Web Service URL. this URL should be like this "http://ServerName/ReportServer".

Now, create a new C# winform project.

- Add Web Service Reference.

Right click Project name, click Add Service Reference.

Input your Web Service URL + "/reportservice2005.asmx" in "Address" textbox.

If you webservice URL : http://MyServerName/MyReportServer, then you have to input in Address text box : http://MyServerName/MyReportServer/reportservice2005.asmx then click GO. If Service is found, it will be listed in Services List. In this apps we will use Web Service, instead of Service Reference. To add a web service of current Report Service, click Advance button, Service Reference Settings will be openned, click Add Web Reference. Once again input Web Service URL into Address textbox Click Go. If everything OK, Webservice description will be shown and default web reference name is your reporting server name. You can change this default if you want, then click Add Reference button.

After click Add Reference, in project explorer you will see a new folder named Web Reference is automatically generated,your Web Reference name has already added in this folder, ready to be used by our project. FYI, this web reference is only, some kind of "template". We don;t have to add another Web Service for different SQL Reporting Server. We only need to change Web Service URL, dynamically in source code.

OK, now we're ready to create a report service explorer.

Add A text box : ReportServerURL- (Url address);, Treeview:tvReportServer (Report Service Explorer), Listview:lvItems(Report Item) and a button:getFolders for refresh Reporting Service.

References :

using System;

//RSS_Report_Retrievers : Name Space; ReportWS : your web reference name
using RSS_Report_Retrievers.ReportWS;

using System.Windows.Forms;
using System.Text.RegularExpressions;
using System.Web.Services.Protocols;

add reporting Service variable in this form.

ReportWS.ReportingService2005 rs = new RSS_Report_Retrievers.ReportWS.ReportingService2005();

a helper procedure :

private void AddNode(string name,string BaseURL)
{
TreeNode newNode = new TreeNode(name);
newNode.ToolTipText = BaseURL;
tvReportServer.SelectedNode.Nodes.Add(newNode);
}

getFolders button click code :

private void getFolders_Click_1(object sender, EventArgs e)
{
tvReportServer.Nodes.Clear();
lvItems.Items.Clear();
rs.Credentials = System.Net.CredentialCache.DefaultCredentials;
TreeNode root = new TreeNode();
root.Text = "Root";
tvReportServer.Nodes.Add(root);
tvReportServer.SelectedNode = tvReportServer.TopNode;
CatalogItem[] items = null;
rs.Url = ReportServerURL.text;
// Retrieve a list of items from the server
try
{
items = rs.ListChildren("/", true);
int j = 1;
// Iterate through the list of items and find all of the folders
// and display them to the user
foreach (CatalogItem ci in items)
{
if (ci.Type == ItemTypeEnum.Folder)
{
Regex rx = new Regex("/");
int matchCnt = rx.Matches(ci.Path).Count;
if (matchCnt > j)
{
tvReportServer.SelectedNode =
tvReportServer.SelectedNode.LastNode;
j = matchCnt;
}
else if (matchCnt < selectednode =" tvReportServer.SelectedNode.Parent;" j =" matchCnt;" type ="=" strpath =" ci.Path.Split('/');" lvi =" new" text =" ci.Name;" tooltiptext =" ci.Path;" imageindex =" ci.Hidden" tag =" ItemTypeEnum.Report;" hideselection =" false;">

on Click node event :

private void tvReportServer_NodeMouseClick(object sender, TreeNodeMouseClickEventArgs e)
{
GetItems(e.Node.ToolTipText);
}

style="font-size:85%;">public void GetItems(string strPath) { CatalogItem[] items = null; lvItems.Items.Clear(); try { //false : get item on selected folder //true : get all item, include subfolder items = rs.ListChildren(strPath=="" ? "/":strPath, false); // Iterate through the list of items and find all of the folders // and display them to the user foreach (CatalogItem ci in items) { if (ci.Type == ItemTypeEnum.Report ) { ListViewItem lvi = new ListViewItem(); lvi.Text = ci.Name; lvi.ToolTipText = ci.Path; switch (ci.Type) { case ItemTypeEnum.Report: lvi.ImageIndex = ci.Hidden ? 5 : 1; lvi.Tag = ItemTypeEnum.Report; break; } lvItems.Items.Add(lvi); } } } catch (SoapException ex) { MessageBox.Show(ex.Detail.InnerXml.ToString()); } catch (Exception ex) { MessageBox.Show(ex.Message); } }

Here is a sample application screen shot, in Part 2 we will add a Report Viewer.

to be continued....

noreply@blogger.com (Ronsi) — Mon, 23 Mar 2009 05:20:00 +0000
#!/bin/bash
#script to play xmacro file in x millisecond interval and play it x times
for (( c=1; c<=$3; c++ ))
do
cat $1 | xmacroplay -d $2 :0
done
echo "End Macro.. thank you for playing with me.. "

Excel VBA Macro Programming

noreply@blogger.com (Ronsi) — Fri, 06 Mar 2009 05:27:00 +0000
Product Description
Make Excel work harder and faster for you. This unique book presents sample code for more than twenty practical, high-powered Excel VBA macro applications. You'll get all the essentials of VBA, and then explore ways to power Excel with VBA. Automate tasks, convert numbers to labels, transpose cells, add formula details, globally changes values, and much, much more.
download here

Blogging with the New Google Blogger

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 09:46:00 +0000

Blogging with the New Google Blogger is a digital short cut that covers Google's newest version of Blogger, their free software for creating a website from which to post thoughts, interact with people, and more. This short cut serves as an introduction to the world of blogging and to the Blogger application, as well as a guide to the new version of Blogger. Readers will learn how the new version of Blogger differs from the original version and how to create a Blogger blog. Advanced users will appreciate the information on customizing blog templates, using HTML, hosting their own Blogger blog, syndicating their blogs with RSS and Atom feeds, and making money with blog advertising.

download...[x0x0x0]

SEO Book

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 09:43:00 +0000
Search engines take advantage of reverse broadcast networks to help save you time and money. Search allows you to "sell what your customers want, when they want it!"

Finding Prospects

I had just finished reading Permission Marketing when I exchanged in one of the most interesting chat sessions of my life. A random kid from California instant messaged me to say hello. In much the same way as other marketers do, he scouted the web to find his ideal client. This guy searched through Yahoo! profiles and found that on my profile I wrote that I collected baseball cards.

He wanted to know if Barry Bonds was my favorite player. He told me he had over 16,000 Barry Bonds cards. I told him that I had an autographed serial numbered Barry Bonds rookie, but baseball cards did not mean much to me anymore.

I asked if he did business over the internet. He, of course, said no. It was clear to me why. He had no way to display any of his cards, and he was using spam to contact people. I asked him if he wanted to have a website on which to sell his cards.

He told me he couldn't afford it. He said that it was too expensive. What is a fair price for limitless distribution?
download ....{oooo}

Google Adsense Secret Expanded

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 09:39:00 +0000
Introduction

How To Make More Money With Google AdSense

Google wants a slice of your traffic. And they're willing to pay big bucks!

For those who have been complaining of high traffic and low sales, there's simply no better way to cash in on those hard-earned visitors to your web pages.

AdSense makes it so easy!

There's no complicated software to install, no need to scout for affiliates, nothing to buy and no need to even have a merchant account. So…

Why isn't everybody doing this? More importantly, why isn't everybody making the most of it?

It's "Hidden Money"

"Seeing is believing", they say. Most webmasters love to obsessively track their visitors, earnings and CTR's several times a day. They love to see what's there, but they often miss what can be.

AdSense doesn't give you ultimate control over which ads are served, how the ads are rotated or what each click is worth. That's a good thing, because it's hands-free income. (It does give you some control though, and I’ll tell you how to use those controls in this book.)

But many webmasters still think that once you've stuck the AdSense code on your page, there's little you can do except wait and watch.

Nothing could be further from the truth! Google gives you a great deal of control over your ads, and especially their visual or graphic elements. By tweaking these elements to your advantage, you could easily — in as little as a few minutes — multiply your click-throughs many, many times over!
download ..(*)(*)...

Adsense BlackHat Edition

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 09:31:00 +0000
Even if you’re still a beginner, once you are familiar with AdSense, chances are that you will be able to use apply these techniques on your own to start earning revenue in only hours.

“BlackHatting,” a term which refers to the methods and techniques contained within this ebook, is often considered by industry professionals as being closely related to spamming. Some may even say it is unethical. However, to a skilled BlackHatter, it’s a matter of semantics. To be successful, a BlackHatter will do whatever it takes to achieve their objectives. For instance, if a particular search engine prefers sites that are heavily linked to, we will find every corner of the web where we can plant our links in an effort to appease that engine. In fact, this is a huge part of the overall SEO process.

Now, if we can drive traffic to 100 pages, we can drive traffic to 1,000,000 pages. The key to being successful is being able to instantly create those pages on the fly, and keep them relevant so traffic will keep being directed to them. It’s really as simple as that...>>000<

1000 Java tips

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 08:20:00 +0000

Prepare for your Java certifications...
the link

Designing Interfaces

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 08:16:00 +0000

Designing a good interface isn't easy. Users demand software that is well-behaved, good-looking, and easy to use. Your clients or managers demand originality and a short time to market. Your UI technology -- Web applications, desktop software, even mobile devices -- may give you the tools you need, but little guidance on how to use them well.

UI designers over the years have refined the art of interface design, evolving many best practices and reusable ideas. If you learn these, and understand why the best user interfaces work so well, you too can design engaging and usable interfaces with less guesswork and more confidence.

Designing Interfaces captures those best practices as design patterns -- solutions to common design problems, tailored to the situation at hand. Each pattern contains practical advice that you can put to use immediately, plus a variety of examples illustrated in full color. You'll get recommendations, design alternatives, and warnings
on when not to use them.

Each chapter's introduction describes key design concepts that are often misunderstood, such as affordances, visual hierarchy, navigational distance, and the use of color. These give you a deeper understanding of why the patterns work, and how to apply them with more insight.

A book can't design an interface for you -- no foolproof design process is given here -- but Designing Interfaces does give you concrete ideas that you can mix and recombine as you see fit. Experienced designers can use it as a sourcebook of ideas. Novice designers will find a roadmap to the world of interface and interaction design, with enough guidance to start using these patterns immediately.
here it is

.NET Book Zero

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 07:43:00 +0000
What the C or C++ Programmer Needs to
Know about C# and the .NET Framework
by
Charles Petzold

Why This Book?
Some books have a Chapter Zero. That‘s the chapter with the stuff the
reader needs to know before reading Chapter One. Chapter Zero might be
a refresher course in subjects the reader once knew but has now forgot-
ten, or it might be a quick-and-dirty summary of prerequisites for the
rest of the book.
This book originated as a Chapter Zero in my book Applications = Code +
Markup: A Guide to the Microsoft Windows Presentation Foundation
(Microsoft Press, 2006), which is about the new Windows client program-
ming platform that‘s part of Microsoft .NET 3.0 and Microsoft Windows
Vista.
I wanted Applications = Code + Markup to focus almost exclusively on the
Windows Presentation Foundation. I knew there was enough to cover
without going into the basics of general .NET programming and C#. Yet, I
wasn‘t sure how much .NET my readers would know. I started writing a
Chapter Zero for the book that would summarize all the basics of .NET
and C# for the C and C++ programmers who might be coming to .NET for
the very first time.
It soon became evident that this Chapter Zero would be very long. It
occurred to me that I could extract the material and make it a book on
its own. And so I did and this is it. What you have in your hands (or are
reading on a screen) is an introduction to C# and those topics in .NET
that are typically found in all .NET programming... get it here

Java Script Hijacking

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 07:28:00 +0000
An increasing number of rich Web applications, often called Ajax applications, make use of
JavaScript as a data transport mechanism. This paper describes a vulnerability we term JavaScript
Hijacking, which allows an unauthorized party to read confidential data contained in JavaScript
messages. The attack works by using a [script] tag to circumvent the Same Origin Policy
enforced by Web browsers. Traditional Web applications are not vulnerable because they do not
use JavaScript as a data transport mechanism.
We analyzed 12 popular Ajax frameworks ... get it here

Spidering Hacks

noreply@blogger.com (Ronsi) — Sat, 21 Feb 2009 07:21:00 +0000

Why Spidering Hacks?
The term hacking has a bad reputation in the press. They use it to refer to someone who breaks into systems or wreaks havoc with computers as their weapon. Among people who write code, though, the term hack refers to a "quick-n-dirty" solution to a problem or a clever way to get something done. And the term hacker is taken very much as a compliment, referring to someone as being creative, having the technical chops to get things done. The Hacks series is an attempt the reclaim the word, document the ways people are hacking (in a good way), and pass the hacker ethic of creative participation on to the uninitiated. Seeing how others approach systems and problems is often the quickest way to learning about a new technology.

Spidering Hacks is about coming up with easier, more automated ways of performing everyday tasks and gathering information. Yes, there are legal issues to consider, and we address them in this book before delving into any code whatsoever. Likewise, there are many right and wrong ways to scrape and compile information; the best practices in this book create wholesome spiders, as opposed to harmful or out-of-control automatons.

download here

MCDST 70-271 Supporting Users and Troubleshooting a MS Windows XP OS

noreply@blogger.com (Ronsi) — Thu, 19 Feb 2009 07:02:00 +0000

Supporting Users and Troubleshooting a MS Windows XP OS 199q
Number: 70-271
Passing Score: 850
Time Limit: 120 min
File Version: 4-4-06

Exam A
QUESTION 1
You are the help desk support staff for Nightshade.com. Nightshade.com uses Windows XP Professional as
the mainstream desktop OS. You need to install XP. You want to modify the way the wizard installs Windows
XP Professional. Which of the following are NOT the valid ways to do so? (choose all that apply).
A. Choose the Advanced Options of the Setup Wizard
B. Choose the Custom Options of the Setup Wizard
C. Choose the Advanced Options of NTDSUTIL
D. Prepare a customized setup.sif file manually
E. Prepare a customized winnt.ini file manually
Answer: BCDE
Section: (none)
Explanation/Reference:
According to Microsoft KB: If you want to modify the way the wizard installs Windows XP Professional, click
Advanced Options, and then ....download here

Beautiful Architecture, 1st Edition

noreply@blogger.com (Ronsi) — Wed, 18 Feb 2009 09:42:00 +0000

Publisher: O'Reilly Media, Inc.
Pub Date: January 29, 2009
Print ISBN-13: 978-0-596-51798-4

Pages: 432
Download
FileFactory
Ziddu
Overview

What are the ingredients of robust, elegant, flexible, and maintainable software architecture? Beautiful Architecture answers this question through a collection of intriguing essays from more than a dozen of today's leading software designers and architects. In each essay, contributors present a notable software architecture, and analyze what makes it innovative and ideal for its purpose. Some of the engineers in this book reveal how they developed a specific project, including decisions they faced and tradeoffs they made. Others take a step back to investigate how certain architectural aspects have influenced computing as a whole. With this book, you'll discover:

How Facebook's architecture is the basis for a data-centric application ecosystem

The effect of Xen's well-designed architecture on the way operating systems evolve

How community processes within the KDE project help software architectures evolve from rough sketches to beautiful systems

How creeping featurism has helped GNU Emacs gain unanticipated functionality

The magic behind the Jikes RVM self-optimizable, self-hosting runtime

Design choices and building blocks that made Tandem the choice platform in high-availability environments for over two decades

Differences and similarities between object-oriented and functional architectural views

How architectures can affect the software's evolution and the developers' engagement

Go behind the scenes to learn what it takes to design elegant software architecture, and how it can shape the way you approach your own projects, with Beautiful Architecture.

Get MSAccess Database Structure from VB

noreply@blogger.com (Ronsi) — Wed, 11 Feb 2009 07:23:00 +0000

It will be great if we can build the structure of MS Access file, outside MS Access application. We can explore them and if possible update them.
At first, I thought MSAccess have some kind of header file yg store the it's structure. But I was wrong. Ms access objects are stored in system Objects database (MSysobjects)!!!!. I never knew that Access also have system objects like SQL Server (Sysobjects). So I start to dig this table deeper. And I have to face the first challenge.... If we connect to Access DB, the default is we don't have right to SELECT MSysobjects table. I have tried to search in internet, they suggest to grant access to all MS Access object to administrator by using MS Access application. I can't take this as a solution for this problem, I have to stop for a moment... caused I don't know the solution.
After searching deeper again, i find the simple solution for this. MS Access has a file that store Access user logins and passwords from Workgroup information, it;s called System.mdw. We will add this file in connection string.
Here is the standard connection string
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office12\Samples\Northwind.mdb;
And this is additional "system.mdw" (xxxx would be windows user):
Jet OLEDB:System Database=C:\Documents and Settings\xxxx\Application Data\Microsoft\Access\system.mdw
With this connection string, we can execute this query "GRANT SELECT ON TABLE MSysObjects TO PUBLIC".
Next, we can SELECT the MSysObjects.
We will only look at these fields (Name and Type), other fields will be on the post..
Field Type is describe the type of access object. Here is list of Access Object Type
Type of Object Value of MSysObjects.Type
Tables 1
Attached Tables 6
Forms -32768
Queries 5
Reports -32764
Modules -32761
here is the sample code
Private Sub Command1_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sPath As String
Dim sSQL As String
Dim cmd As ADODB.Command

sPath = "C:\Program Files\Microsoft Office\Office12\Samples\Northwind.mdb"
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office12\Samples\Northwind.mdb;" & _
"Jet OLEDB:System Database=C:\Documents and Settings\ronsi\Application Data\Microsoft\Access\system.mdw"
db.ConnectionString = sConn
db.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = db
cmd.CommandType = adCmdText
cmd.CommandText = "GRANT SELECT ON TABLE MSysObjects TO PUBLIC"
cmd.Execute

sSQL = "SELECT Name,type,owner,parentid FROM MSysobjects order by type"

With rs
.ActiveConnection = db
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open sSQL
End With

Dim s As String
For j = 0 To rs.Fields.Count - 1
s = s & vbTab & rs.Fields(j).Name
Next j

If rs.RecordCount > 0 Then
For i = 1 To rs.RecordCount
For j = 0 To rs.Fields.Count - 1
s = IIf(IsNull(rs.Fields(j).Value), "", rs.Fields(j).Value)
If j = 0 Then
ListView1.ListItems.Add , , s
Else
ListView1.ListItems(i).ListSubItems.Add , , s
End If
Next j
rs.MoveNext
Next i
End If
End Sub

that's it for now...
to be continued...

Using SQL Server Integration Services to Search Similar Data

noreply@blogger.com (Ronsi) — Mon, 09 Feb 2009 11:12:00 +0000
SQL Server 2005 Integration Services (SSIS) introduces two new tools designed for Data Warehousing, but their uses are far more than just warehousing. Fuzzy Lookups and Fuzzy Grouping can both improve quality of data. Fuzzy lookups is designed to correct errors in lookup tables such as misspelling in cities or states. Fuzzy grouping finds duplicates in datasets. The hospital where I work strives to identify and merge duplicates to improve and maintain one complete electronic medical record for each patient. We have been using the fuzzy grouping tool for the past 6 months.
The concept of fuzzy grouping is not new; many have used probabilistic linkage of datasets to find duplicates and related records in other datasets (for more info visit http://www.utcodes.org/Linkage/description.htm). Few commercial probabilistic linkage packages are available and they are expensive. With SSIS we now have a free tool to do probabilistic linkages.
Fix the SSIS executables first

First install service pack 2 or the memory leak fix http://support.microsoft.com/kb/912423/. This fix resolves many memory issues when using record sets with over 1 million records, but there are still issues with more than 4 million records. Fuzzy grouping is memory and processor intensive so running SSIS on a server separate from the databases is recommended. On a 1.8 GHZ Pentium IV with 512 MB. My tests running an 800,000 record dataset took 5 hours. Adding another 512MB reduced the run time to 2 hours.

Define A Dataset

Open Visual Studio and start a BI project then define an OLE DB Source dataset. Any definable dataset may be grouped, but as many temporary tables are created, you must have a connection to a SQL Server and be a user with permission to create tables. Also limiting your dataset to the fields to be used for grouping and a primary key will increase performance. Be wary of data types as many are not supported and datetime fields must be transformed to varchar.

Add A Fuzzy Grouping Step

Next add a Fuzzy Grouping package. Define the fields that identify the duplicates. Fields such as First Name, Last Name, Gender, and Date of Birth will prove sufficient to find duplicates. Fields with high discerning power such as Social Security number will improve accuracy and should be given a higher weight. A primary key should also be used as a pass-through in the dataset to aid in future joins of the result set. Define the type of grouping, either exact (data must be equal) or fuzzy (data is compared to determine similarity). The fuzzy grouping allows you to choose further options to ignore cases, punctuation, kana, non-spacing characters, character width or symbols.

Minimum Similarities
Minimum Similarities should be defined for each field. These thresholds define how closely you want each of the values to correspond. Minimum similarities are between 0 and 1. Where 1 means the values are exact and 0 means review everything. Setting a higher minimum similarity will speed the matching process. Minimum similarities are very dependent on data and the number of matches, and match quality will depend on these values. Setting minimum similarities too high will result in only closer to exact records being found. So you may need some experimentation to determine the best thresholds to use. For example, I like my dates of birth (dob) to be close, but I realize that data entry errors skew dates, so I set a threshold of .20 for dob. In the example below May 12 1972 is compared against May 12 1971 and the similarity score is .84 so it would make the cut. If unsure run some tests with no minimum similarities and review your resulting _similarity fields for each field. Take some averages and review the matches to determine what a good match is, then set your threshold at this level.

Minimum Thresholds

An overall minimum threshold must also be set. I have found that matches with my data get weak after .80. So I set my minimum overall threshold at .80. Again this is dependent on your data, accuracy of entry staff and how closely you want/need your records to match.

Define the Destination

The last step sets an OLE DB destination and either creates a new table or uses existing and matches the output fields in the fuzzy grouping step.

The outcome of the grouping will give a _key_in which is the unique key of the first table, a key_out field that identifies the unique groups, the _similarity_fieldname and the _score field that is the average of the _similarity_fieldname. The _score field is between 0 and 1 where a 0 is no similarity and 1 is exact.

Running the following dataset through the grouping:

Here is the sample input data:

And here are the output
please click the image for larger size

Here it grouped the first 3 records together and the last 3 together. Note it did not choose the correct name in grouping one, it simply noted that they are all the same. So if you want the "correct" person, as we did for the hospital, you will need a human to review the results. In our hospital database of over 1.4 million records we found over 5000 duplicates. Unfortunately the nature of the business requires us to review each of the dataset and pull medical records, so an automated merge process is out of the question. But Fuzzy Grouping has proved to be a very valuable tool and has given us many useful reports.

How to Configure SQL Server 2008 ?

noreply@blogger.com (Ronsi) — Thu, 05 Feb 2009 10:25:00 +0000

Can we configure SQL Server 2008 like the way we configure SQL Server 2005?

Since Surface Area Configuration tool has been removed from SQL Server 2008, there must be tools or menu that we can use for configure our SQL Server.

After searching in internet, i have found a menu in Management Studio.

In Object Explorer right click the Server object, select Facets.

Now you can configure SQL Server.

You can find all Configuration option in Facet Combo.

Let’s configure….

Testing BlogJet

noreply@blogger.com (Ronsi) — Thu, 05 Feb 2009 06:55:00 +0000

I have installed an interesting application - BlogJet. It's a cool Windows client for my blog tool (as well as for other tools). Get your copy here: http://blogjet.com

"Computers are incredibly fast, accurate and stupid; humans are incredibly slow, inaccurate and brilliant; together they are powerful beyond imagination." -- Albert Einstein

VB 2005 Google Maps - Where Am I

noreply@blogger.com (Ronsi) — Fri, 30 Jan 2009 06:43:00 +0000

Where am I ??? :)
Let's create an apps for display our city or address in a google maps.
This apps will launch a browser and show the maps of the inputted city or an address.
We need...
a Form
a button, it will launch the browser if clicked
a combo, for google map mode
a textbox, for input City or address
here is the code
First on form load, we will fill google maps mode to the combo (Map, Satellite, Terrain) and set the default to Map
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cboGoogle.Items.Add("Map")
cboGoogle.Items.Add("Satellite")
cboGoogle.Items.Add("Terrain")
cboGoogle.Text = "Map"
End Sub

And when the button clicked
Private Sub btnGoogle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGoogle.Click
' The basic map URL without the address information.
Const URL_BASE As String = "http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"

' URL encode the street address.
Dim addr As String = txtAddress.Text
addr = HttpUtility.UrlEncode(txtAddress.Text, System.Text.Encoding.UTF8)

' Insert the encoded address into the base URL.
Dim url As String = URL_BASE.Replace("@ADDR@", addr)

' Insert the proper type.
Select Case cboGoogle.Text
Case "Map"
url = url.Replace("@TYPE@", "m")
Case "Satellite"
url = url.Replace("@TYPE@", "h")
Case "Terrain"
url = url.Replace("@TYPE@", "p")
End Select

' "Execute" the URL to make the default browser display it.
Process.Start(url)
End Sub

oo.. almost forgot.., we use HttpUtility for encode the URL, so we need to add reference, System.Web and imports System.Web

A Simple VB Bouncing Ball

noreply@blogger.com (Ronsi) — Fri, 30 Jan 2009 04:16:00 +0000

Here is a simple code that will display a bouncing ball in a form.
We only need a form and a timer control.
Variable for paint the Ball
Private Const BALL_WID As Integer = 50
Private Const BALL_HGT As Integer = 50
Private m_Dx As Integer
Private m_Dy As Integer
Private m_X As Integer
Private m_Y As Integer

Init and set DoubleBuffer = TRUE for reduce flicker
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rnd As New Random
m_Dx = rnd.Next(1, 4)
m_Dy = rnd.Next(1, 4)
m_X = rnd.Next(0, Me.ClientSize.Width - BALL_WID)
m_Y = rnd.Next(0, Me.ClientSize.Height - BALL_HGT)
Me.tmrMoveBall.Enabled = True
Me.SetStyle( _
ControlStyles.AllPaintingInWmPaint Or _
ControlStyles.UserPaint Or _
ControlStyles.DoubleBuffer, _
True)
Me.UpdateStyles()
End Sub
Paint the Ball !!!!
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.Clear(Me.BackColor)
e.Graphics.FillEllipse(Brushes.Blue, m_X, m_Y, BALL_WID, BALL_HGT)
e.Graphics.DrawEllipse(Pens.Black, m_X, m_Y, BALL_WID, BALL_HGT)
End Sub

Move it !! and Bounce !!!
Private Sub tmrMoveBall_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrMoveBall.Tick
m_X += m_Dx
If m_X < m_dx =" -m_Dx"> Me.ClientSize.Width Then
m_Dx = -m_Dx
Beep()
End If

m_Y += m_Dy
If m_Y < m_dy =" -m_Dy"> Me.ClientSize.Height Then
m_Dy = -m_Dy
Beep()
End If

Me.Invalidate()
End Sub

Alvin and the Chipmunks: The Squeakuel (2009)

noreply@blogger.com (Ronsi) — Thu, 29 Jan 2009 10:27:00 +0000

Funny !!
Cute !!
Chapter1
Chapter2

Bride Wars (2009)

noreply@blogger.com (Ronsi) — Thu, 29 Jan 2009 10:21:00 +0000

Two best friends become rivals when they schedule their respective weddings on the same day.
Links
1
2

Underworld: Rise of the Lycans (2009)

noreply@blogger.com (Ronsi) — Thu, 29 Jan 2009 10:04:00 +0000

An origins story centered on the centuries-old feud between the race of aristocratic vampires and their onetime slaves, the Lycans.
Download
part 1
part 2

Afro Samurai: Resurrection (2009)

noreply@blogger.com (Ronsi) — Thu, 29 Jan 2009 09:59:00 +0000

When his father’s body is stolen from its grave, Afro takes up his sword again to tear through an army of deadly foes led by a sadistic leader.
Download Here

SQLServer-TSQL : List in Where Clause

noreply@blogger.com (Ronsi) — Wed, 07 Jan 2009 08:24:00 +0000

Sometimes we need to SELECT specific records based on a given list of criteria.
We can do this by creating a Dynamic Query, which mean we have to build the Query by concatenating the list item to become a WHERE clause, and execute by using exec.
Let's create a table and insert some records.
CREATE TABLE Contact(
id int ,
firstname varchar(50),
lastname varchar(50),
Age int
) ON [PRIMARY]

insert Contact (id,firstname,lastname,Age) values (1,'Michael','George',25)
insert Contact (id,firstname,lastname,Age) values (2,'Jhon','Jack',30)
insert Contact (id,firstname,lastname,Age) values (3,'Daniel','Warren',18)
insert Contact (id,firstname,lastname,Age) values (4,'Jim','Steve',26)
insert Contact (id,firstname,lastname,Age) values (5,'Smith','James',31)
insert Contact (id,firstname,lastname,Age) values (5,'Smith','James',31)

--This SP would be return all contact that first character of the firstname is in the list
Create Procedure uspGetContact(@FirstChar varchar(100))
as
Begin
declare @Query as varchar(100)
SET @Query = 'SELECT * from contact WHERE LEFT(FirstName,1) IN ' + '(' + @FirstChar + ')' -- build query
exec (@Query) -- execute
End

Using dynamic query could hurt the application performance.
We could use a UDf that return a table for this case, so we don't have to use dynamic query.
CREATE FUNCTION [dbo].[udfCSVToTable] ( @FirstChar VARCHAR(100) )
RETURNS @OutputTable TABLE ( FirstNameChar varchar(1) )
AS
BEGIN

DECLARE @String VARCHAR(10)

WHILE LEN(@FirstChar) > 0
BEGIN
SET @String = LEFT(@FirstChar,
ISNULL(NULLIF(CHARINDEX(',', @FirstChar) - 1, -1),
LEN(@FirstChar)))
SET @FirstChar = SUBSTRING(@FirstChar,
ISNULL(NULLIF(CHARINDEX(',', @FirstChar), 0),
LEN(@FirstChar)) + 1, LEN(@FirstChar))

INSERT INTO @OutputTable ( FirstNameChar )
VALUES ( @String )
END

RETURN
END

Then, to select for specific contact that first character of the firstname is in the list, we can use this simple query
SELECT * FROM contact WHERE LEFT(FirstName,1) IN (Select FirstNameChar from udfCSVToTable('S,J'))