Visual Basic Source Code

How to Connect Database Using ODBC (Object Database Configuration/Connectivity)

2011-06-29T03:33:00.000-07:00

This ODBC method is applicable to Visual Basic .Net and Visual Basic 6.0 using MS Access Databse (.mdb). Please follow the instructions below on how to setup database.
1. Click Start button, and select Control Panel

2. Once the control panel open, please double click Administrative Tools.

Note: If you can't locate the the administrative tools, please select Classic View at the left side of the control panel pane.

3. Under the Administrative Tools, double click to select the Data Sources (ODBC) as shown the image below. After selecting the Data Sources, the ODBC panel window will display.

4. Now we are going to add new datasebase, click Add button and new window willl appear "Create New Data Source", select the Driver do Microsoft Access (*.mdb) for MS Access, click Finish Button.

5. We're almost done, let's configure the ODBC for MS Access, under Data Source Name, type the MyDatabase, please leave blank the description it's optinal. Now, let's select the path of your database .mdb once you found it select OK button.

6. The image shown below that the Database .mdb is successfully located. Click OK button to Finish the configuration. (MS Access Database Configuration done).

7. Done! You are now ready to connect your visual basic program using this ODBC setup.

Connection Strings for SQL Server 2000 and 7.0

2011-06-29T00:51:00.000-07:00

.NET Framework Data Provider for SQL Server

Standard Security
Data Source=ServerName;Initial Catalog=DatabaseName;User Id=UserName;Password=Password;

Standard Security alternative syntax
Server=ServerName;Database=DatabaseName;User ID=UserName;Password=Password;Trusted_Connection=False;

Trusted Connection

Data Source=ServerName;Initial Catalog=DatabaseName;Integrated Security=SSPI;

Connecting to an SQL Server instance

Server=ServerName\theInstanceName;Database=DatabaseName;Trusted_Connection=True;

Trusted Connection from a CE device

Data Source=ServerName;Initial Catalog=DatabaseName;Integrated Security=SSPI;User ID=myDomain\UserName;Password=Password;

Note: This will work on a CE device only.

Connect via an IP address

Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;

DBMSSOCN=TCP/IP.

Note: 1433 is the default port for SQL Server.

Microsoft OLE DB Provider for SQL Server

Standard Security

Provider=sqloledb;Data Source=ServerName;Initial Catalog=DatabaseName;User Id=UserName;Password=Password;

Trusted connection

Provider=sqloledb;Data Source=ServerName;Initial Catalog=DatabaseName;Integrated Security=SSPI;

Connecting to an SQL Server instance

Provider=sqloledb;Data Source=ServerName\theInstanceName;Initial Catalog=DatabaseName;Integrated Security=SSPI;

Connect via an IP address

Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;

DBMSSOCN=TCP/IP.

This use to connect the SQL Server Database via internet connection.

ADO Control to create Database Table using Visual Basic

2011-04-07T05:31:00.000-07:00

'Using ADO control to create a database table from Visual Basic

'Connect to the database file and use the Connection object's Execute method to

'execute an SQL CREATE TABLE statement.

Private Sub BtnCreate_Click()

Dim db_file As String

Dim Conn_Data As ADODB.Connection

Dim rs_Data As ADODB.Recordset

Dim num_records As Integer

' Get the database name.

db_file = App.Path

If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"

db_file = db_file & "People.mdb"

' Open a Conn_Dataection.

Set Conn_Data = New ADODB.Connection

Conn_Data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";" & _

"Pers_Dataist Security Info=False"

Conn_Data.Open

' Drop the Employees table if it already exists.

On Error Resume Next

Conn_Data.Execute "DROP TABLE Employees"

On Error GoTo 0

' Create the Employees table.

Conn_Data.Execute "CREATE TABLE EmployeesTable(" & "EmployeeId INTEGER NOT NULL," & _

"LastName VARCHAR(40) NOT NULL," & "Firs_DatatName VARCHAR(40) NOT NULL)"

' Populate the table.

Conn_Data.Execute "INSERT INTO EmployeesTable VALUES (1, " & "'Anders_Dataon', 'Amy')"

Conn_Data.Execute "INSERT INTO EmployeesTable VALUES (1, 'Baker', " & " 'Betty')"

Conn_Data.Execute "INSERT INTO EmployeesTable VALUES (1, 'Cover', " & " 'Chauncey')"

' Add more records ...

' See how many records the table contains.

Set rs_Data = Conn_Data.Execute("SELECT COUNT (*) FROM EmployeesTable")

num_records = rs_Data.Fields(0)

Conn_Data.Close

MsgBox "Created " & num_records & " records", vbInformation, "Done"

End Sub

