Cheat Hidden chance April 2009

udah lama y nunggu cheat hidden chance?? ^^

maap, banyak yg mesti di coba dulu, trus proses upload yg lama,, hufh!

di tambah lagi, ada mslh sama pacar, T_T

langsung ke intinya : download file di bawah ini

bagian 1

bagian 2

bagian 3

caranya sama sperti yang bulan lalu :

smua file yg udah di download extract dulu, trus kalo udah di copy ke folder ayo dance - data.

tapi inget buat back up dulu data acv yg aslinya buat jaga - jaga,,

well, happy audition!

:)

JGX - Vitalize 5.0(Updated)

klik disini untuk download

Full Hack Ayodance (MICASH

mau.................. ?


Download Here


Nih :

*Password : studiohikaru


NB :Nih cheat bkn cheat gw melainkan pya tmn gw klo g isa jgn slahkan gw y... ^^

Cheat New Speed Bot Gunbound 2009

This cheat speed bot gunbound contains cheat such as, gold hack, gp hack, poweruser, poweruser+, instant win, sudden death, double kill and more. You can turn off the cheat or turning on another cheat at anytime. How to use :
1: Download the file and extract it to anywhere
2: Open the contain file and install vcredist_x86.
3: Check if the Injector.exe is in the SAME folder as Speed.dll, if not, do so.
4: Execute the Injector (Vista users, right click and run as administrator).
5: Start Gunbound and the trainer will pop up after Gameguard loads.
6: Click on Show Gunbound to show Gunbound, Hide to hide it.
7: To start cheats click on Show cheats, another window will pop up and all the cheats are listed there

download cheat speed bot

thanks to gzp

Gold Bot Gunbound

With cheat gold bot gunbound, you can enable and disable cheats in game. This gold bot gunbound works auto start, anti kick, anti crash, keep key, and more. To use gold bot :
1. Open PurePower before gunbound
2. When gunbound loads after the splash screen you will see a menu appear
3. Press the Cheats tab to open more options available

If you use vista, you make new folder put the 2 fields in i right then click run as admin and start gunbound

good luck and happy hack

download gold gunbound

thanks gzp

cheat chance patch april

Langsung sedot y... ^^ :



http://www.4shared.com/file/88622363/7a75e734/Chance_Hack

cheat nominal mi-cash patch april dan mei

Nih gw post cheat mi-cash 1 perak ini berupa data ACV.apabila data ACV loe di ganti dengan data ACV gw ini.maka hasilnya smua harga jadi 1 perak micash.ok"
Langsung download y

nih link nya :

http://www.indowebster.com/cheat_micash_acv_1_perak.html


*password : kena378

Hack Gold Gunbound

Hallow para cheaters aku kasi tutor cara hack gold di game gunbound.

Mari simak ulasannya

Pertama-tama download filenya disini



Step 1 : extract filenya.
step 2 : pilih no. Setelah itu tekan CTRL+O cari file gbviet by MrCoi.CT
step 3 : open file C:\Gunbound\GameGuard yang extensinya .des
step 4 : ubah value Value = 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

setelah itu buka game gunbound. Hore berhasil!!

Cheat Update For all patch april

Teman2 aku ada au perfect pro. aku kasi gratis.

download

untuk perfect beatup ini dia

download

Jadi sering-sering berkunjung kesini ya.

itu aja bye!!!

cheat perfect patch april 2009

Berbeda kan sama yang sebelumnya ?

Hoykey :

F10 : start perfect hack

Tutorial :

* Copy fmod ke C:\Program Files\AyoDance\

* Copy Hshield ke C:\Program Files\AyoDance\Hshield

* Terus buka vitalize nya terus tekan f10

* Happy cheatting ^^

Untuk mendownload silahkan klik link di bawah ini :


Download Vitalize Perfect Hack With (9999 second)

Download Fmod.dll

Download Hshield hack

Cheat Mi-Cash, buruan download!!!

Ui KK! Wa Dah KETEMU CHEAT MI-CASH nya!!!
Nih GW Dapet Dari Fernando Tmen GW!!

Langsung Download Aja ya!!

Nih Dia!!

Download Cheat Mi-cash dan Den
Mo Tutorial nya? ni dia!

1.
ExTRaCt Dolo Filenya Di WINRAR!
2.
Trus Copy Ke Folder Ayodance mu!
3.
and jalanin programnya!
4.
trus ada keycodenya nih dia
5.
973148625
6.
Trus isi kolom di bawahnya MI-Cash yg kamu mao...
7.
yg bawahnya lagi den yg kamu mao...
8.
and klik start
9.
trus ad tulisan yg ga isa di silang...
10.
buka ayodancenya...

Full Hack Ayodance (MICASH) patch april dan mei

mau.................. ?

WAKOWKAOWAWWKOAWKOA....

Download Here

NB :
*Cheat ini di lindungi password, untuk mendapatkannya kirim e-mail aja ke gw

password : studiohikaru

Audition Hack 5.0 patch april

(Audition Hack Den+Cash+Exp)

Untuk mendownload silahkan klik link di bawah ini :

Download Audition Hack 1.0


NB :
*Cheat ini di lindungi password, untuk mendapatkannya kamu harus tanya langsung ke gw via e-mail.


KuRoChan~


http://jgx-member.blogspot.com

Romeo Hot Dance NEW versi 2 patch april

CHEAT TERBARU YANG MIRIP NICE DANCEW RHD ini bisa Auto Arrow, Auto Cherro, Auto BeatUp, Perfect, dll.

MAU TAU CARA GUNAIN NYA?

1 Extract RHD 1.1
2 Open RHD.exe
3 Login :

* ID = dancer01 s/d dancer100
* Pass = 111

gk susah2 amat koq silahkan coba dech

download klik disin

Nice Dancer 1.6c patch april

hai sobat cheat.... apakah cheat nice dancer 1.5 masih bisa anda coba hahahha......

mungkin ada yang nggak bisa atau tidak work lagi ya namanya aja cheat harus di update lah ya kagak "BETOL"

nah kali ini gue kasih cheat nice dancer yang 1.6 bangga kagak loe gratis pula hahahah... asik..asik..

nih liat gambar cheatnya:


Seperti biasa kalo mau dapetin cheat ini harus daftar dulu ke orang, atau di pasword, atau juga harus testi ke orang yang posting biar di kasih link downloadnya hahah...


Ok nggak sabar kan downloadnya ya udah klik Link di bawah ini:

Download : klik disini

cara penggunaan cheat ini juga sama kayak yang dolo...

jangan tanya kalo nggak bisa pakek nie cheat hahah....


NB: jika terjadi sesuatu seperti ID di baned atau IP di baned bukan tanggung jawab saya untuk itu pergunakan cheat ini dengan hati-hati biar nggak kena baned atas perhatinya saya ucapkan terima kasih!

Cheat Auto-Hunt Lineage 2

Oke, langsung aja sebelum baca tutorial cara penggunaan cheatnya kamu harus download dulu program eL2Walker205 di bawah ini :

Download elWalker2.05

Klo udah download, kamu simak baik-baik tutorialnya di bawah :)

