MySQL y Visual Basic :)

En este pequeño modulo, lo que se hace básicamente lo siguiente:

- Conetar Visual Basic con MySQL

- Crear una Base de datos y una tabla.

Requisitos para poner a funcionar el modulo:

1 - Instalar el driver ODBC para MySQL desde Windows, para descargar el driver puedes visitar el siguiente link http://dev.mysql.com/downloads/mirror.php?id=13598#mirrors

2 - Activar la la opción "Microsoft ActiveX Data Objects 2.8", para esto debes ir a la opción Proyectos->Referencias. Listo!!

3 - Probar el Modulo :)

Private Sub Command1_Click()

Dim conn As New ADODB.Connection

conn.CursorLocation = adUseClient

conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _

& "SERVER=localhost;" _

& "DATABASE=;" _

& "UID=root;" _

& "PWD=;" _

& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conn.Open

conn.Execute "CREATE DATABASE `test2`;"

conn.Execute "CREATE TABLE `test2`.`blabla` ( `id` int(11) NULL AUTO_INCREMENT, PRIMARY KEY (`id`)) ENGINE = MYISAM;"

conn.Execute "ALTER TABLE `test2`.`blabla` ADD COLUMN `lala` int(11) NULL DEFAULT NULL;"

'rs.Close

'Set rs = Nothing

conn.Close

Set conn = Nothing

MsgBox "ok"

End Sub

listo!! :)