none
Classe de Conexão Firebird no VB e Mysql no modo instalação silencioso RRS feed

  • Pergunta

  • Amigos estou com um problema, estou precisando portar meu projeto do MySQL para Firebird, gostaria de saber se tem como fazer isso apenas mudando a classe de conexão, abaixo deixo a classe que estou usando se alguém puder adapta-la para mim agradeço, irei usar o firebird com o conector .net, outra duvida é a seguinte, após muito insistir consegui fazer o MySQL instalar em modo Silencioso com o InnoSetup usando o seguinte script:

    [Files]
    Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
    Source: "C:\MySQL5.msi"; DestDir: "{app}"; Flags: ignoreversion
    Source: "MySQL5.msi"; DestDir: "{tmp}"
    ; NOTE: Don't use "Flags: ignoreversion" on any shared system files

    [Icons]
    Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
    Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon    

    [Run]
    Filename: "msiexec.exe"; Parameters: "/i {tmp}\MySQL5.msi /passive"; WorkingDir: {tmp};  StatusMsg: "Aguarde....instalando drivers de acesso a dados"; 
    ;Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\MySQL5.msi  /quiet"""; StatusMsg: "Instalando MySQL"
    Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

    Porém após a instalação não consigo acessar a base com o MySQL Front, pois o usuario padrão Root, não entra, oque dá a impressão que o Mysql foi instalado mais não configurado, oque vocês acham? o script está certo? peço desculpas pelas muitas perguntas, abaixo a classe que eu uso de conexão se alguem conseguir me ajudar a adaptar para firebird agradeço  , desde já agradeço pela atenção, sou novato aqui, por isso peço desculpas caso tenha postado no lugar errado ou de maneira errada, mais já uso muito o site para tirar duvidas 

    Imports MySql.Data.MySqlClient
    Public Class Conexao
        Dim conn As New MySqlConnection
        Dim cmd As MySqlCommand = conn.CreateCommand
        Dim ds As New DataSet
        Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
        Public Sub Conectar()
            Try
                conn.ConnectionString = "server=localhost;user id=root;password=1234;database=base2.0ca"
                conn.Open()
            Catch ex As Exception
            End Try
        End Sub
        Public Sub Operar(ByVal sql As String)
            Conectar()
            Try
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                conn.Close()
            End Try
        End Sub
        Public Function ObterValor(ByVal sql As String)
            Conectar()
            Dim Valor As Double
            Try
                ds.Tables.Clear()
                cmd.CommandText = sql
                Valor = cmd.ExecuteScalar()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                conn.Close()
            End Try
            Return Valor
        End Function
        Public Function Listar(ByVal sql As String)
            Conectar()
            Try
                ds.Clear()
                cmd.CommandText = sql
                da.Fill(ds)
            Catch ex As Exception
                MsgBox(ex.Message)
             Finally
                conn.Close()
            End Try
            Return ds
        End Function
    End Class
    domingo, 9 de junho de 2013 19:52