ZECA

Bom dia !!!

Do nada meu MySql deixou de funcionar. Tento instalar como serviço, mas nada. Tentei reconfigurar, sem sucesso. Desativei o Firewall setei a porta 3306(TCP) sem sucesso. Segue abaixo o erro que dá.

ERROR 2003

"CAN´T CONNECT TO MYSQL SERVER ON LOCALHOST(10061)"

Acho que algum engracadinho instalou algo e simplesmente ferrou o mysql. Também foi instalado uma versão nova do JAVA pela cia de seguros.

Alguém tem alguma idéia do que está ocorrendo?

Já usei o MySqlInstanceConfig, porém sem sucesso

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Tá ai Zeca.

** Finalidade : Consulta de preços de produtos

** Detalhes : Mostra imagem (mini), click mostra em tamanho origiginal.

**------------------------------------------------------------------------------**

** Autor : S.A.Oliveira - 03/04/2007

** Atualizado :

** Motivo :

**------------------------------------------------------------------------------**

FUNCTION PRO_CONSULTA_PRECOS()

#include 'fivewin.ch'

**---------------------------------------------------------**

PRIVATE _Busca:=Space(40),_resul:=0,_nomfab:=Space(60),_fanfab:=Space(30), xImg:=AllTrim(LocalImagens+"\SemImagemMini.PNG")

**--[ select para brose primario ]---------------------**

cCmd:="SELECT p.codpro,p.despro,p.unipro,p.vispro,p.prapro,p.lojpro+p.deppro+p.csgpro as estoque,'1' as codimg"

cCmd+=" FROM pro_cadastro as p"

//cCmd+=" LEFT JOIN pro_imagens as i ON i.codimg = p.codpro"

cCmd+=" WHERE p.despro LIKE '%"+AllTrim('xxx123')+"%'"

cCmd+=" ORDER BY p.despro ASC"

USE SQL cCmd Alias("TMP") NEW INTO xBanco

**--[ select para brose secundário ]--------------------**

cCmd:="SELECT ra.codaut,a.nomaut,a.popaut"

cCmd+=" FROM aut_cadastro as a, pro_relac_autor as ra"

cCmd+=" WHERE ra.codpro = "+Any2Sql(TMP->codpro)

cCmd+= " AND a.codaut = ra.codaut"

cCmd+=" ORDER BY a.nomaut ASC"

USE SQL cCmd Alias("AUT") NEW INTO xBanco

DEFINE DIALOG oDlg RESOURCE "PRO_CONSULTA_PRECO" OF oWnd

oDlg:lTransparent:=.f.

oDlg:lHelpIcon:=.f.

oDlg:oFont:=oPub:fNorm11

oDlg:SetColor(PRETO,CINZACC)

FOR X = 1 TO 5

REDEFINE SAY ID 1000+x OF oDlg FONT oPub:fNorm11 COLOR PRETO,CINZACC

NEXT

REDEFINE IMAGE oImage VAR XImg ID 301 OF oDlg UPDATE ADJUST

oImage:Progress(.t.)

oImage:bLClicked:={|| MostraImagemProduto(TMP->codpro,'oDlg')}

REDEFINE GET Oresul VAR _resul PICTURE "99" ID 102 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.f.)

REDEFINE GET Obusca VAR _busca PICTURE "@!K" ID 101 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE ; Obusca:bChange:={|nKey|Conteudo(Obusca,nKey,oBrw)}

REDEFINE GET Onomfab VAR _nomfab PICTURE "@!K" ID 103 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.F.)

REDEFINE GET Ofanfab VAR _fanfab PICTURE "@!K" ID 104 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.F.)

REDEFINE xBrowse oBrw ID 201 FONT oPub:fNorm11 Alias("TMP") COLUMNS 1,2,3,4,5,6

oBrw:bChange := { ||MostraDetalhe()}

oBrw:SetColor( AZUL, CINZACC )

oBrw:l2007 := .T.

oBrw:lAllowRowSizing := .T. // Nao move as Linhas (nao sei)

oBrw:lHScroll := .F. // Barra rolagem Horizontal

oBrw:lVScroll := .T. // Barra rolagem vertical

oBrw:lRecordSelector := .T. // Barra aponta registro lateral esquerda;

oBrw:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha

oBrw:lAllowColSwapping := .T. // Click no header (.f.)Trava

oBrw:nDataLines := 1

oBrw:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia.

oBrw:bClrStd := {|| { IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15)) } } // cor da linha sem foco