1. Ekstrak file yang udah kamu download tadi
2. Lalu, cari file yang bernama "L2Walker_2.05_CRACK.rar" lalu ekstrak
3. Hasil ekstrak tadi pindahkan ke file yang bernama "eL2Walker2.05.zip"
4. Klik 2 kali pada "eL2Walker2.05.zip" terus cari "L2Walker.exe" dan klik 2 kali
5. Setelah L2Walker terbuka, kamu harus pilih file "L2.Exe" di tulisan PATH
6. Setelah kamu pilih file L2.Exe kamu tinggal tekan Run
   
7. Masukin id kamu seperti biasa
8. Pencet "home" untuk ngeluarin cheatnya
9. Klik "no atk" lalu tulis nama momon yang mau kamu bunuh di baris find (huruf besar ama kecil harus sama)
10. Habis itu nama momon yang kamu cari tinggal di klik
11. Lalu pilih "atk"
12. Kembali ke Lineage terus tekan "end" untuk auto-hunt
13. Have Fun and Good Luck ^.^

Terima kasih banyak kepada Steven Cool yang mau sharing cheat auto-hunt Lineage II ini :D Semoga cheatnya berguna buat para gamer di sini ^.^

Oke, langsung aja sebelum baca tutorial cara penggunaan cheatnya kamu harus download dulu program eL2Walker205 di bawah ini :

Download elWalker2.05

Klo udah download, kamu simak baik-baik tutorialnya di bawah :)

1. Ekstrak file yang udah kamu download tadi
2. Lalu, cari file yang bernama "L2Walker_2.05_CRACK.rar" lalu ekstrak
3. Hasil ekstrak tadi pindahkan ke file yang bernama "eL2Walker2.05.zip"
4. Klik 2 kali pada "eL2Walker2.05.zip" terus cari "L2Walker.exe" dan klik 2 kali
5. Setelah L2Walker terbuka, kamu harus pilih file "L2.Exe" di tulisan PATH
6. Setelah kamu pilih file L2.Exe kamu tinggal tekan Run
   
7. Masukin id kamu seperti biasa
8. Pencet "home" untuk ngeluarin cheatnya
9. Klik "no atk" lalu tulis nama momon yang mau kamu bunuh di baris find (huruf besar ama kecil harus sama)
10. Habis itu nama momon yang kamu cari tinggal di klik
11. Lalu pilih "atk"
12. Kembali ke Lineage terus tekan "end" untuk auto-hunt
13. Have Fun and Good Luck
    

cheat perfect binghai terbaru versi 2 patch april

Cheat ini baru saja selesai saya rombak ,ini cheat perfect ne mseh sama cara gunain nya seperti biasa pengen mencoba nya silahkan download

jangan lupa kunjungi web saya

download klik disini untuk download

video beat rush

Close Ad

File Info

Title: Korean Audition Beat Rush Mode

• 1
• 2
• 3
• 4
• 5

Nilai: 0 (0/0)

Views : 169

Added : 19/10/08

Size : 13.36MB

Server ID: IDWS 26 | Add to Playlist

Forum Tag:

Original name : " 5I5E-QyZa-M.flv"

Description : New mode in Season 2 for Korean Audition! Not quite sure how to explain it yet, but I LOVE THIS MODE!!! Game: Korean Audition Online Dance Battle Song: Leona Lewis - Bleeding Love

By videomaster

Download from IDWS

Title: cheat beat rush

• 1
• 2
• 3
• 4
• 5

Server ID: IDWS 36

Forum Tag:

Original name : " cheat_beat_rush.rar"

Description : mau cheat beat rush gratis

By goten01

Download from IDWS

instalan ayodance ( 2 )

Description : instalan ayodance patch maret

Download from IDWS

instalan ayodance patch maret ( 1 )

Original name : " AyoDance.msi"

Description : ayodance

By goten01

Download from IDWS

program hacker bisa jblin mi-cash

ni adalah program buat jblin audi dan jga bsa lngsung bsa jblin mi-cash ini program hacker bagi yg hacker psti bsa jalanin kde ya!!!!

Structured Exception Error Handling

Structured exception handling implementation appears in Microsoft technologies for the first time in VS.NET 2002. This error handling was implemented by using Try…Catch…Finally statement in .NET Framework. The Try…Catch…Finally statement guarantees an easy way to handle all possible errors (exception errors) that may occur while the application is running. It contains three main blocks:

Try – contains the real programming code to be controlled for any possible error.

Catch – produces the error occurred during applications execution from Try block.

Finally – always executes last, regardless of whether the code in the Catch block has also executed. In general, this block is used for cleanup resources, like closing files and releasing created custom and unmanaged resources (objects).

Below, in Listing 1, is the standard code of the exception error structure using MySQLException class:

' Declaring and initializing objects
Try
  ' Programming lines of code
Catch exError As MySqlException
  ' Error handling code
Finally
  ' Cleanup custom and unmanaged resources if necessary
End Try

Listing 1: Structured exception error handling code using MySQLException class

So far, the main problems I found were in the Try and Finally blocks. Most Application Developers understand the purpose of the Try block very well. It’s very clear that the Try block must include the entire real programming code of the application. If any code is written outside the Try block and it generates an execute error, the application will inevitably crash. I believe no one has any doubt about this. So, why do VB.NET Application Developers write code outside this block today? I have no idea!

Let’s look at the following code below (Listing 2). As you can see the connection string property (ConnectionString) of the MySQL ADO.NET connection object MySqlConnectionObject has been hardcode outside the error handling structure. This is a very bad programming practice because the connection string should not be hardcoded and set outside the error handling structure. One more thing, the ADO.NET connection object has been closed inside the Try block. This line of code should be done in the Finally block as required by definition (Listing 3). Don’t dispose the connection object at the end of the Try block because if for any reason the application crashes before, the connection object will not be destroyed. It’ll be floating on the server waiting for the Garbage Collector (GC) process.

