[vb6] Creare Un Database In Mysql

[Carlo1984]

Salve a tutti . . . vi ringrazio anticipatamente per le risposte e vi pongo il mio problema.

Vorrei sapere come creare da codice un database in mysql fino a ieri usavo ado e lo interfacciavo ad un db access che creavo senza difficolta' ma ora ho notato che mysql con odbc funziona diversamente e nn mi fa connettere ad un file mdb .

Il database si crea con

mysql> create database prova;

ma nn so come lanciare l'istruzione da visual basic kualcuno mi puo aiutare grazie . . .


P.S. : Che voi sappiate ado gestisce l'sql completo oppure no ??


grazie 10000000

[Carlo1984]

Ragazzi ho risolto posto il codice cosi' magari puo' servire . . . .


Sub Create_Database()

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=127.0.0.1;" _
& "UID=root;" _
& "PWD=caluro;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Conn.Open
On Local Error GoTo CREATE_ERROR
Conn.Execute "CREATE DATABASE Unina"
Conn.Execute "USE Unina"
Conn.Execute "CREATE TABLE Studente (" _
& "Matricola SMALLINT PRIMARY KEY," _
& "Nome CHAR(10) NOT NULL," _
& "Cognome CHAR(10) NOT NULL)"

Conn.Execute "CREATE TABLE Esami (" _
& "Matricola SMALLINT REFERENCES Studenti," _
& "Esame CHAR(10) NOT NULL," _
& "Voto CHAR(10) NOT NULL," _
& "Data CHAR(10) NOT NULL)"

Conn.Close
Set Conn = Nothing

Exit Sub

CREATE_ERROR:

Conn.Close
Set Conn = Nothing

End Sub


Basta richiamare la sub CReate_Database . . .