Password Generator in Visual Basic

2011-04-01T08:28:00.000-07:00

'A sample visual code on how to generate a best random password generator

Public Function GeneratePassword(ByVal lngLength As Long) _

As String

On Error GoTo Err_Proc

Dim iChr As Integer

Dim c As Long

Dim strResult As String

Dim iAsc As String

Randomize Timer

For c = 1 To lngLength

'Randomly decide what set of ASCII chars we will use

iAsc = Int(3 * Rnd + 1)

'Randomly pick a char from the random set

Select Case iAsc

Case 1

iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))

Case 2

iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))

Case 3

iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))

Case Else

Err.Raise 20000, , "GeneratePassword has a problem."

End Select

strResult = strResult & Chr(iChr)

Next c

GeneratePassword = strResult

Exit_Proc:

Exit Function

Err_Proc:

MsgBox Err.Number & ": " & Err.Description, _

vbOKOnly + vbCritical

GeneratePassword = vbNullString

Resume Exit_Proc

End Function

Connect Oracle Database using Visual Basic

2011-03-24T05:27:00.000-07:00

'How to connect Oracle Database from Visual Basic

'Sample code and connection strings to connect Oracle using Visual Basic:

Dim conn As ADODB.Connection

' Open a Conn_Dataection using Oracle ODBC.

Set Conn_Data = New ADODB.Connection

Conn_Data.ConnectionString = "Driver={Microsoft ODBC for Oracle};" & "UID=user_name;PWD=user_passsword"

Conn_Data.Open

'Open the table as in:

Dim rs_Data As ADODB.Recordset

' Open the table.

Set rs_Data = New ADODB.Recordset

rs_Data.Open "TableName", Conn_Data, adOpenDynamic, adLockOptimistic, adCmdTable

'Enter the user name password and table name as per the database.

'it must be valid one.

'To reads the data from the table and displays the values in a ListBox

' List the data.

Do While Not rs_Data.EOF

txt = ""

For Each fld In rs_Data.Fields

txt = txt & Trim$(fld.Value) & ", "

Next fld

If Len(txt) > 0 Then txt = Left$(txt, Len(txt) - 2)

List1.AddItem txt

rs_Data.MoveNext

Loop

'Finally close the recordset and close the Conn_Dataection:

rs_Data.Close

Conn_Data.Close

How to Use ADO Object to get data from a read only MS Access database

2011-03-22T05:21:00.000-07:00

'How to Use ADO object to get data from a read-only MS Access database

'In the ConnDataect string, set Mode to Read.

Dim ConnData As ADODB.Connection

' Open a ConnDataection.

Set ConnData = New ADODB.Connection

ConnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";" & _

"Mode=Read;" & "PeRecordset1ist Security Info=False"

ConnData.Open

'This example reads data and displays the values in a List Box object.

Dim Recordset1 As ADODB.Recordset

' Open the Database Recordset.

Set Recordset1 = ConnData.Execute("SELECT * FROM Books", , adCmdText)

' List the data.

Do While Not Recordset1.EOF

' The following statement would cause an

' error because the ConnDataection is read-only.

' Recordset1!Title = "XXX"

txt = ""

For Each fld In Recordset1.Fields

txt = txt & Trim$(fld.Value) & vbTab

Next fld

If Len(txt) > 0 Then txt = Left$(txt, Len(txt) - 1)

List1.AddItem txt

Recordset1.MoveNext

Loop

Recordset1.Close

ConnData.Close

How to Copy data from an Access database and save in Excel spreadsheet

2011-03-20T10:31:00.000-07:00

'How to Copy data from an Access database into an Excel spreadsheet

'Use ADO object to open the database. Using Excel as a server, open the spreadsheet.

'Read the field names from the ADO Recordset data and add them to the first row in

'the spreadsheet to make column headers.

'To enable excel application please add excel object first.

Private Sub Form_Load()

Dim cSource_Data As String

Dim cTarget_Data As String

Dim oCon As ADODB.Connection

Dim cSQL As String

cSource_Data = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") & "books.mdb"

cTarget_Data = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") & "Books.xls].[Table1]"

Set oCon = New ADODB.Connection

With oCon

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & cSource_Data & _

";" & "Persist Security Info=False"

.Open

cSQL = "SELECT [Title],[URL],[ISBN],[Picture],[Pages],[CD],[Year] INTO " & _

"[Excel 8.0;Database=" & cTarget_Data & " FROM [Books]"

.Execute cSQL

End With

End Sub

How to Use ADO object and populate result in a ListBox object

2011-03-20T10:28:00.000-07:00

Database - How to Use ADO to populate a ListBox Obkect with data values

