vms

Bom dia, preciso criar uma variável que substitua o nome da tabela exemplo, usar esse código Table1.Edit; Table1.numero.text := '111'; Table1.nome.text := 'ddd'; Table1.Post; dessa forma var MinhaVar : (não sei o tipo) ; begin MinhaVar := Table1; MinhaVar.Edit; MinhaVar.numero.text := 'ddd'; MinhaVar.nome.text := 'ddd'; MinhaVar.Post; end; alguém poderia me dizer como fazer esse código? desde já agradeço.

Olá pessoal, Depois que desinstalei o pacote de componente TMS, aparteceu esse problema Quando crio uma nova aplicação e mando compilar (F9), ele compila mas não abre o executavel, tenho que ir na pasta e executar o executavel manualmente. Normalmente, ao mandar compilar (F9), a IDE abriria o executavel (porexemplo: project1.exe), mas agora não ta abrindo, mas compila normalmente talvez tenha alguma configuração na IDE que deve ter sido desconfigurado, alguém sabe como corrigir isso? desde já agradeço.

olá pessoal, estou tentando instalar a biblioteca SWT e não estou conseguindo. alguém pode me ajudar? vi 3 forma na net: 1ª - copiar o arquivo swt.jar para o diretorio da biblioteca 2ª - importar pelo eclipse (import) 3ª - adicionar pelo eclipse (add library) //esta forma não aparece a biblioteca para adicionar tentei executar o codigo abaixo, mas as bibliotecas não são reconhecidas. import org.eclipse.swt.widgets.*; import org.eclipse.swt.layout.*; import org.eclipse.swt.*; public class PrimeiratelaSwt { public static void main (String[] args) { Display display = new Display(); Shell shell = new Shell(display); //informe os controles que deseja inicializar. shell.setLayout(new RowLayout()); Text objText = new Text(shell, SWT.BORDER); shell.open(); while(!shell.isDisposed()) { if (!display.readAndDispatch()) { display.sleep(); } } display.dispose(); } } versao da biblioteca: swt-4.2-win32-win32-x86.zip versao do eclipse: Eclipse IDE for Java EE Developers - juno desde já agradeço.

Estou usando assim e funciona var D1,D2 : TDateTime; begin D1 := PlannerDatePicker1.Date; D2 := PlannerDatePicker2.Date; with AdoQuery1 do begin Close; SQL.Text := 'SELECT * FROM Tabela WHERE Data BETWEEN :D1 AND :D2 '; Parameters.ParamByName('D1').Value := D1; Parameters.ParamByName('D2').Value := D2; ExecSQL; Open; end;

Beleza Jhonas, Mas como executo este comando pelo delphi? desde já agradeço.

Olá pessoal Tenho um banco feito no access onde tenho uma tabela com um campo chamado Descrição (tipo Texto) estou usando a função abaixo para retirar os acentos. Eu queria saber como usar essa função no Update porque se eu for varrer a tabela irá demorar muito. function RemoveAcento(Str: string): string; const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; var x: Integer; begin; for x := 1 to Length(Str) do if Pos(Str[x],ComAcento) <> 0 then Str[x] := SemAcento[Pos(Str[x], ComAcento)]; Result := Str; end;

fiz uma rotina que deu certo. antes do refresh verifica se o ID tem valor, se tiver então é uma alteração e posso usar o locate se não é uma inserção e uso o last. funcionou certinho, mas se alguém tem alguma dica melhor eu agradeço. obrigado pela atenção Micheus, mas eu achei a dica daquele tópico muito trabalhoso.

olá pessoal, tenho um banco de dados feito em firebird e uso os seguites componentes para manipular SQLTable1, DataSetProvider1, ClientDataSet1, DataSource1. Estou gravando da seguite forma ClientDataSet1.ApplyUpdates(-1); ClientDataSet1.Refresh; O problema é que quando mando salvar, a tabela vai para o primeiro registro e eu preciso que permaneça no mesmo registro. Eu preciso usar o refresh para poder gerar o ID automatico (pela trigger). Tentei usar um Locate, mas a unica referencia seria o ID mas ele so é criado depois do Refresh. alguém tem alguma sugestão?

Valeu Jhonas deu certo. DM.CQProduto.Close; DM.CQProduto.CommandText := 'SELECT * FROM PRODUTOS WHERE (UPPER('+ComboBox1.Text+')) LIKE :P ORDER BY '+ComboBox2.Text; DM.CQProduto.Params.ParamByName('P').AsLargeInt := StrToInt64(Edit1.Text); DM.CQProduto.Open;

Já estar em dialect 3. Alguma outra sugestão?

ola pessoal, tenho um campo na minha tabela que é o seguite PK ID BIGINT NOT NULL, estou tentando fazer uma pesquisa dessa forma DM.CQProduto.Close; DM.CQProduto.CommandText := 'SELECT * FROM PRODUTOS WHERE ID LIKE :P ORDER BY ID'; DM.CQProduto.Params.ParamByName('P').AsInteger := StrToInt(Edit1.Text); DM.CQProduto.Open; e está dando o seguinte erro OBS. 7891008121025 é o codigo de um produto já cadastrado. esta função funcionava certinho quando o campo era INTEGER, mas depois que mudei para BIGINT não funcionou mais. alguém pode dizer o que esta errado? desde já agradeço.

opa! não era bem isso que eu queria mas me ajudou em outra coisa. Este campo calculado que criei serve apenas para mostra a qtd de registro e não um tipo de autoincremento. este codigo funcionava perfeitamente mas agora o primeiro registro mostra -1 onde deveria ser apenas 1 e resto da sequencia fica normal (-1, 2, 3, 4 ... )

Olá pessoal Criei um campo calculado para numerar os itens da tabela o problema é que a numeração não começa com 1 e sim com -1, assim -1 2 3 4 ... estou usando o codigo abaixo com um AdoTable procedure TDM.TVendaDescCalcFields(DataSet: TDataSet); begin TVendaDescItem.Value := TVendaDesc.RecNo; end; Desde já agradeço.

UHHUU!!! deu certo obrigado Ricardo Portolan e a todos os outros pelas dicas.

olá Ricardo Portolan, ainda não funcionou, não mostra resultado nenhum como eu disse no post inicial eu estou usando o pacote Apache2triad, será que existe possibilidade de não ter instalado o PHP? como saber? Vi num tutorial que deve salvar os arquivos em C:\apache2triad\htdocs\ e salvar como .php o Marcos Guiga disse que deve ter certeza que o formulario esta na pasta WWW do servidor a unica pasta com este nome esta aqui "C:\apache2triad\perl\site\lib\WWW" e eu já tentei e não deu certo tambem. alguém tem uma outra dica?