CONEXAO MYSQL 5.1

Option Explicit  [ô]exige que todos os objetos sejam declarados

Public Enum Tipo_Lado
   Lado_Servidor = 2 [ô] AdUseServer
   Lado_Cliente = 3  [ô] AdUseCliente
End Enum

Public Enum Tipo_CursorType
   TC_adOpenForwardOnly = 0
   TC_adOpenKeyset = 1
   TC_adOpenDynamic = 2
   TC_adOpenStatic = 3
End Enum

Public Enum Tipo_Travamento
   TT_adLockReadyOnly = 1 [ô](padrão)
   TT_adLockOptimistic = 3
   TT_adLockPessimistic = 2
   TT_adLockBatchOptimistic = 4
End Enum

Public Conexao As ADODB.Connection
Public Senha_BD As String
[ô]usar Outros Bancos
Public UsarOutroBanco As String

Public Function MeuRecordset(SQL As String, _
                             Optional CursorLado As Tipo_Lado = Lado_Servidor, _
                             Optional Cursores As Tipo_CursorType = 0, _
                             Optional travamento As Tipo_Travamento = 1) As Recordset

   Set MeuRecordset = New ADODB.Recordset
   MeuRecordset.CursorLocation = 3

   MeuRecordset.Open SQL, Conexao, Cursores, travamento
   If Error = -2147467259 Then
      If Err.Number <> 5 Then MsgBox Err.Number & vbCrLf & Err.Description: Err.Clear
   End If
End Function

Public Function Plic(ByVal sTexto As String) As String
   If InStr(sTexto, Chr(39)) Then
      Plic = Chr(39) & Replace(sTexto, Chr(39), Chr(39) & Chr(39)) & Chr(39)
    Else
      Plic = Chr(39) & sTexto & Chr(39)
   End If
   Plic = Replace(Plic, [Ô]*[Ô], [Ô]%[Ô])
End Function

Function str_conexao_ADO(DatabasePath As String, senha As String) As Boolean

   On Error GoTo TrataErr_DB:
   Set Conexao = New ADODB.Connection
   NomeBancoDados = DatabasePath

   With Conexao
      [ô] especifica o provedor Jet
      [ô] Leitura/gravaçao
      .Mode = adModeReadWrite

      If UsarOutroBanco = [Ô]PostGre[Ô] Then
         .ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=true;User ID=postgres;Data[Ô] & _
            [Ô] Source=PostgreSQL30;Initial Catalog=Banco_de_Dados[Ô]
       ElseIf UsarOutroBanco = [Ô]FireBird[Ô] Then
         .ConnectionString = [Ô]Provider=ZStyle IBOLE Provider;Data Source=[Ô] & DatabasePath & [Ô][Ô] & _
            [Ô] ;UID=sysdba;password=[Ô] & senha
       ElseIf UsarOutroBanco = [Ô]SQLSERVER[Ô] Then
      Dim X
      X = GetComputerName([Ô]me[Ô])
      .ConnectionString = [Ô]Driver={SQL Server};Server=[Ô] & X & [Ô];[Ô]
       ElseIf UsarOutroBanco = [Ô]MySQL[Ô] Then
         .ConnectionString = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] & [Ô]SERVER=200.196.233.50;[Ô] & [Ô][Ô] & _
            [Ô] DATABASE=romerosistemas;[Ô] & [Ô]UID=romerosistemas;PWD=maykow05; OPTION=3[Ô]
       Else
         .Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
         .ConnectionString = [Ô]data source=[Ô] & DatabasePath & [Ô] ;Jet OLEDB:Database Password= [Ô] & senha
      End If
      .Open
   End With

   str_conexao_ADO = True
   Exit Function
TrataErr_DB:
   str_conexao_ADO = False

   If Err.Number = -2147467259 Then
      MsgBox [Ô]Formato do Banco de Dados não Reconhecido![Ô], vbCritical, [Ô]Banco de Dados[Ô]
      Err.Clear
      End
      Exit Function
   End If
   Screen.MousePointer = 0
   MsgBox [Ô] Nº [Ô] & Str$(Err) & [Ô]:    Descrição:  [Ô] & Err.Description, 16
   Err.Clear
   End
End Function

Public Sub AbreBanco(NomeDoBanco As String, Optional senha As String)
      If str_conexao_ADO(NomeDoBanco, senha) = True Then
         Set RectTMP = MeuRecordset([Ô]SELECT * FROM Configuracao[Ô], 3, , 3)
         If RectTMP.RecordCount = 0 Then
            RectTMP.AddNew [ô]ADICIONA NOVO REGISTRO
            [ô]RectTMP.Fields([Ô]id[Ô]) = 1
            RectTMP.Fields([Ô]Data[Ô]).Value = Date
            RectTMP.Fields([Ô]Hora[Ô]) = time
            RectTMP.Fields([Ô]Descricao[Ô]).Value = LoadResString(100) & [Ô] [Ô] & LoadResString(113)
            [ô]RectTMP.Fields([Ô]Vercao[Ô]) = Format(App.Major, [Ô]0#[Ô]) & Format(App.Minor, [Ô]0#[Ô]) &
            [ô]   Format(App.Revision, [Ô]0#[Ô])
            RectTMP.Update [ô]ATUALIZA/SALVA O REGISTRO
            [ô]Serial_Int = MdiMain.BtnSerial1.DataParaChave(Day(Date) & [Ô]/[Ô] & Month(Date) & [Ô]/[Ô] &
            [ô]   Year(Date))
            [ô]GravarValorSTRING HKEY_LOCAL_MACHINE, [Ô]SOFTWARE\RM [Ô] & LoadResString(100), [Ô]Serial[Ô],
            [ô]   Serial_Int
         End If
     Else [ô]mensagem Personalizada
      MdiMain.Mensagem1.Mensagem [Ô]O Banco de dados [Ô] & [Ô][ô][ô][Ô] & NomeDoBanco & [Ô][ô][ô][Ô] & [Ô] não existe ou[Ô] & _
         [Ô] foi removido![Ô] & [Ô]  Deseja criar um Novo? [Ô], [Ô]Erro[Ô], AbortarPadrão, DlgSimNão, [Ô]Erro[Ô] & _
         [Ô] Número :[Ô] & Err.Number & vbCrLf & [Ô]Descrição :[Ô] & Err.Description & vbCrLf & [Ô]Precione [Ô] _
         & [Ô][ô][ô][Ô] & [Ô]Sim[Ô] & [Ô][ô][ô][Ô] & [Ô] e tente LOCALIZAR o Banco de Dados padão, ou crie um NOVO Banco[Ô] & _
         [Ô] de Dados.[Ô]
      If MdiMain.Mensagem1.Retorno = MsgNão Then
         MdiMain.Mensagem1.Mensagem [Ô]Sendo assim o Programa será finalizado!!![Ô], [Ô]RM_PLACE[Ô], _
            informaçãoAzul, DlgOk: End
         End
     end if
   On Error GoTo 0
End Sub

Public Sub Main()
  Dim BancoDeDados As String
  UsarOutroBanco = [Ô]MySQL[Ô]
   If UsarOutroBanco = [Ô]MySQL[Ô] Then
         AbreBanco [Ô]IP+LocalBanco[Ô], [Ô]Senha[Ô]
         [ô]Altera_Banco
         FrmSpan.Show [ô]abre a tela de Span
         FrmSpan.Tag = [Ô]login[Ô]
         FrmLogin.Show , FrmSpan [ô]abre a tela de login
         FrmLogin.ZOrder [ô]coloca a tela de login na frente
   end if
End Sub