oBrw:bClrSel := {|| { IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15)) } } // cor da celula sem foco

oBrw:bClrSelFocus := {|| { IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255) } } // cor da celula em foco

oBrw:bClrRowFocus := {|| { IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255) } } // cor da coluna sem foco

oBrw:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY

oBrw:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY

oBrw:nMarqueeStyle := 5 // tipo de linha selecionada MARQSTYLE_HIGHLROW

oBrw:nRowHeight := 24

oBrw:lHeader := .T. // se vai mostrar header cabeçalho)

oBrw:nHeaderLines := 1

oBrw:nHeaderHeight := 20

oBrw:bClrHeader := {|| {cGetW,RGB(205,220,255) }} // cor do reader

oBrw:aCols[1]:cHeader :="Codigo"

oBrw:aCols[1]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[1]:nDataStrAlign:=AL_CENTER

oBrw:aCols[1]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[1]:bStrData :={|| CRLF+Str(TMP->codpro) }

oBrw:aCols[1]:nWidth :=65

oBrw:aCols[2]:cHeader :="Descrição"

oBrw:aCols[2]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[2]:nDataStrAlign:=AL_LEFT

oBrw:aCols[2]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[2]:bStrData :={|| TMP->despro }

oBrw:aCols[2]:nWidth :=515

oBrw:aCols[3]:cHeader :="Unid."

oBrw:aCols[3]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[3]:nDataStrAlign:=AL_CENTER

oBrw:aCols[3]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[3]:bStrData :={|| TMP->unipro }

oBrw:aCols[3]:nWidth :=40

oBrw:aCols[4]:cHeader :="R$ Vista"

oBrw:aCols[4]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[4]:nDataStrAlign:=AL_RIGHT

oBrw:aCols[4]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[4]:bStrData :={|| Transf(TMP->vispro,"@EZ 99,999.99") }

oBrw:aCols[4]:nWidth :=80

oBrw:aCols[5]:cHeader :="R$ Prazo"

oBrw:aCols[5]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[5]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[5]:nDataStrAlign:=AL_RIGHT

oBrw:aCols[5]:bStrData :={|| Transf(TMP->prapro,"@EZ 99,999.99") }

oBrw:aCols[5]:nWidth :=80

oBrw:aCols[6]:cHeader :="Estoque"

oBrw:aCols[6]:nHeadStrAlign:=AL_CENTER

oBrw:aCols[6]:nDataStrAlign:=AL_CENTER

oBrw:aCols[6]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) }

oBrw:aCols[6]:bStrData :={|| Transf(TMP->estoque,"@EZ 9,999") }

oBrw:aCols[6]:nWidth :=60

oBrw:SetRDD()

REDEFINE xBrowse oBrwA ID 202 FONT oPub:fBCour13 Alias("AUT") COLUMNS 2,3

oBrwA:SetColor( AZUL, CINZACC )

oBrwA:l2007 := .T.

oBrwA:lAllowRowSizing := .T. // Nao move as Linhas (nao sei)

oBrwA:lHScroll := .F. // Barra rolagem Horizontal

oBrwA:lVScroll := .T. // Barra rolagem vertical

oBrwA:lRecordSelector := .F. // Barra aponta registro lateral esquerda;

oBrwA:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha

oBrwA:lAllowColSwapping := .T. // Click no header (.f.)Trava

oBrwA:nDataLines := 1

oBrwA:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia.

oBrwA:bClrStd := {|| { AZUL,GetSysColor(15) } } // cor da linha sem foco

oBrwA:bClrSel := {|| { AZUL,GetSysColor(15) } } // cor da celula sem foco

oBrwA:bClrSelFocus := {|| { PRETO,RGB(205,220,255) } } // cor da celula em foco

oBrwA:bClrRowFocus := {|| { PRETO,RGB(205,220,255) } } // cor da coluna sem foco

oBrwA:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY

oBrwA:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY

oBrwA:nMarqueeStyle := 5 // tipo de linha selecionada MARQSTYLE_HIGHLROW

oBrwA:nRowHeight := 20

oBrwA:lHeader := .F. // se vai mostrar header cabeçalho)

ObrwA:SetRDD()

PCS_AtivaDialog('oDlg')

DBCloseAll()

SysWait(0.05)

RETURN(NIL)

**---------------------------------------------**

Static Function Conteudo(oGetP,xKey,oDlgg)

**---------------------------------------------**

Local RetornoChave:=""

MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,@RetornoChave)

TMP->(DBCloseArea())

IF(Len(AllTrim(retornochave))==0)

_busca:="xxx123"

ELSE

_busca:=AllTrim(RetornoChave)

ENDIF

cCmd:="SELECT p.codpro,p.despro,p.unipro,p.vispro,p.prapro,p.lojpro+p.deppro+p.csgpro as estoque,p.codfab,'1' as codimg"

cCmd+=" FROM pro_cadastro as p"

cCmd+=" WHERE p.despro LIKE '%"+AllTrim(_busca)+"%'"

cCmd+=" ORDER BY p.despro ASC LIMIT 50"

USE SQL cCmd Alias("TMP") NEW INTO xBanco

_resul:=TMP->(RecCount()) ; Oresul:Refresh()

oBrw:Refresh()

MostraDetalhe()

Return(.t.)

**----------------------------------------------------**

STATIC FUNCTION MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,RetornoChave)

**----------------------------------------------------**

Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno()

RetornoChave:=AllTrim(cChave)

Return(RetornoChave)

**-------------------------------------**

**-------------------------------------**

STATIC FUNCTION MostraDetalhe()

**-------------------------------------**

USE SQL "SELECT codfab,nomfab,fanfab FROM fab_cadastro WHERE codfab = "+Any2Sql(TMP->codfab) Alias("FAB") NEW INTO xBanco

IF(FAB->(RecCount())==1)

_nomfab:=FAB->nomfab

_fanfab:=FAB->fanfab

ELSE

_nomfab:=Space(60)

_fanfab:=Space(30)

ENDIF

Onomfab:Refresh() ; Ofanfab:Refresh()

FAB->(DBCloseArea())

IF(oBrw:lFocused)

AUT->(DBCloseArea())

cCmd:="SELECT ra.codaut,a.nomaut,a.popaut"

cCmd+=" FROM aut_cadastro as a, pro_relac_autor as ra"

cCmd+=" WHERE ra.codpro = "+Any2Sql(TMP->codpro)

cCmd+= " AND a.codaut = ra.codaut"

cCmd+=" ORDER BY a.nomaut ASC"

USE SQL cCmd Alias("AUT") NEW INTO xBanco

oBrwA:Refresh()

ENDIF

XImg:=AllTrim(LocalImagens+"\C"+AllTrim(Str(TMP->codpro)))

IF (File(xImg+".JPG"))

cTipo:=".JPG"

ELSEIF(File(xImg+".BMP"))

cTipo:=".BMP"

ELSEIF(File(xImg+".PNG"))

cTipo:=".PNG"

ELSE

cTipo:=".PNG"

XIMG:=AllTrim(LocalImagens+"\SemImagemMini")

ENDIF

XIMG+=cTipo

oImage:LoadImage(,XIMG)

oImage:Refresh()

RETURN(.t.)

**---------------------------------------------------------**

FUNCTION MostraImagemProduto(Arg1,Arg2)

**---------------------------------------------------------**

LOCAL cTipo

XImg:=LocalImagens+"\C"+AllTrim(Str(Arg1))

IF (File(xImg+".JPG"))

cTipo:=".JPG"

ELSEIF(File(xImg+".BMP"))

cTipo:=".BMP"

ELSEIF(File(xImg+".PNG"))

cTipo:=".PNG"

ELSE

cTipo:=".PNG"

XIMG:=AllTrim(LocalImagens+"\SemImagemMini")

ENDIF

XIMG+=cTipo

oBmps:=TImage():Define(,XIMG,Arg2)

_Lar:=oBmps:nWidth()

_Alt:=oBmps:nHeight()

xTit:=cTipo+" : "+AllTrim(Str(_lar))+" x "+AllTrim(Str(_alt))

IF(_lar>640)

_lar:=_lar/(_lar/640)

_alt:=_Alt/(_alt/480)

ENDIF

DeleteObject(oBmps)

DEFINE DIALOG oDlgMF From 0,0 To _alt+20,_lar+20 OF oDlg Pixel TITLE xTit BRUSH oBPapel2

oDlgMF:lHelpIcon:=.f.

@ 005,005 IMAGE oBmp File XImg OF oDlgMF Pixel Size _lar/2,_alt/2 NOBORDER ADJUST

oBmp:Progress(.t.)

ACTIVATE DIALOG oDlgMF CENTERED

//&(Arg2):SetFocus()

RETURN(.F.)

id=code>id=code>

"Não seja um clicador, torne-se um programador." Eu estou tentando.

---

Bom dia!!!

É exatamente o que preciso.

Muito obrigado. Vou dar uma olhado no código pra entender como funciona a mecanica do mesmo

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Se for isto.

oBrw:bClrStd:={||{IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15))}

oBrw:bClrSel:={||{IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15))}}

oBrw:bClrSelFocus:={||{IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255)}}

oBrw:bClrRowFocus:={||{IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255)}}

id=code>id=code>

"Não seja um clicador, torne-se um programador." Eu estou tentando.

---

Bom dia!!!!

Este browse é em mysql Nativo?

Tem como vc postar este codigo para eu ter uma idéa de como foi elaborado(muito bom mesmo)?

Tô tentando achar um browse com mysql nativo, com consultas

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

É muito vantajoso trabalhar (compilar, etc.) em Windows 64bits ou em termos do que fazemos é relativo?

Meu Windows é 32bits mas o processador é 64 (dual core).

Fora os app em 16 bits que ficam de fora, quais as vantagens/desvantagens de migrar a 64bits na nossa realidade diária?

Nota: editado para tornar mais clara a questão.

Editado por - Dr_Microso on 24/01/2011 14:10:37

---

Boa Noite!!!

Vou subir este tópico porque achei muito interessante e gostaria de ouvir respostas do pessoal deste forum.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!!

Aguçando minha curiosidade, resolvi abri um arquivo xDev, mas dá o erro abaixo:

"O projeto c:\zzz\zzz\zz.xdev está vinculado ao compilador 425234 que não foi carregado na inicialização. Verifique as configuarações do sistema pois isto pode impedir a correta compilação/execução deste projeto"

O barato é que cada compilador tem um numero diferente. O que vem a ser este erro? E como resolver este problema?

Gato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!!

Aguçando minha curiosidade, resolvi abri um arquivo xDev, mas dá o erro abaixo:

"O projeto c:\zzz\zzz\zz.xdev está vinculado ao compilador 425234 que não foi carregado na inicialização. Verifique as configuarações do sistema pois isto pode impedir a correta compilação/execução deste projeto"

O barato é que cada compilador tem um numero diferente. O que vem a ser este erro? E como resolver este problema?

Gato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

uso tdosprn para impressao peguei uma impressora

e mapei net use lpt2 \\impressora\balcao

ok funcionou

se der um dir >lpt2 imprime certo

no caso de dentro do meu programa

ele da o seguinte erro

cannot write to device lpt2

e nao imprime

FW24 + CLIP5_2

email :edutraini@uol.com.br

---

Boa tarde!!!

Eu faço assim

Crio um arquivo bat chamado Printer.bat com os dizeres

@echo off

cls

Net use LPT2 /delete

Net use LPT2 \\servidor\FX-2180 /Y

@echo off

1. Primeiro "zero" a porta lpt2

2. jogo a impressora na porta lpt2

Eu fiz mais:. Achei na internet um programa que transforma o bat em exe e criei o printer.exe que aciono dando um F qualquer coisa

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Ola pessoal, muito raramente, Clientes me reclamam que sumiram registros do cadastro de produtos .DBF, sem ter sido escolhida a opção para exclusão.

Isso é motivo para abandonar os .DBF ou pode ser problemas de queda de energia ou outro motivo que não tem nada a ver com o modelo .DBF ?

Obrigado

---

Boa Noite EDVALDO!!!

Dificilmente se perde um registro. O que acontece normalmente é perder o indice do registro. Eu, particularmente gosto muito do DBF principalmente com o NSX, mas o futuro está em banco de dados relacional -FIREBIRD,MYSQL,POSTGRESQL e por ai afora - e acho bom voce pensar nesta hipótese.

O pessoal deste forum, com certeza, te dará muito força caso voce opte por mudar.

Boa Sorte

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Não esqueça que são 32 passos.

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

---

Bom dia Antenor!!!

Não pergunte como, mas consegui instalar o MYSQL 5.5.8 no windows 7 professional. Como não sei como foi instalado, mas está funcionando, não posso dizer o que fiz. Só posso dizer que quase "gastei" o MYSQLINSTANCECONFIG de tanto alterar a configuração até que deu certo. A minha única duvida no meio desta confusão é saber se marquei a opção para o MYSQL ser usado por outro computador. Eu tô que nem o DIDI que foi não sei aonde, comprou não sei o que e pagou não sei quanto.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

http://downloads.mysql.com/archives.php