'Open a Recordset that selects the desired information. Loop through the records and put the values to the ListBox.

Dim statement As String

Dim Conn_Data As ADODB.Connection

Dim rs_data As ADODB.Recordset

' db_file contains the Access database's file name.

' Open a Conn_Dataection.

Set Conn_Data = New ADODB.Connection

Conn_Data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";" & _

"Pers_dataist Security Info=False"

Conn_Data.Open

' Select the data.

statement = "SELECT Title, URL FROM Books ORDER BY " & "Title"

' Get the records.

Set rs_data = Conn_Data.Execute(statement, , adCmdText)

' Load the Title field into the List Box Oject.

' Save the URL values in a collection.

Set URLs = New Collection

Do While Not rs_data.EOF

List1.AddItem rs_data!Title

URLs.Add CStr(rs_data!URL)

rs_data.MoveNext

Loop

' Close the recordset and Conn_Dataection.

rs_data.Close

Conn_Data.Close

'This example saves the URL value for each record in a collection. When you

'click on a ListBox item, the program displays the URL in a Label. When you

'double click on a ListBox item, the program displays the corresponding Web

'document in a browser.

' Display the item's URL.

Private Sub List1_Click()

If List1.ListIndex < 0 Then

Label1.Caption = ""

Else

Label1.Caption = URLs(List1.ListIndex + 1)

End If

End Sub

' Display the item's Web document.

Private Sub List1_DblClick()

If List1.ListIndex >= 0 Then

ShellExecute hWnd, "open", URLs(List1.ListIndex + 1), vbNullString, vbNullString, SW_SHOW

End If

End Sub

Sample Code on How to Fill the Datagrid View in Visual Basic.Net

2011-03-20T07:32:00.000-07:00

Sample on how to Fill the Datagrid View in Visual Basic .Net

'Here's the code below.

Dim query as string="Select * from EmployeeTable"
Dim da as new oledbdataadapter(query,con)

dim ds as new dataset

da.fill(ds,"EmployeeTable")

me.dgv.datasource=ds
me.dgv.datamember="EmployeeTable"

ds.dispose

con.close

Visual Basic SQL Select Statemnt

2011-03-20T07:16:00.000-07:00

The SELECT statement is used to select data from a database.

The result is stored in a result table, called the result-set.

SQL SELECT Syntax is

This statement select only one column of the database field.

SELECT column_name(s) FROM table_name

This SQL statement select all the fields of the database using the (*) asterisk

SELECT * FROM table_name

Here's the sample SQL statement below.

Figure 1

Select IDNo,LastName,FirstName,MI FROM EmployeeTbl Where IDNo= '12345'

Figure 2

Select * FROM EmployeeTbl Where IDNo='12345'

A SQL SELECT statement can be broken down into numerous elements, each beginning with a keyword. Although it is not necessary, common convention is to write these keywords in all capital letters. In this article, we will focus on the most fundamental and common elements of a SELECT statement, namely

SELECT
FROM
WHERE
ORDER BY

The SELECT ... FROM Clause

The most basic SELECT statement has only 2 parts: (1) what columns you want to return and (2) what table(s) those columns come from.
If we want to retrieve all of the information about all of the customers in the Employees table, we could use the asterisk (*) as a shortcut for all of the columns, and our query looks like

SELECT * FROM Employees

If we want only specific columns (as is usually the case), we can/should explicitly specify them in a comma-separated list, as in

SELECT EmployeeID, FirstName, LastName, HireDate, City FROM EmployeesTable

The WHERE Clause

The next thing we want to do is to start limiting, or filtering, the data we fetch from the database. By adding a WHERE clause to the SELECT statement, we add one (or more) conditions that must be met by the selected data. This will limit the number of rows that answer the query and are fetched. In many cases, this is where most of the "action" of a query takes place.
We can continue with our previous query, and limit it to only those employees living in London:
SELECT EmployeeID, FirstName, LastName, HireDate, City FROM Employees WHERE City = 'London'

The ORDER BY Clause

Until now, we have been discussing filtering the data: that is, defining the conditions that determine which rows will be included in the final set of rows to be fetched and returned from the database. Once we have determined which columns and rows will be included in the results of our SELECT query, we may want to control the order in which the rows appear—sorting the data.
To sort the data rows, we include the ORDER BY clause. The ORDER BY clause includes one or more column names that specify the sort order. If we return to one of our first SELECT statements, we can sort its results by City with the following statement:

SELECT EmployeeID, FirstName, LastName, HireDate, City FROM EmployeesTable
ORDER BY City

How to load the values of a recordset in a combo box object

2011-03-20T05:04:00.000-07:00

