http://hotfile.com/dl/66195158/a58cc11/v2.part2.rar.html

http://hotfile.com/dl/66195635/95c716e/v2.part3.rar.html

http://hotfile.com/dl/66196528/38c04e8/v2.part4.rar.html

http://hotfile.com/dl/66196716/678c8b9/v2.part5.rar.html

if you’ve enjoyed these, goto http://xkcd.com/ for more

for more help

http://en.support.wordpress.com/code/posting-source-code/

1. MySQL Connector ODBC 3.51  http://freakshare.net/files/5b0qkafd/MySQL-Connector-ODBC-3.51.zip.html
2. mysql-gui-tools-noinstall-5.0-r17-win32
3. mysql-essential-6.0.11-alpha-win32
4. xampp-win32-1.7.2

Reminders

1. don’t forget to reference Microsoft ActiveX Data Objects 2.6 Library
2. Projects > References…
3. place a check on Microsoft ActiveX Data Objects 2.6 Library
4. click OK

Other readings:

http://dev.mysql.com/tech-resources/articles/vb-blob-handling.html

flexgrid

http://pages.cpsc.ucalgary.ca/~saul/vb_examples/tutorial2/index.html

Now, here’s the code:

Dim conn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim fld As ADODB.Field
 Dim sql As String

Private Sub Form_Load()

'connect to MySQL server using MySQL ODBC 3.51 Driver
 Set conn = New ADODB.Connection
 conn.ConnectionString = “DRIVER={MySQL ODBC 3.51 Driver};” & “SERVER=localhost;” & ” DATABASE=newdb;” & “UID=root;OPTION=3″

conn.Open
 Set rs = New ADODB.Recordset
 End Sub

Private Sub myodbc_ado_Click()

rs.Open “SELECT * FROM newdb.my_ado;”, conn

'places value from field to textbox. rs + ! + field name
 Text2.Text = rs!id
 Text3.Text = rs!Name
 Text4.Text = rs!address

rs.Close

conn.Close
 End Sub

Another example

<pre>Private Sub myodbc_ado_Click()

  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String

  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
                        & "SERVER=localhost;"_
                        & " DATABASE=test;"_
                        & "UID=venu;PWD=venu; OPTION=3"

  conn.Open

  'create table
  conn.Execute "DROP TABLE IF EXISTS my_ado"
  conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
                                 & "txt text, dt date, tm time, ts timestamp)"

  'direct insert
  conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
  conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
  conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"

  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseServer

  'fetch the initial table ..
  rs.Open "SELECT * FROM my_ado", conn
    Debug.Print rs.RecordCount
    rs.MoveFirst
    Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50, "-")
    For Each fld In rs.Fields
      Debug.Print fld.Name,
      Next
      Debug.Print

      Do Until rs.EOF
      For Each fld In rs.Fields
      Debug.Print fld.Value,
      Next
      rs.MoveNext
      Debug.Print
    Loop
  rs.Close

  'rs insert
  rs.Open "select * from my_ado", conn, adOpenDynamic, adLockOptimistic
  rs.AddNew
  rs!Name = "Monty"
  rs!txt = "Insert row"
  rs.Update
  rs.Close

  'rs update
  rs.Open "SELECT * FROM my_ado"
  rs!Name = "update"
  rs!txt = "updated-row"
  rs.Update
  rs.Close

  'rs update second time..
  rs.Open "SELECT * FROM my_ado"
  rs!Name = "update"
  rs!txt = "updated-second-time"
  rs.Update
  rs.Close

  'rs delete
  rs.Open "SELECT * FROM my_ado"
  rs.MoveNext
  rs.MoveNext
  rs.Delete
  rs.Close

  'fetch the updated table ..
  rs.Open "SELECT * FROM my_ado", conn
    Debug.Print rs.RecordCount
    rs.MoveFirst
    Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50, "-")
    For Each fld In rs.Fields
      Debug.Print fld.Name,
      Next
      Debug.Print

      Do Until rs.EOF
      For Each fld In rs.Fields
      Debug.Print fld.Value,
      Next
      rs.MoveNext
      Debug.Print
    Loop
  rs.Close
  conn.Close
End Sub

Attn: Beneficiary,

YOUR CONTRACT/WINNING/INHERITANCE PAYMENT.

We deem it necessary to communicate you directly on the recent decision by The Ministry of Finance after an agreement was reached with representatives of the World Bank and International Monetary Fund (African Region). We have confirmed your payment file and found out that why you have not received your payment is because you have not fulfilled the obligations giving to you in respect to your payment funds.

We authoritatively wish to inform you that we have been instructed us to issue you ATM Card worth the sum of your contract/winning/inheritance payment with an accrued interest yielded starting from the time the funds was lodged in the bank. So, you have to stop any further communication with any other person(s) or office(s) to avoid any hitches in finalizing your payment.

In accordance with this directive, we have officially checked and confirmed that your contract/winning/inheritance payment with an accrued interest and the total amount is $2,520,435.00 USD. Inspirit of reconciliation we legally advise that you make a formal application for the issuance of the ATM CARD for withdrawing of cash in any ATM Machine in any part of your country. So, if you would like to receive your payment funds this way please let us know by forwarding the following information below to Mrs. Amaka Onwughalu -

1. Your Full Name
2. Phone Number
3. Address (i.e. address were you want us to send the ATM Card to you) (P.O BOX is not acceptable).

For more information, contact Mrs. Amaka Onwughalu – The Executive Director,

Automated Teller Machine ATM Department – Central Bank of Nigeria;
Tel: +234 70 67510191
Email: cbn.centralbank-ng@fm.bb

Yours Truly,
Mr Vinay Tuteja – Director,
DG-Budget Office, Finance.

Note: ATM Card is a debit card which allows the holder access or withdraws money through an Automated Teller Machine (ATM) or a point of sale (POS) terminal on an online, real-time.

Features/Benefits

* Instant cash withdrawal.
* Purchase goods / Pay for services
* Carry out ‘cash-back’ transactions (collect cash from the merchant)
ATM will pay customer clean, crisp cash notes at every withdrawal..

http://cid-a471b944ed61bc5c.skydrive.live.com/browse.aspx/.Public/Computer%20Graphics