Dim MySqlConnectionObject = New MySqlConnection
MySqlConnectionObject.ConnectionString = “server=???;user id=???;password=???;database=???;"
Try
  MySqlConnectionObject.Open()
  ' More programming code…
  MySqlConnectionObject.Close()
Catch exError As MySqlException
  MsgBox("An Error Occurred. " & exError.Number & “ – “ & exError.Message)
Finally
  ' Cleanup custom and unmanaged resources
End Try

Listing 2: Open and close the MySQL ADO.NET connection object inside the Try block

Dim MySqlConnectionObject = New MySqlConnection
MySqlConnectionObject.ConnectionString = “server=???;user id=???;password=???;database=???;"
Try
  MySqlConnectionObject.Open()
  ' More programming code…
Catch exError As MySqlException
  MsgBox("An Error Occurred. " & exError.Number & “ – “ & exError.Message)
Finally
  MySqlConnectionObject.Close()  
  ' Cleanup custom and unmanaged resources
End Try

Listing 3: Close the MySQL ADO.NET connection object inside the Finally block

A simple approach could be to write two generic functions for opening and closing the MySQL ADO.NET connection object inside the Try block as shown in Listing 4. We can see that the connection string was passed by value to the generic function MySQLOpenConnection() and it was set to the connection object inside the Try block. For more info about MySQL ADO Connection String please read my paper "Define and Store MySQL ADO Connection String in VB.NET 2005" and downloads the source code from my website Visual WWW Downloads. Just to mention the connection object has been closed properly in the Try block in generic function MySQLCloseConnection(). In real business application development its bad programming practices to keep open a MySQL ADO.NET connection object all the times. We don’t want many connection objects open at the same time in a production server. It's better to open the connection object, do the required database transactions (load, insert, update and delete) and then close it properly. I think, in general, these two functions could be applied in any MySQL/VB.NET Windows database applications development.

Public Sub MySQLOpenConnection(ByVal pConnectionString As String, _
                              ByRef pErrorMessageString As String)
  Try
     MySqlConnectionObject.ConnectionString = pConnectionString
     MySqlConnectionObject.Open()
  Catch exError As MySqlException
     pErrorMessageString = exError.Number & " - " & exError.Message
  End Try
End Sub

Public Sub MySQLCloseConnection(ByRef pErrorMessageString As String)
  Try
     If Not MySqlConnectionObject Is Nothing Then
        If MySqlConnectionObject.State = ConnectionState.Open Then
           MySqlConnectionObject.Close()
           MySqlConnectionObject.Dispose()
        End If
     End If
  Catch exError As MySqlException
     pErrorMessageString = exError.Number & " - " & exError.Message
  End Try
End Sub

Listing 4: Generic functions to open and close MySQL ADO.NET connection object

Let’s look at our VB.NET 2008 example project. To do a better implementation of error handling and code organization let’s create a class object ExceptionClass shown in Listing 5. As you can see, I always use in my MySQL/VB.NET papers, a disposal class object. It was created to properly release the ExceptionClass recourses by implementing the interface IDisposable. The class object ExceptionClass is designed inside the namespace WritingExceptionLibrary and two libraries have been imported: the MySQL Connector/NET data library MySqlClient for database connection and transactions; and the input/output system library IO for reading and writing to a text file.

Imports MySql.Data.MySqlClient
Imports System.IO

Namespace WritingExceptionLibrary
  Public Class ExceptionClass
     Inherits ObjectDisposeClass
     Private MySqlConnectionObject As New MySqlConnection
     Private PositionStreamWriter As StreamWriter
     ' Developed custom properties, methods and events…
  End Class

  Public Class ObjectDisposeClass
     Implements IDisposable
     Private disposedValue As Boolean = False
     Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
     End Sub
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
           If disposing Then
              ' TODO: free unmanaged resources when explicitly called
           End If
           ' TODO: free shared unmanaged resources
        End If
        Me.disposedValue = True
     End Sub
  End Class
End Namespace

Listing 5: Class object ExceptionClass design code

In Listing 6 we see the code of the test form object WritingExceptionErrorsForm. This form includes two imported libraries, the MySQL Connector/NET data library MySqlClient and the namespace project WritingExceptionLibrary. A new instant ExceptionClassObject of the class object ExceptionClass is declared and initialized. The connection string MySQLConnectionString and the name of the exception log file ExceptionErrorFileString have been defined and stored in the application configuration settings file as shown in Table 1. The path of the exception log file has been defined in the same folder of the application executable file as Application.StartupPath().

Imports MySql.Data.MySqlClient
Imports WritingExceptionErrors.WritingExceptionLibrary

Public Class WritingExceptionErrorsForm
  Private ExceptionClassObject As New ExceptionClass
  Private MySQLConnectionString As String = My.Settings.MySQLConnectionString
  Private ExceptionErrorFileString As String = Application.StartupPath() & "\" & My.Settings.ExceptionErrorFile
  Private WriteErrorMessageString As String
  Private ErrorMessageString As String

  Private Sub WritingExceptionErrorsForm_FormClosed(ByVal sender As Object, _
                                                    ByVal e As System.Windows.Forms.FormClosedEventArgs) _
                                                    Handles Me.FormClosed
     If Not ExceptionClassObject Is Nothing Then
        ExceptionClassObject.Dispose()
        ExceptionClassObject = Nothing
     End If
     Dispose()
  End Sub

  Private Sub ExitButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles ExitButton.Click
     Close()
End Sub

End Class

Listing 6: Form object WritingExceptionErrorsForm code

Name	Type	Scope	Value
MySQLConnectionString	(ConnectionString)	Application	Server=???;Database=???;Uid=???;Pwd=???;
ExceptionErrorFile	String	Application	ExceptionErrorFile.log

Table 1: Application configuration settings for MySQL connection string and exception error log file path

After we designed our VB.NET example project structure and before continuing to write more error handling codes, let’s look at the .NET Using statement.

Using Statement

In VB.NET 2005, Microsoft introduced for the first time the Using statement to dispose unmanaged recourses like file handle, COM wrapper, ADO.NET connection object, etc. Managed resources are disposed of by the .NET Framework GC without any extra coding on your part. Here is the main code structure of the Using statement (Listing 7):

Using (Resource list | Resource expression)
' Programming lines of code
End Using

Listing 7: Using statement structure code

Where:
Resource list - required if you do not supply resource expression. List one or more system resources that this Using block controls
Resource expression - required if you do not supply resource list. Reference variable or expression referring to a system resource to be controlled by this Using block statementsEnd Using - required. It terminates the definition of the Using block and disposes of all the resources that it controls

