Progr'amador

é!! acho que é isso! to tentando fazer pela configuração do ODBC (no botão Test) mesmo! sem querer abusar, <_< como eu faço pra aceitar conexão de outros computadores? Abs. Progr'amador.

Olá, faz assim: Principal.Qpadrao.SQL.clear; Principal.Qpadrao.SQL.add('SELECT *'); Principal.Qpadrao.SQL.add('FROM reservas'); Principal.Qpadrao.SQL.add('WHERE COD_CLIENTE ='+#39+DBLookupComboBox1.KeyValue+#39+''); Principal.Qpadrao.Open; Abs. Progr'amador.

sim! instalei o MySQL ODBC 3.51 me diga uma coisa, esse computador que serve como servidor na verdade é uma máquina comum (é um cliente tambem), simplesmente é onde ta o banco de dados MySQL, as tabelas e tudo +. é necessário compartilhar a unidade C:, ou alguma outra pasta (diretorio)? Abs. Progr'amador. :D

Olá, O ideal é você usar DBEdit, é só colocar no DataSource dos DBEdit o mesmo do DBGrid. Abs. Progr'amador.

no uses: esqueci, declare tambem DBTable; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, DBTables; o código você pode colocar num evento que você quizer tipo, num button: procedure TForm1.Button1Click(Sender: TObject); begin { se o alias não existir... } if not Session.IsAlias('MeuAlias') then begin Session.AddStandardAlias('MeuAlias', 'C:\Diretorio', 'PARADOX'); Session.SaveConfigFile; end; end; Abs. Progr'amador.

Pois eu num to conseguindo, ta dando esse erro: Request returned with SQL_ERROR Data Source Name : MeuSistemaServer: 10.42.1.39User : rootPassword: ********isso é no Connector/ODBC :unsure:

Esse ta enchendo o saco!!! http://scriptbrasil.com.br/forum/index.php...=0entry339537

é no XP, na verdade to tentando migrar pro MySQL, atualmente to usando o Access, é tipo assim, tenho 12 computadores conectados em uma rede, e quero usar um deles como servidor, com o access, eu configurei via ODBC setando o caminho do Banco; asssim \\Computador1\Dados\Banco.mdb, fiz isso em todas as máquinas, ta funcionando legal, só que queria user o MySQL, já migrei as tablas com os dados, o MySQL 5, tem um recurso legal pra isso, só que o MySQL ta instalado na minha maquina (Ex: Computador5, e o banco deveria fica no Computador 1), e na verdade as tabelas do MySQL fica tudo no meu computador. Pergunto: Tem como colocar essas tabelas no Computador1(que serve como servidor), e acessar das outras máquinas? Valeu kuroi, pela sua ajuda! Abs. Progr'amador.

estou usando ODBC mas num tem (não achei) opção pra isso.

Use uma query em vez de um table Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM TABELA'); Query1.Sql.Add('WHERE CAMPO LIKE '+#39+'%'+Edit1.Text+'%'+#39+''); Query1.Open; Abs. Progr'amador.

Olá galera, tem como eu usar o MySQL em REDE? Tenho um programa em Delphi com banco MySQL e queria compartilhar com outras maquinas tipo Z:\\Dados\... Abs. Progr'amdor.

Olá, na verdade essa mascara não fica no DBGrid e sim no campo da Tabela, Exemplo: se você tiver usando um TTable, dê dois cliques nesse table na janela que aparece se tiver em branco, clique com o botão direito e opção Add Fields..., com isso os campo da tabela vão aparecer, e nas propriedades (Object inspector) do Campo, se for um campo numero, tem a opção currency é só colocar TRUE para aparecer o valor da forma que você quer (R$ 0,00), tem tambem as opções DisplayFormat e EditFormat, que você faz da forma que vc "quizer", para os campos do tipo string, tem a opção EditMask. Abs. Progr'amdor.

Olá o Install Shield faz isso, mas tambem nunca fiz, no delphi tem uma função que faz declare no uses: DB { se o alias não existir... } if not Session.IsAlias('MeuAlias') then begin Session.AddStandardAlias('MeuAlias', 'C:\Diretorio', 'PARADOX'); Session.SaveConfigFile; end; Abs. Progr'amador.

Olá, você pode user o Locate veja qual dessas formas serve pra vc Table1.Locate('campo',variavel,[]); Table1.Locate('campo',variavel,[loCaseInsensitive]); Table1.Locate('campo',variavel,[loPartialKey] ); Table1.Locate('campo',variavel,[loCaseInsensitive, loPartialKey]); Abs. Progr'amador.

Testei o seu código e deu CERTO! verifique se o diretório ou o nome do arquivo ta correto? eu fiz assim: var n : integer; na, ne : string; begin na := DateToStr(now)+' '+ TimeToStr(now); for n := 1 to length(na) do begin if (Copy(na,n,1) = '/') or (Copy(na,n,1) = ':') then begin Delete(na,n,1); Insert('-',na,n); end; end; na := EdtDestino.Text +'\'+na+'.zip'; if RenameFile(EdtDestino.Text + '\Dados.zip',na) then ShowMessage('Ok!!!!!'); ne := (EdtDestino.Text + '\Dados.zip'); Label1.Caption := na; Label2.Caption := ne;

Olá colega, tenta isso: procedure TForm1.Button1Click(Sender: TObject); var n : integer; na : string; begin na := DateToStr(now)+' '+ TimeToStr(now); for n := 1 to length(na) do begin if (Copy(na,n,1) = '/') or (Copy(na,n,1) = ':') then begin Delete(na,n,1); Insert('-',na,n); end; end; na:= 'c:\'+na+'.txt'; RenameFile('c:\arquivo.txt',na); end; Abs. Progr'amador.

Então, Tenta assim: Query1.SQL.Add('Where Nome = '+#39+ Edit1.Text +#39+' and Data between Format('+#39+Edit2.Text+#39+',''dd/mm/yyyy'') and Format('+#39+Edit3.Text+#39+',''dd/mm/yyyy'')'); Obs: onde você ver duas aspas (''), são duas aspas simples, NÂO é aspas duplas NÂO. Abs. Progr'amador.

Mas como eu vou usar o between com o edit? invés deu por a data igual você pos é so eu cologar where data between 'edit1.text' and edit2.text O fato de se usar a função between não impede de usar edit! o exemplo que lhe passei funciona. desculpe mas não estou lhe entendendo. Abs. Progr'amador.

Olá junior, num sei se entendi, mas você quer rodor essa Query e abrir o form? é isso? se for, faz assim: begin form2 := Tform2.Create(Self); form2.Query1.Close; form2.Query1.SQL.Clear; form2.Query1.SQL.Add('Select * From "C:\Onde esta o DB\arquivo.DB"'); form2.Query1.SQL.Add('As arquivo'); form2.Query1.SQL.Add('Where Nome = '+#39+Edit1.Text+#39+' and Data between '+#39+Edit2.Text+#39+' and '+#39+Edit3.Text+#39+''); form2.Query1.Open; form2.ShowModal; form2.Free; end; o seu código tinha alguns erros #39 é o código ASCII para aspas, poderia ser assim: 'Where Nome = '+''''+Edit1.Text+''''+' and... Abs. Progr'amador.

Olá Paulo, beleza!? Tem algum evento no OnShow do Form? Aconteceu quase igual comigo, e fui ver erra um loop infinito (while) numa Query. Abs. Progr'amador.

Olá junior Nas propriedades (Object inspector) do QuickReport tem a opção DataSet, é só colocar essa Query no Dataset do QR. Abs. Progr'amador.

Olá junior Nas propriedades (Object inspector) do QuickReport tem a opção DataSet, é só colocar essa Query no Dataset do QR. Abs. Progr'amador.

Olá, tenta isso: program Project1; uses Forms, windows, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); ShowWindow( Application.Handle, Sw_Hide ); Application.Run; end. Abs. Progr'amador.

Olá, Posta ae como você ta fazendo. Abs. Progr'amador.

Olá já tentou usar da forma simples mesmo: CopyFile(strbase+'\sdqgrnc.dbf', strtransm_rec+'\'+wNumIntern+'r.dbf', True); ou faça um teste, coloque os diretorios mesmo, tipo (só pra testar): CopyFile('c:\pasta\arquivo.dbf', 'c:\pasta\arquivo.dbf', True); Pergunto: o nome do arquivo colado e diferente do copiado? Tambem já passei por várias situações desse tipo, cheguei até pensar em bug do Delphi , já tive situações em que não deu certo de forma alguma, mesmo estando correta a função, ai resolvi abrir um novo projeto só pra teste e deu certinho!!! muito louco, mas ate hoje não tive explicação para tal situação! Abs. Progr'amador.