'How to load the values of a recordset in a combo box object

Public Sub FillData_ListBox(ByRef lstControl As Object, ByRef strQry As String)

'this routine is used to fill up a list box by passing 'the lstbox name and

'query

Dim lstCtrlObj As Object

Dim Rst As ADODB.Recordset

On Error GoTo VBError

Set Rst = New ADODB.Recordset

With Rst

.Source = strQry

.Open , AdoComp, adOpenDynamic, adLockReadOnly

End With

Set lstCtrlObj = lstControl

lstCtrlObj.Clear

If Rst.EOF = False Then

Rst.MoveFirst

While Rst.EOF = False

lstCtrlObj.AddItem Rst.Fields(1)

lstCtrlObj.ItemData(lstCtrlObj.NewIndex) = Rst.Fields(0)

Rst.MoveNext

Wend

itsRecCount = 1

itsProcessClickFlag = True

lstCtrlObj.ListIndex = 0

End If

Done:

Rst.Close

Set Rst = Nothing

Exit Sub

VBError: ' Non-ADO error handler

DisplayVBError

GoTo Done

End Sub

Sample on how to create and call a stored procedure.

2011-03-19T05:02:00.000-07:00

'How to create and call a stored procedure.

Dim conn As ADODB.Connection

Dim rst As ADODB.Recordset

CREATE PROCEDURE ProcEmployees As

Begin

declare @Empcount as int

Select @EmpCount = count(*) From EmployeesTable

Return @Empcount

End

Set conn = New ADODB.Connection

Set rst = New ADODB.Recorset

conn.Provider = "Microsoft Jet 4.0 OLE DB Provider"

conn.Open "Data Source=c:\Data1.mdb"

rst = conn.execute "Call ProcEmployees"

How to Connect to a database using ADO type and retrieving the data.

2011-03-18T04:58:00.000-07:00

'How to Connect to a database using ADO and retrieving the data.

'Create a reference to 'Microsoft ActiveX Data Object 2.0 Library'

Private Sub Form_Load()

'Declare the connection and recordset objects

Dim cnData As Connection

Dim recordset1 As Recordset

'Instantiate the objects

Set Conn = New Connection

Set recordset1 = New Recordset

'Set the connection string

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=<<PATH TO DATABASE>>"

Conn.Open

'Code to test the connection

If Conn.State = adStateOpen Then MsgBox "Connection good."

'Get data from the database connection

recordset1.Open "<<SQL STATEMENT>>", Conn

'For testing purposes, write to debug window

Debug.Print recordset1!<<DATABASE_COLUMN_FIELD_NAME>>

'Make sure to close the connection and release Conn

Conn.Close

Set Conn = Nothing

End Sub

How to Bind Text Boxes to an ADO Recordset during run time.

2011-03-18T04:43:00.000-07:00

'Sample on How to Bind TextBoxes to an ADO Recordset at run time

'Open the ADO Connection and the Recordset to fetch the data. Set the TextBox's

'DataSource properties to the Recordset. Set their DataField properties to the

'names of the Recordset's fields to bind.

Private Sub Form1_Load()

Dim data_file As String

' Get the database file name.

data_file = App.Path

If Right$(data_file, 1) <> "\" Then data_file = data_file & "\"

data_file = data_file & "Data.mdb"

' Open the database connection.

Set m_Conn = New ADODB.Connection

m_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & data_file & _

";" & "Persist Security Info=False"

m_Conn.Open

' Fetch the Books records.

Set Recordset1 = New ADODB.Recordset

Recordset1.Open "SELECT * FROM Books ORDER BY Title", m_Conn, adOpenDynamic, _

adLockBatchOptimistic

' Bind the TextBoxes to the Recordset.

Set textTitle.DataSource = Recordset1

textTitle.DataField = "Title"

Set txtURL.DataSource = Recordset1

txtURL.DataField = "URL"

End Sub

'The program can use the Recordset's MovePrevious, MoveNext, and other

'navigation methods to display different records in the bound controls.

Private Sub BtnNext_Click()

' Move to the next record.

Recordset1.MoveNext

' Enable the appropriate buttons.

EnableButtons

End Sub

Private Sub BtnPrev_Click()

' Move to the previous record.

Recordset1.MovePrevious

' Enable the appropriate buttons.

EnableButtons

End Sub

' Enable the appropriate buttons.

Private Sub EnableButtons()

BtnNext.Enabled = Not Recordset1.EOF

BtnPrev.Enabled = Not Recordset1.BOF

End Sub

How to Load a Form Dynamically in Visual Basic .Net

2010-06-07T05:39:00.000-07:00

