INSTALAR MYSQL

Citação:

LCSD escreveu:
E PQ ao invés de VC colocar isso em um TXT, VC não coloca isso dentro de um módulo no seu sistema, e VC vai chamando as SUBÂÂ's deste módulo criando as tabelas no seu MySQL???

é muito mais simples e rápido pra fazer...

Muito melhor do que abrir o TXT, jogar pra algum lugar, e este algum lugar rodar e criar a tabela.

Faça isso dentro do VB mesmo!!!

Citação:

MARCELOHF escreveu:
Entendi...

é cara... o que vc poderia fazer é ao invés de pegar um arquivo .TXT, vc criar um backup do banco, e depois restaurar.


Ou então vc le o arquivo todo através do VB e manda executar.

Dim Linha as String
Dim strSQL as String
Open Caminho_do_TXT for Input as #1
   While not eof(1)
      Line Input #1, Linha
      strSQL = strSQL & vbcrlf & Linha
   Wend
Close #1

BD.EXECUTE(strSQL)

Citação:

GREGO escreveu:
o marcelohf esta com a razão

e tbm pode ser executado assim
que vai fazer a mesma coisa mas uma linha de cada vez

Open caminhotxt For Input Shared As #1
Do While Not EOF(1)
Line Input #1, LinhaSQL
BD.EXECUTE(LinhaSQL)
Loop
close #1

#
  CREATE TABLE 'abrefechaterminal' (
  'idAbertura' int(11) DEFAULT NULL,
  'CheckOut' varchar(20) DEFAULT NULL,
  'Turno' int(10) NOT NULL,
  'AbreData' datetime NOT NULL,
  'AbreHora' datetime NOT NULL,
  'FechaHora' datetime DEFAULT NULL,
  'FechaData' datetime DEFAULT NULL,
  'Troco' decimal(19,4) DEFAULT NULL,
  'RestoTroco' decimal(19,4) DEFAULT NULL,
  'Operador' varchar(20) DEFAULT NULL,
  'vlrDinheiro' varchar(20) DEFAULT NULL,
  'vlrMoeda' varchar(20) DEFAULT NULL,
  'vlrConvenio' varchar(20) DEFAULT NULL,
  'vlrCarteira' varchar(20) DEFAULT NULL,
  'vlrCartao' varchar(20) DEFAULT NULL,
  'vlrCheque' varchar(20) DEFAULT NULL,
  'vlrTotGeral' decimal(11,0) DEFAULT NULL,
  'Gerente' varchar(20) DEFAULT NULL,
  'EntraTotal' decimal(19,4) DEFAULT NULL,
  'SaidaTotal' decimal(19,4) DEFAULT NULL,
  'Saldo' decimal(19,4) DEFAULT NULL,
  'StatusCX' varchar(20) NOT NULL,
  'Atualizacao' datetime DEFAULT NULL,
  PRIMARY KEY ('Turno','AbreData','AbreHora'),
  KEY 'AbreData' ('AbreData'),
  KEY 'ind_cod_aberto' ('Turno','StatusCX'),
  KEY 'ind_cod_dt_aberto' ('Turno','AbreData','StatusCX'),
  KEY 'ind_principal' ('Turno','AbreData','AbreHora')
) ENGINE=InnoDB DEFAULT CHARSET=latin1; 

  MousePointer = vbHourglass

Dim iArquivo As Integer
Dim sTexto As String
Dim aDados As Variant
lblMsgErr = "Abrindo arquivo de Configuração!!!"
sFile = App.Path & "\CRIATABELAS.TXT"
    
iArquivo = 1
    'ler arquivo texto
    On Error GoTo errfile
    Open sFile For Input As iArquivo
            sTexto = Input(LOF(iArquivo), iArquivo)
    Close iArquivo
    '---------------------------------------------------
    aDados = Split(sTexto, Chr(35))
    pb.Min = 0
    pb.Max = 100
    pb.Value = 0
    pb.Visible = True
    pb.Enabled = True
    ipb = 100 / UBound(aDados)
    
    For I = 1 To UBound(aDados)
        aDados(I) = Replace(aDados(I), "bsControl", sBaseMaster)' aqui troco o nome do banco de dados que gerei o script pelo nome do banco que o cliente denominar na instalção.

        bd.Execute (aDados(I))
        pb.Value = ipb * I
        lblMsgErr = "Executando o Comando --->" & Replace(Left(aDados(I), 30), vbCrLf, "")
    Next I
    
    If Err.Number = 0 Then
        MsgBox "Processo concluido !!!", vbInformation
        SaveSetting "BsControl", "Licenca", "Acesso", "True"
        bd.CommitTrans
        MousePointer = vbDefault
        frePrincipal.Visible = False
        txtRazao.SetFocus
    End If
 

  SQL = "GRANT ALL PRIVILEGES ON *.* TO " & sRootMaster & "@% IDENTIFIED BY '" & sPwdMaster & "';"
bd.Execute (SQL)