The program can handle an exception error that might occur within the Using statement by adding a complete Try…Catch statement as following in Listing 8:

Try
Using (Resource list | Resource expression)
  ' Programming lines of code
End Using
Catch exError As MySqlException
  ' Error handling code
End Try

Listing 8: Using statement inside the Try…Catch exception handling structure

As you can see the Finally block is not required at this point because the End Using statement takes care of destroying unmanaged resources. This will definitely save a lot of codes and reduce the application development time. The above VB.NET programming structure should the standard for any windows database applications development today, especially for managing MySQL ADO.NET objects. If we apply this idea to the same MySQL ADO.NET connection object MySqlConnectionObject shown in Listing 3, the general error handling code structure will look like (Listing 9):

Try
  Using MySqlConnectionObject As New MySqlConnection(My.Settings.MySQLConnectionString)
     MySqlConnectionObject.Open()
     ' More programming code…
  End Using
Catch exError As MySqlException
  MsgBox(exError.Number & " - " & exError.Message)
End Try

Listing 9: General Using statement for MySQL ADO.NET connection object

At this point, as I explained before, the connection object does not need to be disposed and destroyed. The Using statement simplifies and makes the VB.NET code easier to read. Please use this code structure every day at work in production environment. I use it and recommend my clients, developer friends and students to use it too. This is a very useful VB.NET defined and organized programming code!

Writing Exception Errors to a Log File

Now what we know how to catch the exception errors, we need to learn how to store them properly. One of my favorite approaches is to store these exception errors in a log text file. I found this implementation very easy to code and use. The question is what parameters of these exception errors need to be stored. They include the following five:

1. Date/Time – when the exception error occurred
2. Source – in which application object the exception error occurred (control, form, web page, etc.)
3. Location – in which application event or procedure the exception error occurred
4. Error Number – VB.NET compile error number
5. Error Description – VB.NET compile error description

I really believe that these five parameters are good enough to locate and fix any exception errors. Some Application Developers miss the application object (source) and application event or procedure (location) where exception errors occurred. This may increase the error search considerably. I have developed many complex Windows and Internet web applications for the last eighteen years and found very useful information to identify the application source and location of the exception errors. Let’s look at the exception error capture procedure developed in out class object ExceptionClass. Listing 10 shows the procedure WriteExceptionErrorToFile() to write to the log text file defined in by value parameter pFileNamePathString. This parameter contains both the path and the name log file. As I explained before, the path is defined by the application executable file Application.StartupPath() (Listing 6) and the name is stored in the application configuration settings file as ExceptionErrorFile.log (Table 1). A file stream object ObjectFileStream was created with append mode FileMode.Append and write access FileAccess.Write. The stream write object ObjectStreamWriter writes the exception errors to the log file using the WriteLine() method. After that this object needs to be destroyed by using the Flush() and Close() methods. The file stream object ObjectFileStream should be closed on time also.

Public Sub WriteExceptionErrorToFile(ByVal pFileNamePathString As String, _
                                    ByVal pSourceObjectNameString As String, _
                                    ByVal pProcedureNameString As String, _
                                    ByVal pWriteErrorMessageString As String, _
                                    ByRef pErrorMessageString As String)
  Dim ExceptionMessageString As String
  Try
     Dim ObjectFileStream As New FileStream(pFileNamePathString, _
                                            FileMode.Append, _
                                            FileAccess.Write, _
                                            FileShare.None)
     Dim ObjectStreamWriter As New StreamWriter(ObjectFileStream)
     ExceptionMessageString = "Date: [" & Now().ToString & "] - " & _
                              "Source: [" & pSourceObjectNameString & "] - " & _
                              "Procedure: [" & pProcedureNameString & "] - " & _
                              "Error Message: [" & pWriteErrorMessageString & "]."
     ObjectStreamWriter.WriteLine(ExceptionMessageString)
     If Not ObjectStreamWriter Is Nothing Then
        ObjectStreamWriter.Flush()
        ObjectStreamWriter.Close()
     End If
     If Not ObjectFileStream Is Nothing Then
        ObjectFileStream.Close()
     End If
  Catch exError As Exception
     pErrorMessageString = "Anable to write to Application Log File. Contact your Application Administrator." & exError.Message
  End Try
End Sub

Listing 10: Procedure WriteExceptionErrorToFile() code to write exception errors to a log text file

To provide some code examples, I have decided to use the procedure WriteExceptionErrorToFile() with MySQL data load, insert, update and delete. First of all, let’s look at the error occurred when the MySQL ADO.NET connection object fails because of changing the name of the database. How do we call the procedure WriteExceptionErrorToFile() from out form object WritingExceptionErrorsForm (Listing 6)? The procedure ConnectionButton1_Click() shown in Listing 11 provides the code with a simple call using our class object as ExceptionClassObject.WriteExceptionErrorToFile(). If an error occurred during MySQL server connection, the procedure MySQLOpenConnection() will return an error message ErrorMessageString. A message will alert the user with the error occurred and it’ll be stored in the log file. As you can see in procedure WriteExceptionErrorToFile() the application error source is defined as the name of the form object Me.Name and the error location is the procedure ConnectionButton1_Click(). This will allow Application Developers to find the errors and fix them quickly.

Private Sub ConnectionButton1_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles ConnectionButton.Click
  Call ExceptionClassObject.MySQLOpenConnection(MySQLConnectionString, _
                                                ErrorMessageString)
  ' More programming code...
  If Not ErrorMessageString Is Nothing Then
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "ConnectionButton1_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End If
  Call ExceptionClassObject.MySQLCloseConnection(ErrorMessageString)
End Sub

Listing 11: Procedure ConnectionButton1_Click() with error log file implementation WriteExceptionErrorToFile()

Let’s look at the real error when we change the name of the database. If we change the name of the database from ??? to ???_none, we get an exception error stored in the file ExceptionErrorFile.log (Listing 12). The real database name has been omitted for security reasons. As you can see from Listing 12 the MySQL Connector/NET error-description message is ‘1049 - Unknown database '???_none', and the application source and location is WritingExceptionErrorsForm and ConnectionButton1_Click(). I really do believe that with this line of information in the log file, any developer can go open the form WritingExceptionErrorsForm, position the click event of the button ConnectionButton1 and find the occurred error in MySQL open connection procedure MySQLOpenConnection() – it’s just that simple!

Date: [11/13/2008 1:36:40 PM] - Source: [WritingExceptionErrorsForm] - Procedure: [ConnectionButton1_Click] - Error Message: [1049 - Unknown database '???_none'].

