Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 15 Visitantes :: 2 Motores de busca

rodiney

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6991 usuários registrados
O último usuário registrado atende pelo nome de cpmacedo

Os nossos membros postaram um total de 4 mensagens em 2 assuntos

Cursor Adapter + XML

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 08:25

Olá, estou criando um sistema então decidir utilizar as minhas tabelas não em um banco de dados e sim como um XML, assim tenho duas apps a minha client e a minha server, através da client pesso a server para enviar a Tabela Assuntos, então ele enviar o XML Assuntos e converto em um Cursor utilizando XMLTOCURSOR, CURSORTOXML mas o problema é que utilizo o seguinte comando para excluir:

Código:
abre_tabela("cursorAssuntos")

Select cursorAssuntos

lRecord = recno()
lAssunto = Thisform.grdAss.colnome.text1.value


If Messagebox("Deseja Excluir: " + chr(13) + lAssunto,4+48,"Exclusão!") = 6
Go Record (lRecord)
Delete
Thisform.Refresh
endif

Já Tentei ao Invés de Delete Colocar:

Código:
Delete From cursorAssuntos Where cursorAssuntos.Assunto = lAssunto
*-----------------------------*

Ai Tenho um Botão Salvar:
Código:

salva_tabela("CursorAssuntos")

Ai Parte Pricinpal do salva_tabela á que constroi o XMl o resto só o envia!

Código:

LParameters nome
lXmlDir = getenv("TMP") + "\KXml" + sys(2015)

nome= Upper(Nome)

Md (lXmlDir)

lXmlFile = lXmlDir + STRTRAN(nome,"cursor","") + ".xml"
lXSD = lXmlDir + STRTRAN(nome,"cursor","") + ".xsd"
lWebSite = "http://SiteEmpresa/" + lxsd

CURSORTOXML(Nome,lXmlFile,1, 512, 0, ;
      lXSD,lWebSite)



* O Resto Envia e Tenho Certeza e Substitui o Arquivo do Server pois já fiz teste gerando um cursor, alterando -o pelo notepad e enviando ele!

Ai que está o problema no Ambiente de execução a grd e o cursor não aparece o(s) regsitro(s). mas o por exemplo sem alteração temos 500 registros com alterações teriamos 490 registros! Ok mas quando do um Browser, o numero de registro continua 500 mas não aparece nada, mas quando salvo no arquivo invés de salvar o branco, ele salvo como senão ouvesse alteração!, o que eu faço???? Question Question Question

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 20/7/2010, 11:08

Não conseguir entender muito bem...
Mas o seguinte comando não resolveria?
Código:
THISFORM.seuGrid.REFRESH()

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 12:48

A Grd Refresca mas os Registros do Cursor não são deletados entendeu?

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 12:59

outro Problema é que a dll mxml3.dll dá um erro: O Sistema não pode encontrar o Objeto!

O que é este problema?

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 20/7/2010, 13:06

Verificou se estais utilizando
Código:
SET DELETED ON

???

Se você fechar e abrir o form, os registros permanecem, ou desaparecem?

Talvez o erro esteja em sua cláusula WHERE.

Quanto ao erro sobre a "mxml3.dll" isto é antes ou depois?
Se você não souber dividir o assunto para perguntar, sinto muito, mas não poderei ajudar.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por mfelis em 20/7/2010, 16:43

Sim Utilizo, o set deleted on.
e sobre o erro é quando vou usar o Comando XMLTOCURSOR,
Olha o PRG que eu fiz para testes:
Código:
Create Cursor tes1 ( Nome c(25) , horariodata T)

lXML = Putfile("Salvar Em:","XMLtes1","Xml")
lXDS = Putfile("Salvar Em:","XMLtes1","XDS")

For lContador = 1 To 100
   Insert Into tes1 (Nome , horariodata) Values ( "Teste: " + Str(lContador), Datetime())

   ? "Registro: " + Str(lContador)
Endfor

Cursortoxml("tes1", lXML,1,512 , 0,lXDS, "http://www.microsoft.com/" + lXDS)
 
Set Step On

*Create Cursor tes2 (Nome c(25) , horariodata T)

Xmltocursor(lXML,"tes2",512)

Select tes2

Go Record 1
Delete
Go Record 5
Delete

lXML2 = Putfile("Salvar Em:","XMLtes1","Xml")
lXDS2 = Putfile("Salvar Em:","XMLtes1","XDS")

Cursortoxml("tes", lXML2, 1, 512, 0,lXDS2, "http://www.microsoft.com/mySchema.xsd")



mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Cursor Adapter + XML

Mensagem por Marcos Guedes em 18/10/2010, 10:14

up!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum