module to connect to MySQL using MyODBC 3.51

Author: Anonymous
Category: Database
Type: Modules
Difficulty: Beginning


Version Compatibility: Visual Basic 6


More information: check out my site for updates & free code

This code has been viewed 42080 times.

Instructions: Copy the declarations and code below and paste directly into your VB project.


Declarations:

' put the following in a module

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, conn As ADODB.Connection, rs As ADODB.Recordset)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
conn.Open
End Function

'********************************************



Code:
' put this in your form

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String
Private Sub Form_Load()
Call connectMysql("root", "", "127.0.0.1", "myerp", conn, rs)

ssql = "SELECT * FROM accmaster"
rs.Open ssql, conn

Set DataGrid1.DataSource = rs

End Sub


No Text Boxes




Search:

Jupitermedia Corporation has two divisions: Jupiterimages and JupiterOnlineMedia

Jupitermedia Corporate Info


source:http://www.freevbcode.com/


------------------------------------------


Related:


single-record
Trik Cara Melacak IP
Trik Choose Phone
Trik woodwork-stores
Trik woodwork supplies
Trik wood work tool
Using radio button vb2008
Valentineday
vb2008 with control
vb2008 with control properties
vb2008 with oriented programming
VB.NET Solution files
VB.NET Code myclass