Verificar se o banco existe

[Rafael Portal 0]

Olá, gente é o seguinte... Estou usando MySQL... Logo tenho que fazer no meu programa um script que crie a base de dados... até ai tudo bem.. Mas o que eu quero fazer é o seguinte ... Depois que o script foi executado a base de dados vai estar existindo logo eu quero verificar se a base de dados existe ou não... O que eu quero é que a resposta seja sim... Para que o script não seja executado novamente... Tipo...

 

If MinhaBaseDeDadosExiste = True Then

....

....

Else

ExecutaScript

End If

 

 

Fico MUITO agradecido por quem me ajudar...

 

Oks,

Rafael Portal

[cassitos 2]

crie uma função conectando ao servidor (sem informar base de dados) e crie um recordset do Schema desta conexão pegando o Catalog, ex:

 

Option Explicit

Dim Conn As New ADODB.Connection

 

Public Function MinhaBaseDeDadosExiste(NomeBase As String) As Boolean

  Dim Bases As New ADODB.Recordset

 

  Set Bases = Conn.OpenSchema(adSchemaCatalogs)

  If Bases.EOF = False Then

    Bases.Filter = "CATALOG_NAME = '" & NomeBase & "'"

    If Bases.EOF = True Then

      MinhaBaseDeDadosExiste = False

    Else

      MinhaBaseDeDadosExiste = True

    End If

  End If

  Bases.Close

  Set Bases = Nothing

End Function

 

Private Sub Form_Load()

  Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _

      "SERVER=localhost;UID=root;PWD=;" & _

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

  Conn.Open

  If MinhaBaseDeDadosExiste("dbscof") = False Then

    MsgBox "Criar base de dados.", vbInformation

  End If

  Conn.Close

End Sub

qquer dúvida tamos ae.

 

flws

[Rafael Portal 0]

Valeu cassitos!!!!!!Oks,Rafael Portal