Listing 12: Exception error occurred when the name of the MySQL database changes

If we use the Using statement in procedure ConnectionButton1_Click(), the code will look similar to the code shown in Listing 13. As you can see the MySQL close connection procedure MySQLCloseConnection() is not required at this point because the Using statement will take care of destroying properly the connection object mMySqlConnection.

Private Sub ConnectionButton2_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles ConnectionButton2.Click
  Try
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
       ' More programming code...
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "ConnectionButton2_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
 End Try
End Sub

Listing 13: Procedure ConnectionButton2_Click() with Using statement implementation

MySQL Data Load with Exception Error Log File

I have received many questions around the Open Source world about the best approach for MySQL data load in Windows database applications. My answer to this question is always the same. Today, the best solution for this implementation is to use the combination of MySQL data reader object MySqlDataReader and database stored queries (stored procedures, functions and triggers). I assume that practically all Application Developers know the MySQL data reader object from the Connector/NET data library. For example, how about designing, writing and debugging MySQL stored procedures? Well, unfortunately not a lot of Application Developers know how to do so and don’t care to know it either. They think that dynamic SQL:2003 embedded in VB.NET code is good enough to do anything with MySQL database tables. The reality of application development is that dynamic SQL:2003 implementation in VB.NET code is a bad programming practice. I can’t image getting any Application Developer position today without knowing how to develop stored queries in Microsoft, Oracle, IBM DB2 and Open Source database technologies. In my previous paper "MySQL Data Loading with Lookup Tables" I talked about this approach very clearly. Feel free to download the document of the paper and the example source code from my website Visual WWW Downloads.

Listings 14 and 15 show the MySQL table 'data' and user stored procedure 'usp_data_select_id_name' script definition. I developed these database objects using Toad for MySQL Freeware 4.1 version from Quest Software, Inc.