Once you know the name of the DLL and the name of the form you want to show, the rest is quite simple. You create an instance of the form, using the Assembly.CreateInstance method, and then call the Show method on the form. The following code snippet is a simplified version of the code in the DynamicApp Dashboard.Button_Click_Handler method. It demonstrates how to load a DLL called MyDll.dll, create an instance of a form within the DLL Form1, and show the form.

Dim asm As Reflection.Assembly
Dim f As Form
asm = asm.LoadFrom("MyDll.dll")
f = CType(asm.CreateInstance("MyDll.Form1"), Form)
f.Show()

Notice with the CreateInstance method that we have to refer to the form as MyDll.Form1, using the <namespace>.<formname> format. Also be aware that when you write code that loads a DLL dynamically, all names, including the filename and type name, are case sensitive.

Visual Basic 6 - How to Hide Application in Windows Task List

2010-05-18T05:37:00.000-07:00

This code will hide your application in windows tasklist using visual basic when user press the ctr + alt + delete in keyboard. This type of program is very useful if you don't want your users/clients to close the application through windows tasklist.

Here's the code sample below.

Declare Function SetWindowPos Lib "user32" (ByVal hwnd _

As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _

ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _

wFlags As Long) As Long

Declare Function FindWindow Lib "user32" Alias _

"FindWindowA" (ByVal lpClassName As String, ByVal _

lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80

Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()

Dim Thwnd as Long

Thwnd = FindWindow("Shell_traywnd", "")

Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

End Sub

Private Sub Command2_Click()

Dim Thwnd as Long

Thwnd = FindWindow("Shell_traywnd", "")

Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

End Sub

How to Create a Hot Key In Visual Basic 6

2010-05-18T05:36:00.000-07:00

What is a Hot Key Control
A hot key is a key combination that the user can press to perform an action quickly. For example, a user can create a hot key that activates a given window and brings it to the top of the z-order. The hot key control displays the user's choices and ensures that the user selects a valid key combination. Here's the code below on how to create a hot key control.

Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

lParam As Long) As Long

Declare Function DefWindowProc Lib "user32" _

Alias "DefWindowProcA" (ByVal hwnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Public Const WM_SETHOTKEY = &H32

Public Const WM_SHOWWINDOW = &H18

Public Const HK_SHIFTA = &H141 'Shift + A

Public Const HK_SHIFTB = &H142 'Shift * B

Public Const HK_CONTROLA = &H241 'Control + A

Public Const HK_ALTZ = &H45A

'The value of the key-combination has to

'declared in lowbyte/highbyte-format

'That means as a hex-number: the last two

'characters specify the lowbyte (e.g.: 41 = a),

'the first the highbyte (e.g.: 01 = 1 = Shift)

Private Sub Form_Load()

Me.WindowState = vbMinimized

'Let windows know what hotkey you want for

'your app, setting of lParam has no effect

erg& = SendMessage(Me.hwnd, WM_SETHOTKEY, _

HK_ALTZ, 0)

'Check if succesfull

If erg& <> 1 Then

MsgBox "You need another hotkey", vbOKOnly, _

"Error"

End If

'Tell windows what it should do, when the hotkey

'is pressed -> show the window!

'The setting of wParam and lParam has no effect

erg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, _

0, 0)

End Sub

System API Programming

2010-04-27T09:22:00.000-07:00

Visual Basic 6 - API Programming on how to get computer name

'Get Computer Name
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

Private Sub cmdChange_Click()
SetComputerName txtNewName.Text
End Sub

' Check if program running
Private Sub Form_Load()

'// Not the best way to check
'// Better to use the FindWindow API

If App.PrevInstance = True Then
MsgBox ("This program is already running.")
End
End If

End Sub

Using ADO Record Source

2010-04-27T09:15:00.000-07:00

Code on how to use ado record source in visal basic .net

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Create a connection string
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\Northwind.mdb"
Dim sql As String = "SELECT CustomerId, CompanyName, ContactName From Customers"

' Create a Connection object and open it
Dim conn As Connection = New Connection()
Dim connMode As Integer = ConnectModeEnum.adModeUnknown
conn.CursorLocation = CursorLocationEnum.adUseServer
conn.Open(ConnectionString, "", "", connMode)
Dim recAffected As Object
Dim cmdType As Integer = CommandTypeEnum.adCmdText
Dim rs As _Recordset = conn.Execute(sql)

' Create dataset and data adpater objects
Dim ds As DataSet = New DataSet("Recordset")
Dim da As OleDbDataAdapter = New OleDbDataAdapter()

' Call data adapter's Fill method to fill data from ADO
' Recordset to the dataset

da.Fill(ds, rs, "Customers")

' Now use dataset
DataGrid1.DataSource = ds.DefaultViewManager