Uso a 5.51b em windows 7hp 32/64

"Não seja um clicador, torne-se um programador." Eu estou tentando.

---

Voltando a "vaca morta" após todos os procedimentos o my.ini não é gravado como deveria. Vejam:

#Path to installation directory. All paths are usually resolved relative to this.

basedir="C:/Program Files/MySQL/MySQL Server 5.5/"

#Path to the database root

datadir="C:/ProgramData/MySQL/MySQL Server 5.5/Data/"

Vejam o path do basedir e vejam o path do datadir. Ao invés de c:\Program Files ele cria c:\programdata. Tento mudar, sem sucesso.

Como conserto isto?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Zeca, qual o erro que ocorre ?

Eu instalei no meu notebook (Win7 Professional 32bits) normalmente, não lembro de ter feito nada especial.

Você tentou "executar como administrador" ? (caso esta opção esteja disponível)

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

---

Boa tarde Luis!!!

A instalação ocorre normalmente, quando chega naquela tela (a ultima) que consta PREPARE CONFIGURATION, WRITE FILE E START SERVICE aí demora dois dias e duas noites até que dá um erro indicando que não iniciou o serviço.

O MYSQL que uso é a versão 5.5.8. Eu tinha uma versão anterior instalada, sem problemas, porém precisei formatar a maquina e o problema se instalou. Será que a versão do MYSQL (5.5.8) é incompativel com o W7?. Não tenho mais a versao antiga do MYSQL.

Vou tentar de outra maneira e qualquer coisa eu grito.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Tente por aki.

http://www.webdevelopersnotes.com/how-do-i/install-mysql-windows-7.php'>

http://www.webdevelopersnotes.com/how-do-i/install-mysql-windows-7.php

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

---

Boa tarde Antenor!!!

O primeiro link parace que está "furado", mas esqueci de uma informação importante: windows 7 32 bits

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!!

Estou tentando instalar o MYSQL versao 5.xxx no windows 7, sem sucesso. A instalação ocorre normalmente até na hora em quem pede para executar como serviço. Ai dá o erro. Já tentei de tudo quanto foi jeito, inclusive desativei o Firewall, mas neca de birica. Parece que li em algum lugar que o MYSQL e o SEVEN "não se bicam de jeito nenhum". alguém sabe de alguma coisa? Olha que instalei o MYSQL como sempre faço, usando a formula do Vailton(apesar da mudança de algumas telas). A versão do MYSQL parace que é a ultima - retirei do site esta semana.

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!!

Estou tentando instalar o MYSQL versao 5.xxx no windows 7, sem sucesso. A instalação ocorre normalmente até na hora em quem pede para executar como serviço. Ai dá o erro. Já tentei de tudo quanto foi jeito, inclusive desativei o Firewall, mas neca de birica. Parece que li em algum lugar que o MYSQL e o SEVEN "não se bicam de jeito nenhum". alguém sabe de alguma coisa? Olha que instalei o MYSQL como sempre faço, usando a formula do Vailton(apesar da mudança de algumas telas). A versão do MYSQL parace que é a ultima - retirei do site esta semana.

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Olá Zeca,

o que postei resolverá:

FRETE_PESO:=0

AEVAL( {A, B, C, D}, {|n| FRETE_PESO:=MAX(FRETE_PESO,n) })

citação:Boa tarde ERIC!!!.

O que quero na realidade e após os testes, colocar o maior valor em uma variavel. Por ex FRETE_PESO:= .........

Ai usarei a variavel para dar continuidade aos calculos.

Sds

José Carlos - ZECA

---

id=quote>id=quote>

Eric Developer Systems

www.magaldi.eti.br

---

Boa tarde a todos!!!

Quero agradecer a todos que responderam este tópico.

Muito bom mesmo. Parece que a rapaziada não esqueceu do velho e bom clipper.

Agora vou parar de agradecer pois estou muito emocionado e vou acabar chorando(como o LULA) kkkkkkkkkkkkkkk

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Acredito que o Zeca tenta escrito errado, mesmo dando a entender que quer a Variavel e não o mais valor, optei pelo maior valor que é o mais comum, para saber qual a variavel também é muito simples.

Eric Developer Systems

www.magaldi.eti.br

---

Boa tarde ERIC!!!.

O que quero na realidade e após os testes, colocar o maior valor em uma variavel. Por ex FRETE_PESO:= .........

Ai usarei a variavel para dar continuidade aos calculos.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