DROP TABLE IF EXISTS `data`;
CREATE TABLE `data` (
 `id` int(11) NOT NULL AUTO_INCREMENT,
 `name` varchar(50) NOT NULL,
 `birthdate` date NOT NULL,
 `numberofchildren` smallint(20) DEFAULT NULL,
 `married` tinyint(1) DEFAULT '0',
 `computerpc` tinyint(1) DEFAULT '0',
 `computerlaptop` tinyint(1) DEFAULT '0',
 `salary` double(10,2) DEFAULT NULL,
 `comment` varchar(300) DEFAULT NULL,
 PRIMARY KEY  (`id`),
 KEY `ix1_data` (`name`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Listing 14: Table 'data' script definition

DROP PROCEDURE IF EXISTS `usp_data_select_id_name`;
CREATE PROCEDURE `usp_data_select_id_name`( )
BEGIN
  SELECT `data`.`id`, `data`.`name`
  FROM `data`
  ORDER BY `data`.`name`;
END;

Listing 15: User stored procedure 'usp_data_select_id_name' script definition

To show an example of VB.NET 2008 code for MySQL data load I used a standard ComboxBox control (Listing 16). From this listing you can quickly see that all the MySQL .NET objects like connection MySqlConnection, command MySqlCommand and data reader MySqlDataReader have been declared and initialized by the Using statement. For this reason, as I explained earlier the Finally block is not required in the code. One thing to consider is that a general object variable AnyDataValue has been declared to get any data type by the GetString() method of the data reader mMySqlDataReader. In the Catch block the procedure WriteExceptionErrorToFile() has been called to store the exception errors in the log file if needed. The application errorsource is the name of the form object Me.Name and the error location is the click event of the button DataLoadComboBoxButton.

Private Sub DataLoadComboBoxButton_Click(ByVal sender As System.Object, _
                                        ByVal e As System.EventArgs) _
                                        Handles DataLoadComboBoxButton.Click
  Dim IdInt32 As Int32, NameString As String, AnyDataValue As Object
  Try
     Using mMySqlConnectiont As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.StoredProcedure
              .CommandText = "usp_data_select_id_name"
           End With
           Using mMySqlDataReader As MySqlDataReader = _
              mMySqlCommand.ExecuteReader(CommandBehavior.SingleResult)
              With DataComboBox
                 .Items.Clear()
                 If mMySqlDataReader.HasRows Then
                    .BeginUpdate()
                    Do While mMySqlDataReader.Read()
                       AnyDataValue = mMySqlDataReader.GetString(0)
                       If Not IsDBNull(AnyDataValue) Then
                          IdInt32 = Convert.ToInt32(AnyDataValue)
                       Else
                          IdInt32 = 0
                       End If
                       AnyDataValue = mMySqlDataReader.GetString(1)
                       If Not IsDBNull(AnyDataValue) Then
                          NameString = Convert.ToString(AnyDataValue)
                       Else
                          NameString = String.Empty
                       End If
                       .Items.Add(IdInt32 & " - " & NameString)
                    Loop
                    .EndUpdate()
                    .SelectedIndex = 0
                 End If
              End With
           End Using
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataLoadComboBoxButton_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 16: MySQL data load procedure with error log file implementation WriteExceptionErrorToFile()

Here is an example of an exception error generated by the data reader object mMySqlDataReader. If we change the name of the user stored procedure to usp_data_select_id_name_none, we get the following line of error in the log file ExceptionErrorFile.log (Listing 17).

Date: [11/15/2008 8:29:03 AM] - Source: [WritingExceptionErrorsForm] - Procedure: [DataLoadComboBoxButton_Click] - Error Message: [0 - Procedure or function 'usp_data_select_id_name_none' cannot be found in database '???'.].

Listing 17: Exception error occurred when the name of the user stored procedure changes

MySQL Data Insert with Exception Error Log File

Any MySQL database transaction could be done by using the Connector/NET command object MySqlCommand with dynamic SQL (SQL:2003) or user stored queries. In my paper "Load and Search MySQL Data Using VB.NET 2005 in Windows Applications" I explained the main difference between these two approaches. I am a big believer in user stored procedures implementation and think it is much better that dynamic SQL. My eighteen years of experience demonstrated me to be sure about this. In this paper, I’ll cover both of them. Let’s look at the dynamic SQL approach first. Listing 18 shows the code of the button click event DataInsertButton1_Click(). The sample used data to insert into the table 'data' (Listing 14) has been hardcoded to simplify the procedure. The variable SQLInsertString contains the dynamic SQL based on INSERT INTO statement. To execute a dynamic SQL using the command object MySqlCommand, the property CommandType must be set to CommandType.Text and CommandText to the variable SQLInsertString. The execute method ExecuteNonQuery() will insert a new row into the table 'data'. In the Catch block the procedure WriteExceptionErrorToFile() has been included to write the exception errors to the log file if needed.

Private Sub DataInsertButton1_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataInsertButton1.Click
  Dim SQLInsertString, NameString, BirthDateString, CommentString As String
  Dim BirthDateDate As Date, NoOfChildrenInt32 As Int32
  Dim MarriedInt16, ComputerPCInt16, ComputerLaptopInt16 As Int16
  Dim SalaryDouble As Double
  ' Sample hardcoded data
  NameString = "John Smith"
  BirthDateDate = #1/1/2008#
  BirthDateString = BirthDateDate.ToString("yyyy-MM-dd")
  NoOfChildrenInt32 = 3
  MarriedInt16 = 1
  ComputerPCInt16 = 0
  ComputerLaptopInt16 = 1
  SalaryDouble = 45000.0
  CommentString = "The John Smith record"
  Try
     SQLInsertString = "INSERT INTO `data` (`name`, `birthdate`, `numberofchildren`, `married`, `computerpc`,
     `computerlaptop`, `salary`, `comment`) "
     SQLInsertString = SQLInsertString & "VALUES ('" & NameString & "', " & "'" & BirthDateString & "'" & ", " &
     NoOfChildrenInt32 & ", " & MarriedInt16 & _
     ", " & ComputerPCInt16 & ", " & ComputerLaptopInt16 & ", " & SalaryDouble & ", " & "'" & CommentString & "')"
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.Text
              .CommandText = SQLInsertString
              .ExecuteNonQuery()
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataInsertButton1_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 18: MySQL data insert procedure with dynamic SQL and error log file implementation WriteExceptionErrorToFile()

The dynamic SQL SQLInsertString shown above could be stored and pre-compiled at the MySQL database engine level. We can do that by implementing this dynamic SQL inside the user stored queries (stored procedures, functions and triggers). Listing 19 shows the script of the user stored procedure 'usp_data_insert'. You can easily figure out the BEGIN-END block contains the INSERT INTO SQL statement. The VALUES of this statement are input parameters of the procedure. These parameters should have the same data type and size as the columns from the table 'data'. The MySQL build-in function LAST_INSERT_ID() is required to determine the latest unique inserted 'id' number. This value needs to be known by the GUI for any future transaction.

DROP PROCEDURE IF EXISTS `usp_data_insert`;
CREATE PROCEDURE `usp_data_insert`(
  IN par_name varchar(50),
  IN par_birthdate date,
  IN par_numberofchildren smallint(20),
  IN par_married tinyint(1),
  IN par_computerpc tinyint(1),
  IN par_computerlaptop tinyint(1),
  IN par_salary double(10,2),
  IN par_comment varchar(300),
  OUT par_last_id int(11)
)
BEGIN
  INSERT INTO `data`
  (`name`,
  `birthdate`,
  `numberofchildren`,
  `married`,
  `computerpc`,
  `computerlaptop`,
  `salary`,
  `comment`)
  VALUES
  (par_name,
  par_birthdate,
  par_numberofchildren,
  par_married,
  par_computerpc,
  par_computerlaptop,
  par_salary,
  par_comment);
  SET par_last_id = LAST_INSERT_ID();
END;

Listing 19: User stored procedure 'usp_data_insert' script to insert a new row into the table 'data'

How do we call a user stored procedure and pass parameters value using MySQL Connector/NET? I think, I got this question asked every week from the Open Source world community. I have decided to write and explain the code to everyone for inserting, updating and deleting MySQL records using user stored procedures. Well, Listing 20 shows the code that will answer your question for inserting records. First of all, every input and output parameter needs to have a defined MySQL .NET parameter object MySqlParameter. As you can see before the Try block, all of them have been declared and initialized. The property CommandType of the command object has been set to CommandType.StoredProcedure and the CommandText to the name of the user stored procedure "usp_data_insert". After that, every parameter object needs to have the following properties defined: ParameterName, Direction, MySqlDbType, Size (if necessary) and Value. I would like to mention that the output parameter par_last_id needs to be defined before the command method ExecuteNonQuery() with property Direction equal to ParameterDirection.Output. After the execution method is set, you can get the value of this parameter stored in the generic object variable AnyDataValue. With the user stored procedure 'usp_data_insert', we can get the latest unique inserted 'id' number as an output parameter. To get the same number with dynamic SQL you’ll need to execute one more dynamic SQL using the aggregate function MAX('id'). This is a very good advantage of stored procedures development vs. dynamic SQL embedded in VB.NET application code. Moreover, you can move complete clients business rules inside the user stored queries - just something for you to think about!

Private Sub DataInsertButton2_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataInsertButton2.Click
  Dim NameString, BirthDateString, CommentString As String
  Dim BirthDateDate As Date, NoOfChildrenInt32, LastIdInt32 As Int32
  Dim MarriedInt16, ComputerPCInt16, ComputerLaptopInt16 As Int16
  Dim SalaryDouble As Double, AnyDataValue As Object
  ' Sample hardcoded data
  NameString = “James White"
  BirthDateDate = #10/10/2008#
  BirthDateString = BirthDateDate.ToString(“yyyy-MM-dd")
  NoOfChildrenInt32 = 2
  MarriedInt16 = 1
  ComputerPCInt16 = 1
  ComputerLaptopInt16 = 1
  SalaryDouble = 65000.0
  CommentString = “The James White record"

  Dim IdMySqlParameter As New MySqlParameter
  Dim LastIdMySqlParameter As New MySqlParameter
  Dim NameMySqlParameter As New MySqlParameter
  Dim BirthDateMySqlParameter As New MySqlParameter
  Dim Numbe rOfChildrenMySqlParameter As New MySqlParameter
  Dim MarriedMySqlParameter As New MySqlParameter
  Dim ComputerPCMySqlParameter As New MySqlParameter
  Dim ComputerLaptopMySqlParameter As New MySqlParameter
  Dim SalaryMySqlParameter As New MySqlParameter
  Dim CommentMySqlParameter As Ne w MySqlParameter
  Try
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.StoredProcedure
              .CommandText = “usp_data_insert"
              With NameMySqlParameter
                 .ParameterName = “par_name"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.VarChar
                 .Size = 50
                 .Value = NameString
              End With
              .Parameters.Add(NameMySqlParameter)
              With BirthDateMySqlParameter
                 .ParameterName = “par_birthdate"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Date
                 .Value = BirthDateString
              End With
              .Parameters.Add(BirthDateMySqlParameter)
              With NumberOfChildrenMySqlParameter
                 .ParameterName = “par_numberofchildren"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = NoOfChildrenInt32
              End With
              .Parameters.Add(NumberOfChildrenMySqlParameter)
              With MarriedMySqlParameter
                 .ParameterName = “par_married"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = MarriedInt16
              End With
              .Parameters.Add(MarriedMySqlParameter)
              With ComputerPCMySqlParameter
                 .ParameterName = “par_computerpc"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = ComputerPCInt16
              End With
              .Parameters.Add(ComputerPCMySqlParameter)
              With ComputerLaptopMySqlParameter
                 .ParameterName = “par_computerlaptop"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = ComputerLaptopInt16
              End With
              .Parameters.Add(ComputerLaptopMySqlParameter)
              With SalaryMySqlParameter
                 .ParameterName = “par_salary"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Double
                 .Value = SalaryDouble
              End With
              .Parameters.Add(SalaryMySqlParameter)
              With CommentMySqlParameter
                 .ParameterName = “par_comment"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.VarChar
                 .Size = 300
                 .Value = CommentString
              End With
              .Parameters.Add(CommentMySqlParameter)
              With LastIdMySqlParameter
                 .ParameterName = “par_last_id"
                 .Direction = ParameterDirection.Output
                 .MySqlDbType = MySqlDbType.Int32
                 .Value = LastIDInt32
              End With
              .Parameters.Add(LastIdMySqlParameter)
              .ExecuteNonQuery()
              AnyDataValue = .Parameters(“par_last_id").Value
              If Not IsDBNull(AnyDataValue) Then
                 LastIDInt32 = Convert.ToInt32(AnyDataValue)
              Else
                 LastIDInt32 = Nothing
              End If
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " –"& exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataInsertButton2_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 20: MySQL data insert procedure with user stored procedure "usp_data_insert" and error log file implementation WriteExceptionErrorToFile()

The following error occurred when change the name of the user stored procedure to "usp_data_insert_nore" (Listing 21).

Date: [11/17/2008 11:48:54 AM]  - Source: [WritingExceptionErrorsForm] - Procedure: [DataInsertButton2_Click] -  Error Message: [0 - Procedure or function 'usp_data_insert_none' cannot be  found in database 'vwww'.].

Listing 21: Exception error occurred when the name of the user stored procedure changes

MySQL Data Update with Exception Error Log File

Same as in Listing 18, Listing 22 contains the code to update MySQL table 'data' with dynamic SQL defined in variable SQLUpdateString. To position the row to be updated an 'id' value IdInt32 is required.

Private Sub DataUpdateButton1_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataUpdateButton1.Click
  Dim SQLUpdateString, NameString, BirthDateString, CommentString As String
  Dim BirthDateDate As Date, IdInt32, NoOfChildrenInt32 As Int32
  Dim MarriedInt16, ComputerPCInt16, ComputerLaptopInt16 As Int16
  Dim SalaryDouble As Double
  ' Sample hardcoded data
  IdInt32 = 23
  NameString = "John Smith"
  BirthDateDate = #1/1/2008#
  BirthDateString = BirthDateDate.ToString("yyyy-MM-dd")
  NoOfChildrenInt32 = 3
  MarriedInt16 = 1
  ComputerPCInt16 = 0
  ComputerLaptopInt16 = 1
  SalaryDouble = 45000.0
  CommentString = "The John Smith record"
  Try
     SQLUpdateString = "UPDATE `data` SET `name` = '" & NameString _
                                     & "', `birthdate` = '" & BirthDateString _
                                     & "', `numberofchildren` = " & NoOfChildrenInt32 _
                                     & ", `married` = " & MarriedInt16 _
                                     & ", `computerpc` = " & ComputerPCInt16 _
                                     & ", `computerlaptop` = " & ComputerLaptopInt16 _
                                     & ", `salary` = " & SalaryDouble _
                                     & ", `comment` = '" & CommentString & "' " _
                                     & "WHERE `id` = " & IdInt32
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.Text
              .CommandText = SQLUpdateString
              .ExecuteNonQuery()
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
  Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                      Me.Name, _
                                                      "DataUpdateButton1_Click", _
                                                      ErrorMessageString, _
                                                      WriteErrorMessageString)
  End Try
End Sub

Listing 22: MySQL data update procedure with dynamic SQL and error log file implementation WriteExceptionErrorToFile()

Listing 23 shows the script of the user stored procedure 'usp_data_update'. As we can see the input parameter par_id is required in the WHERE clause statement to postion a row to be updated.

DROP PROCEDURE IF  EXISTS `usp_data_update`;
CREATE PROCEDURE  `usp_data_update`(
  IN par_id int(11),
  IN par_name varchar(50),
  IN par_birthdate date,
  IN par_numberofchildren smallint(20),
  IN par_married tinyint(1),
  IN par_computerpc tinyint(1),
  IN par_computerlaptop tinyint(1),
  IN par_salary double(10,2),
  IN par_comment varchar(300)
)
BEGIN
  UPDATE `data`
  SET `name` = par_name,
  `birthdate` = par_birthdate,
  `numberofchildren` = par_numberofchildren,
  `married` = par_married,
  `computerpc` = par_computerpc,
  `computerlaptop` = par_computerlaptop,
  `salary` = par_salary,
  `comment` = par_comment
  WHERE `id` = par_id;
END;

Listing 23: User stored procedure 'usp_data_update' script to update a row in table 'data'

In Listing 24 we can see how to update MySQL table data' with user stored procedure 'usp_data_update'. Because an 'id' value is required a parameter object IdMySqlParameter has been defined for it.

Private Sub DataUpdateButton2_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataUpdateButton2.Click
  Dim NameString, BirthDateString, CommentString As String
  Dim BirthDateDate As Date, NoOfChildrenInt32, IdInt32 As Int32
  Dim MarriedInt16, ComputerPCInt16, ComputerLaptopInt16 As Int16
  Dim SalaryDouble As Double
  ' Sample hardcoded data
  IdInt32 = 45
  NameString = "Ernest Bonat"
  BirthDateDate = #10/10/2008#
  BirthDateString = BirthDateDate.ToString("yyyy-MM-dd")
  NoOfChildrenInt32 = 2
  MarriedInt16 = 1
  ComputerPCInt16 = 1
  ComputerLaptopInt16 = 1
  SalaryDouble = 95000.0
  CommentString = "The James White record"

  Dim IdMySqlParameter As New MySqlParameter
  Dim NameMySqlParameter As New MySqlParameter
  Dim BirthDateMySqlParameter As New MySqlParameter
  Dim NumberOfChildrenMySqlParameter As New MySqlParameter
  Dim MarriedMySqlParameter As New MySqlParameter
  Dim ComputerPCMySqlParameter As New MySqlParameter
  Dim ComputerLaptopMySqlParameter As New MySqlParameter
  Dim SalaryMySqlParameter As New MySqlParameter
  Dim CommentMySqlParameter As New MySqlParameter

  Try
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.StoredProcedure
              .CommandText = "usp_data_update"
              With IdMySqlParameter
                 .ParameterName = "par_id"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int32
                 .Value = IdInt32
              End With
              .Parameters.Add(IdMySqlParameter)
              With NameMySqlParameter
                 .ParameterName = "par_name"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.VarChar
                 .Size = 50
                 .Value = NameString
              End With
              .Parameters.Add(NameMySqlParameter)
              With BirthDateMySqlParameter
                 .ParameterName = "par_birthdate"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Date
                 .Value = BirthDateString
              End With
              .Parameters.Add(BirthDateMySqlParameter)
              With NumberOfChildrenMySqlParameter
                 .ParameterName = "par_numberofchildren"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = NoOfChildrenInt32
              End With
              .Parameters.Add(NumberOfChildrenMySqlParameter)
              With MarriedMySqlParameter
                 .ParameterName = "par_married"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = MarriedInt16
              End With
              .Parameters.Add(MarriedMySqlParameter)
              With ComputerPCMySqlParameter
                 .ParameterName = "par_computerpc"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = ComputerPCInt16
              End With
              .Parameters.Add(ComputerPCMySqlParameter)
              With ComputerLaptopMySqlParameter
                 .ParameterName = "par_computerlaptop"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int16
                 .Value = ComputerLaptopInt16
              End With
              .Parameters.Add(ComputerLaptopMySqlParameter)
              With SalaryMySqlParameter
                 .ParameterName = "par_salary"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Double
                 .Value = SalaryDouble
              End With
              .Parameters.Add(SalaryMySqlParameter)
              With CommentMySqlParameter
                 .ParameterName = "par_comment"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.VarChar
                 .Size = 300
                 .Value = CommentString
              End With
              .Parameters.Add(CommentMySqlParameter)
              .ExecuteNonQuery()
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataUpdateButton2_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 24: MySQL data update procedure with user stored procedure "usp_data_update" and error log file implementation WriteExceptionErrorToFile()

MySQL Data Delete with Exception Error Log File

Delete a row from MySQL table 'data' is a simple task. Using the DELETE FROM statement in dynamic SQL variable SQLDeleteString with an 'id' value, it allows us to delete any selected row (Listing 25).

Private Sub DataDeleteButton1_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataDeleteButton1.Click
  Dim SQLDeleteString As String
  Dim IdInt32 As Int32
  ' Sample hardcoded data
  IdInt32 = 11
  Try
     SQLDeleteString = "DELETE FROM `data` WHERE `id` = " & IdInt32
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.Text
              .CommandText = SQLDeleteString
              .ExecuteNonQuery()
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataDeleteButton1_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 25: MySQL data delete procedure with dynamic SQL and error log file implementation WriteExceptionErrorToFile()

Listing 26 shows the script of the user stored procedure 'usp_data_delete'. As we can see the input parameter par_id is also required for the WHERE clause statement to postion a row to be deleted.

DROP PROCEDURE IF EXISTS `usp_data_delete`;
CREATE PROCEDURE `usp_data_delete`(
  IN par_id int(11)
)
BEGIN
  DELETE FROM `data`
  WHERE `id` = par_id;
END;

Listing 26: User stored procedure 'usp_data_delete' script to delete a row from the table 'data'

Listing 27 shows how to delete a row from MySQL table 'data' with user stored procedure "usp_data_delete". As I already explained, in this case, the only required MySQL parameter should be for column 'id'.

Private Sub DataDeleteButton2_Click(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles DataDeleteButton2.Click
  Dim IdInt32 As Int32
  ' Sample hardcoded data
  IdInt32 = 20
  Dim IdMySqlParameter As New MySqlParameter
  Try
     Using mMySqlConnection As New MySqlConnection(MySQLConnectionString)
        mMySqlConnection.Open()
        Using mMySqlCommand As New MySqlCommand
           With mMySqlCommand
              .Connection = mMySqlConnection
              .CommandType = CommandType.StoredProcedure
              .CommandText = "usp_data_delete"
              With IdMySqlParameter
                 .ParameterName = "par_id"
                 .Direction = ParameterDirection.Input
                 .MySqlDbType = MySqlDbType.Int32
                 .Value = IdInt32
              End With
              .Parameters.Add(IdMySqlParameter)
              .ExecuteNonQuery()
           End With
        End Using
     End Using
  Catch exError As MySqlException
     ErrorMessageString = exError.Number & " - " & exError.Message
     MessageBox.Show("An Application Error Occurred. " & _
                     ErrorMessageString, _
                     "Exception Error Handling", _
                     MessageBoxButtons.OK, _
                     MessageBoxIcon.Warning)
     Call ExceptionClassObject.WriteExceptionErrorToFile(ExceptionErrorFileString, _
                                                         Me.Name, _
                                                         "DataDeleteButton2_Click", _
                                                         ErrorMessageString, _
                                                         WriteErrorMessageString)
  End Try
End Sub

Listing 27: MySQL data delete procedure with stored procedure "usp_data_delete" and error log file implementation WriteExceptionErrorToFile()

Title: cheat bet up versi 5

Title: cheat bet up versi 5

• 1
• 2
• 3
• 4
• 5

Nilai: 0 (0/0)

Views : 0

Added : 14/03/09

Size : 0.48MB

Server ID: IDWS 36

Forum Tag:

Original name : " vheat bet up versi 5.rar"

Description : klau mau pass ya isiin mi-cash 20k kirim ke fs q tanakamajapahit@yahoo.com

By goten01

Download from IDWS

cheat bet up versi 5.5j

Title: cheat bet up versi 5

• 1
• 2
• 3
• 4
• 5

Nilai: 0 (0/0)

Views : 0

Added : 14/03/09

Size : 0.48MB

Server ID: IDWS 36

Forum Tag:

Original name : " vheat bet up versi 5.rar"

Description : klau mau pass ya isiin mi-cash 20k kirim ke fs q tanakamajapahit@yahoo.com

By goten01

Download from IDWS