Multi Threading in Visual Basic.Net

2010-04-27T09:13:00.000-07:00

'Sample Code on how to use multithreading in Visual Basic .Net

Imports System

Imports System.Threading

Public Module ThreadSample

Public Balance As Integer = 1000

Sub Main()

Dim account As Account = New Account()

Dim depositeBalance1 As DepositeBalance = New _

DepositeBalance(account, 1000, "Customer 1")

Dim depositeBalance2 As DepositeBalance = New _

DepositeBalance(account, 1000, "Customer 2")

Dim t1 As Thread = New _

Thread(AddressOf depositeBalance1.DepositeAmount)

Dim t2 As Thread = New _

Thread(AddressOf depositeBalance2.DepositeAmount)

t1.Start()

t2.Start()

Try

t1.Join()

t2.Join()

Catch e As Exception

Console.Write(e.ToString())

Finally

'Do Nothing

End Try

End Sub

Public Class Account

Private balanceAmount As Integer

Public Sub Deposite(ByVal amount As Integer, _

ByVal message As String)

Console.Write(message & _

" Depositing Amount " & amount)

Console.Write(message & " Checking Previous Balance")

Monitor.Enter(Me)

balanceAmount = getBalance()

Console.Write(message & _

" Previous Balance in Account " & balanceAmount)

balanceAmount += amount

Console.Write(message & _

" Updating Balance in Account ")

setBalance(balanceAmount)

Monitor.Exit(Me)

Console.Write(message & " Update Balance " & Balance)

End Sub

Private Function getBalance() As Integer

Try

Thread.sleep(1000)

Catch e As Exception

Console.Write(e.ToString())

Finally

'Do Nothing

End Try

Return Balance

End Function

Private Sub setBalance(ByVal amount As Integer)

Try

Thread.sleep(1000)

Catch e As Exception

Console.Write(e.ToString())

Finally

'Do Nothing

End Try

Balance = amount

End Sub

End Class

Public Class DepositeBalance

Private account As Account

Private amount As Integer

Private message As String

Public Sub new(ByRef account As Account, _

ByVal amount As Integer, ByVal message As String)

MyBase.New()

Me.account = account

Me.amount = amount

Me.message = message

End Sub

Public Sub DepositeAmount()

Account.Deposite(amount, message)

End Sub

End Class

End Module

SQL Server 2005 Express - For Visual Basic .Net and 6.0

2010-04-07T20:18:00.000-07:00

The best database server for Microsoft Visual Basic Language is "Microsoft SQL Server" but what's the difference between the Microsoft SQL Server Express and SQL Server. Well, MS SQL Server you need to buy a license from Microsoft Corporation while the MS SQL Server Express or MSDE in previous version it's a FREE database, it means you can use this software without buying a license. However, there's a limitations not to mention all, but one is the size of the database can grow up to four(4) Gigabytes only, for me 4GB database can handle enough for a small company with transactions more or less 1 million records. For more information please visit website here. http://www.microsoft.com/Sqlserver/2005/en/us/express.aspx

I suggest to use this database server for testing your .net applications, .asp or .aspx for website applications because it's easy to configure and use. You can install this software in MS Windows XP, MS Vista and MS Windows 7.

Click the link below to download the software from Microsoft website.

Download the Microsoft SQL Server 2005 Express....

Visual Basic - Synchronize Client Computer Date/Time From a SQL Server

2010-04-07T10:25:00.000-07:00

The code below is used to synchronize the client computer from MS SQL Server, sometimes the users may change their computer local time in-order to trick the system that he/she encoded the data entry on time. Oh, if you're the database administrator or programmer it's a very headache how to figure it out, why it is happen this way. Sample scenario, accounts receivable should be encoded prior to cut-off period, then user name "Michelle" forgot to encode the data, a day after cut-off period she realize encode the accounts receivable data, she might change the local time in-order to encode in previous dates. Basically, visual basic program compares the entry date (date picker component) and the system/local time, if she change the system date less than current date, you might wonder why the data not posted in ledger to think that all entries are encoded on timely basis. So, how to prevent it. Use the code below and don't forget to create a stored procedure called "Get_Server_Date". Call this function as many as you can for example during Loan Event, Add New Entry, Edit Entry, Save Entry, Delete Entry. Anyway it's very fast, the user can't recognize that you're synchronizing from the server time.
Note: I assume the all your data tables has these two or three fields
User_Name - the one who transact the data
DateEncoded/Modified - the transaction date base on user's local time.
Computer Name - Optional, it use to trace the users location.
If it's not added to your data table, please do apply the fields it may help you trace your transactions.
'------ VB Code ----------
'Declaration
Dim Const mCon="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Mydatabase;Data Source=MyComputerName\SQLEXPRESS"

