vms
Membros-
Total de itens
306 -
Registro em
-
Última visita
Sobre vms
- Data de Nascimento 20/07/1982
Contatos
-
Website URL
http://vmsdesenvolvimentos.we.bs/index.html
Perfil
-
Gender
Male
-
Location
Eusebio - CE
vms's Achievements
0
Reputação
-
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?