José Carlos

Func Maior(A,B,C,D)

Local nRet:=0

nRet:= Max(A,

nRet:= Max(nRet,C)

nRet:= Max(nRet,D)

Return nRet

Att

João Bosco

Contagem/MG

FWH 10.6b xHb 1.2.1 WorkShop 4.5

PellesC SQLLIB

Obrigado João Bosco

Vou testar e qualquer problema retornarei mas acho que isto mesmo. Eu tinha um guia rápido de consulta do clipper mas a faxineira jogou no lixo - mas não esquenta não que já encomendei a alma dela. Prá ela livro lido não presta mais.

Grato

---

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Olá a Todos!!

Eu preciso de uma função em clipper que faça o seguinte:

tenho quatro valores que estão nas variaveis A B C D.

Após comparações, como escolher a variavel de maior valor?

Antecipadamente agradeço.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Olá a Todos!!

Eu preciso de uma função em clipper que faça o seguinte:

tenho quatro valores que estão nas variaveis A B C D.

Após comparações, como escolher a variavel de maior valor?

Antecipadamente agradeço.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Amigo, se puder enviar para mim também agradeço.

alainrancharia@hotmail.com

Alain/Rancharia

XHarbour - FWH 2.7.4 Workshop 4.5

@L,C

---

Boa Tarde !!!

Mande pra mim também

zeca_roque@hotmail.com

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Gilmar,

Não se usa RLOCK() ou FLOCK() em mysql. Pra vc usar o MySQL é necessário começar a mudar conceitos, pois no DBF estamos acostumados a controlar 'na unha' os dbfs. No caso do MySQL é o próprio MySQL quem administra as concorrências ao banco. Eu sugiro que vc comece a estudar SQL e ir migrando aos poucos pra SQL puro, pois assim vais poder aproveitar o máximo de recursos do MySQL e ir finalmente mudando a forma de programar usando bancos relacionais. Mas a princípio, tente tirar o RLOCK e veja se funciona.

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB

(98) 8162-1301 / (98) 2107-9150

Visite São Luís - MA A Ilha dos Amores

---

Bom dia Kleyber!!!

Muito oportuno este esclarecimento, pelo menos para mim.

Gostaria, se possivel, que alguém postasse um "o que pode e o que não pode" entre Mysql(comandos nativos) e DBF.

Pra quem já usa MYSQL a muito tempo o esclarecimento acima não tem muita importancia, porque já é "automatico", mas pra quem tá começando como nós por exemplo esta dúvida é crucial.

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

citação:

Grande Kapiaba. qto tempo... preciso ir a sampa rever as brahmas, quer dizer, antarticas do posto, kkkkkkk

o Bullzip, na aba Geral tem que indicar a pasta que vai gravar o arquivo, desmarcar Confirmar Susbstituição, e colocar não para Abrir o documento após criação, fazendo isso não me pede nada simplismente cria o arquivo.

Tente aí, fazendo isso dará certo...

Alessandroid=blue>

FW20d+CL53b+Blk7+@Say+CDX

FW9.07+xHb121+PellesC+CDX

"Uma imaginação bem canalizada é fonte de grandes proezas"id=red>

---

id=quote>id=quote>

Beleza, vou testar.

Teste ai o PDFMACHINE e diga se não é um MUST.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

---

Bom dia Kapi!!!

Para complementar voce deve baixar o Foxit Reader que é um leitor de PDF muito leve e gratis ai está completo.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

Boa Tarde Senhores,

Alguém conhece um gerador de PDF, igual ou melhor que o PDFFACTORY, que gere as paginas automaticamente igual al PDFFACTORY, já testei o PDFCREATOR, mas pede para salvar pagina por pagina.

Obrigado,

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

---

Boa tarde Kapi!!!

Eu tenho todos estes geradores de PDF citados, mas o meu preferido é BROADGUN PDFMACHINE. Caso voce queira ele além gerar pdf, salva, edita, imprime em qualquer impressora ou envia por e-mail como anexo. Além do mais voce pode inserir marca dágua, senha e por ai afora.

Muito Bom mesmo

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

não entendi zeca a piada ! taqpa no telhado

meu fhw10.8 é registrado... pode confiar

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

---

Boa Tarde!!!

Na Imagens anteriores o telhado(cabelo) era composto somente pelos para-lamas(do sucesso)

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:

valeU Ale Sb obrigado resolveu sim!

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

---

Voces viram que o LINHARES deu "tapa no telhado"?

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP