Ativar tabela em tempo de execução
Oi pessoal.
Tô tentando ativar uma tabela em tempo de execução, mas tá complicado o negócio aqui. É muito simples isso, mas não consigo fazer funcionar. Veja o código:
procedure TfrmInicio.FormShow(Sender: TObject);var aux: string;begin // BUSCA OS DADOS DE CONFIGURAÇÃO BuscaDadosConfiguracao; // CONFIGURA CONEXÃO COM O DATABASE // Monta DatabaseName // Se o tipo for LOCAL (0) if serverTipo = '0' then begin aux := serverLocal; end else // Se o tipo for REMOTO (1) begin case StrToInt(serverProtocolo) of 0: aux := serverNome+':'+serverLocal; 1: aux := '\\'+serverNome+'\'+serverLocal; 2: aux := serverNome+'@'+serverLocal; end; end; dm.idbSispaper.DatabaseName := aux; dm.idbSispaper.Params.Clear; dm.idbSispaper.Params.Add('user_name='+serverUsuario); dm.idbSispaper.Params.Add('password='+serverSenha); dm.idbSispaper.LoginPrompt := StrToBool(serverLogin); dm.idbSispaper.SQLDialect := StrToInt(serverDialeto); dm.idbSispaper.Connected := true; // Ativar tabelas dm.DataSource1.DataSet := dm.IBTable1; dm.IBTable1.Database := dm.idbSispaper; dm.IBTable1.Transaction := dm.itrTransa; dm.IBTable1.TableName := 'USUARIOS'; dm.IBTable1.Active := true; frmLogin.showmodal; statusbar1.Panels[3].Text := TimeToStr(time);end;Como vocês podem ver, eu primeiro conecto no database. beleza, isso funciona legal. Depois tento ativar a tabela, atribuindo cada propriedade. Dá o erro:
Dynamic SQL Error
SQL error code = -104
a string constant is delimited by double quotes.
Já tentei atribuir as propriedades manualmente e só deixar a linha que ativa, para a execução, mas o erro é o mesmo.
Claro, totalmente manual, a conexão ocorre normalmente.
Então, alguém pode me dar uma luz?
Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Discussão (3)
Carregando comentários...