'Note : Change the Mydatabase to your Database Name
' MyComputerNmae = Your Database Server Name

Private Sub Form_Load()

   Call SynChronize_Date_Server()

End Sub

Function SynChronize_Date_Server()
On Error Resume Next
   Dim tmp1 As Date
   With Main.ado1 ' Add adodc1 object to the form and name it ado1
   .ConnectionString = mCon
   .CommandType = adCmdStoredProc
   .RecordSource = "sp_getserverdate;1"
   .Refresh
   Date = Format(.Recordset!ServerDate, "mm/dd/yy")
   Time = Format(.Recordset!ServerDate, "hh:mm:ss")
   End With
End Function

Function Get_Server_Date() As Date
On Error Resume Next
   Dim tmp1 As Date
   With Main.ado1
   .ConnectionString = mCon
   .CommandType = adCmdStoredProc
   .RecordSource = "sp_getserverdate;1"
   .Refresh
   Get_Server_Date = Format(.Recordset!ServerDate, "mm/dd/yy")
   End With
End Function
'-------------------------------- STORED PROCEDURED CODE ----------------------------

USE [Inventry]
GO
/****** Object: StoredProcedure [dbo].[sp_getserverdate]
Script Date: 04/20/2010 01:19:56 ******/

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER proc [dbo].[sp_getserverdate]
as
set nocount on
select getdate() as ServerDate

List of SQL Command

2010-04-07T10:16:00.000-07:00

Hello, These are the list of SQL Commands. I will post samples for these SQL commands so please keep visit this site.

