PHP MySQL can we have some other combination

[akshar]

I am learning to use two open source softwares, php and MySQL. But now I want to use MySQL with VB6. Is it possible?
I have used VB access before.

[alib_i]

http://dev.mysql.com/tech-resources/...-handling.html
http://www.vbmysql.com/

-----
alibi

[tuxfan]

Here's some small SQL tutorial/Tips
http://www.vbforums.com/showthread.php?t=81916

Have a look at these links too
http://www.mysql.com/search/?q=%22Vi...set=iso-8859-1
http://www.vbforums.com/showthread.p...ighlight=mysql

ADO Tutorial
http://www.vbforums.com/showthread.php?threadid=153935

And here's the best
http://www.vbforums.com/showthread.p...ighlight=mysql

Originally Posted by Mark Gambo @ VB Forums

Here is what I use to connect to MySql:
visual basic code:

Option Explicit
Dim strDataBaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim b as Long
strDBCursorType = adOpenDynamic  'CursorType
strDBLockType = adLockOptimistic   'LockType
strDBOptions = adCmdText         'Options

Set cn = New ADODB.Connection
Me.MousePointer = 11

cn.Open ConnectString()
    
    With cn
        .CommandTimeout = 0
        .CursorLocation = adUseClient
    End With

    Set rs = New ADODB.Recordset       'Creates record set

    strSQL = "<Your SQL Here>"
        rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
    

if rs.Eof then
   Goto ExitSub    
else
    For b = 1 To rs.RecordCount
	'<do whatever you need to do with the data here>
    Next b
end if
    
ExitSub:

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

On Error GoTo 0
Exit Sub

Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")  & _
                     in procedure Command1_Click of Form " & Me.Name
End Sub

Private Function ConnectString() As String
Dim strServerName as String
Dim strDatabaseName as string
Dim strUserName as string
Dim strPassword as string

    'Change to IP Address if not on local machine
    'Make sure that you give permission to log into the
    'server from this address
    'See Adding New User Accounts to MySQL
    'Make sure that you d/l and install the MySQL Connector/ODBC 3.51 Driver 
strServerName = "localhost" strDatabaseName = "DatabaseName"
strUserName = "UserName"
strPassword ="Password"

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                "SERVER=" & strServerName & _
                ";DATABASE=" & strDatabaseName & ";" & _
                "USER=" & strUserName & _
                ";PASSWORD=" & strPassword  & _
                ";OPTION=3;"

End Function

[akshar]

thanks that really helped