Table of Contents
ABORT -- abort the current transaction
ALTER AGGREGATE -- change the definition of an aggregate function
ALTER CONVERSION -- change the definition of a conversion
ALTER DATABASE -- change a database
ALTER DOMAIN -- change the definition of a domain
ALTER FOREIGN DATA WRAPPER -- change the definition of a foreign-data wrapper
ALTER FUNCTION -- change the definition of a function
ALTER GROUP -- change role name or membership
ALTER INDEX -- change the definition of an index
ALTER LANGUAGE -- change the definition of a procedural language
ALTER OPERATOR -- change the definition of an operator
ALTER OPERATOR CLASS -- change the definition of an operator class
ALTER OPERATOR FAMILY -- change the definition of an operator family
ALTER ROLE -- change a database role
ALTER SCHEMA -- change the definition of a schema
ALTER SEQUENCE -- change the definition of a sequence generator
ALTER SERVER -- change the definition of a foreign server
ALTER TABLE -- change the definition of a table
ALTER TABLESPACE -- change the definition of a tablespace
ALTER TEXT SEARCH CONFIGURATION -- change the definition of a text search configuration
ALTER TEXT SEARCH DICTIONARY -- change the definition of a text search dictionary
ALTER TEXT SEARCH PARSER -- change the definition of a text search parser
ALTER TEXT SEARCH TEMPLATE -- change the definition of a text search template
ALTER TRIGGER -- change the definition of a trigger
ALTER TYPE -- change the definition of a type
ALTER USER -- change a database role
ALTER USER MAPPING -- change the definition of a user mapping
ALTER VIEW -- change the definition of a view
ANALYZE -- collect statistics about a database
BEGIN -- start a transaction block
CHECKPOINT -- force a transaction log checkpoint
CLOSE -- close a cursor
CLUSTER -- cluster a table according to an index
COMMENT -- define or change the comment of an object
COMMIT -- commit the current transaction
COMMIT PREPARED -- commit a transaction that was earlier prepared for two-phase commit
COPY -- copy data between a file and a table
CREATE AGGREGATE -- define a new aggregate function
CREATE CAST -- define a new cast
CREATE CONSTRAINT TRIGGER -- define a new constraint trigger
CREATE CONVERSION -- define a new encoding conversion
CREATE DATABASE -- create a new database
CREATE DOMAIN -- define a new domain
CREATE FOREIGN DATA WRAPPER -- define a new foreign-data wrapper
CREATE FUNCTION -- define a new function
CREATE GROUP -- define a new database role
CREATE INDEX -- define a new index
CREATE LANGUAGE -- define a new procedural language
CREATE OPERATOR -- define a new operator
CREATE OPERATOR CLASS -- define a new operator class
CREATE OPERATOR FAMILY -- define a new operator family
CREATE ROLE -- define a new database role
CREATE RULE -- define a new rewrite rule
CREATE SCHEMA -- define a new schema
CREATE SEQUENCE -- define a new sequence generator
CREATE SERVER -- define a new foreign server
CREATE TABLE -- define a new table
CREATE TABLE AS -- define a new table from the results of a query
CREATE TABLESPACE -- define a new tablespace
CREATE TEXT SEARCH CONFIGURATION -- define a new text search configuration
CREATE TEXT SEARCH DICTIONARY -- define a new text search dictionary
CREATE TEXT SEARCH PARSER -- define a new text search parser
CREATE TEXT SEARCH TEMPLATE -- define a new text search template
CREATE TRIGGER -- define a new trigger
CREATE TYPE -- define a new data type
CREATE USER -- define a new database role
CREATE USER MAPPING -- define a new mapping of a user to a foreign server
CREATE VIEW -- define a new view
DEALLOCATE -- deallocate a prepared statement
DECLARE -- define a cursor
DELETE -- delete rows of a table
DISCARD -- discard session state
DROP AGGREGATE -- remove an aggregate function
DROP CAST -- remove a cast
DROP CONVERSION -- remove a conversion
DROP DATABASE -- remove a database
DROP DOMAIN -- remove a domain
DROP FOREIGN DATA WRAPPER -- remove a foreign-data wrapper
DROP FUNCTION -- remove a function
DROP GROUP -- remove a database role
DROP INDEX -- remove an index
DROP LANGUAGE -- remove a procedural language
DROP OPERATOR -- remove an operator
DROP OPERATOR CLASS -- remove an operator class
DROP OPERATOR FAMILY -- remove an operator family
DROP OWNED -- remove database objects owned by a database role
DROP ROLE -- remove a database role
DROP RULE -- remove a rewrite rule
DROP SCHEMA -- remove a schema
DROP SEQUENCE -- remove a sequence
DROP SERVER -- remove a foreign server descriptor
DROP TABLE -- remove a table
DROP TABLESPACE -- remove a tablespace
DROP TEXT SEARCH CONFIGURATION -- remove a text search configuration
DROP TEXT SEARCH DICTIONARY -- remove a text search dictionary
DROP TEXT SEARCH PARSER -- remove a text search parser
DROP TEXT SEARCH TEMPLATE -- remove a text search template
DROP TRIGGER -- remove a trigger
DROP TYPE -- remove a data type
DROP USER -- remove a database role
DROP USER MAPPING -- remove a user mapping for a foreign server
DROP VIEW -- remove a view
END -- commit the current transaction
EXECUTE -- execute a prepared statement
EXPLAIN -- show the execution plan of a statement
FETCH -- retrieve rows from a query using a cursor
GRANT -- define access privileges
INSERT -- create new rows in a table
LISTEN -- listen for a notification
LOAD -- load or reload a shared library file
LOCK -- lock a table
MOVE -- position a cursor
NOTIFY -- generate a notification
PREPARE -- prepare a statement for execution
PREPARE TRANSACTION -- prepare the current transaction for two-phase commit
REASSIGN OWNED -- change the ownership of database objects owned by a database role
REINDEX -- rebuild indexes
RELEASE SAVEPOINT -- destroy a previously defined savepoint
RESET -- restore the value of a run-time parameter to the default value
REVOKE -- remove access privileges
ROLLBACK -- abort the current transaction
ROLLBACK PREPARED -- cancel a transaction that was earlier prepared for two-phase commit
ROLLBACK TO SAVEPOINT -- roll back to a savepoint
SAVEPOINT -- define a new savepoint within the current transaction
SELECT -- retrieve rows from a table or view
SELECT INTO -- define a new table from the results of a query
SET -- change a run-time parameter
SET CONSTRAINTS -- set constraint checking modes for the current transaction
SET ROLE -- set the current user identifier of the current session
SET SESSION AUTHORIZATION -- set the session user identifier and the current user identifier of the current session
SET TRANSACTION -- set the characteristics of the current transaction
SHOW -- show the value of a run-time parameter
START TRANSACTION -- start a transaction block
TRUNCATE -- empty a table or set of tables
UNLISTEN -- stop listening for a notification
UPDATE -- update rows of a table
VACUUM -- garbage-collect and optionally analyze a database
VALUES -- compute a set of rows

ASP VB Script - Determine Morning or Afternoon

2010-04-07T10:05:00.000-07:00

' ASP Determine Morning or Afternoon
<%
dim intHourOfDay
intHourOfDay = hour(now())
if intHourOfDay < 12 then
Response.Write("Good Morning World!<br><br>The hour of the day is ") & intHourOfDay
else
Response.Write("Good Afternoon World!<br><br>The hour of the day is ") & intHourOfDay
end if
%>

ASP VB Script - Get Server System Directory

2010-04-07T10:02:00.001-07:00

sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")