Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Pro VB 6
|
Pro VB 6 For advanced Visual Basic coders working in version 6 (not .NET). Beginning-level questions will be redirected to other forums, including Beginning VB 6.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Pro VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old May 9th, 2007, 10:44 AM
Friend of Wrox
 
Join Date: Mar 2005
Posts: 264
Thanks: 0
Thanked 0 Times in 0 Posts
Default How to check if an xml has data set in vb6?

In my project i added a timer that frequently checks a remote xml. What i want this new timer some how check if the rss feed is giving any result out. If it gives data out i for example reload webbrowser controle.IF it doesn't give any data out i do nothing. (I don't need to output xml content)Could any one show me how i can make such check.Thanks


Note:The url to check for its xml data is like this:
'http://localhost//datastatus.php?sessionkey=b429632c627bcf6bd4840561 690e3c49


Code:
Private Sub Form_Load()

     Timer2.Interval = 7000 ' <-- 10 seconds
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Static lngMin As Long

    lngMin = lngMin + 1

    'every 2nd timer tick reload the listview
    If lngMin Mod 2 Then
        checkForNewData
    End If

End Sub

Private Sub checkForNewData()
'Here i need to check for new data . If new data is avalible then
'reload the webbrowser.

'i need some how check if the following php code outputs any xml or not?
'http://localhost//datastatus.php?sessionkey=b429632c627bcf6bd4840561690e3c49


End Sub
datastatus.php

Code:
<?php
header("Cache-Control: no-cache, must-revalidate");
    header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");

$sessionkey=$_GET['sessionkey'];

$server   = "localhost"; // MySQL hostname
$username = "root"; // MySQL username
$password = "root"; // MySQL password
$dbname   = "db"; // MySQL db name

$db = mysql_connect($server, $username, $password) or die(mysql_error());
      mysql_select_db($dbname) or die(mysql_error());

// this is necessary, otherwise it won't work: 
header('Content-type: application/xml'); 
// you need to return the error as xml as well 
$res = mysql_query("SELECT w,h FROM datastatus WHERE who_sessid ='$sessionkey' ") or die('<error>'.mysql_error().'</error>');
// display the root node of the xml, and start looping over the elements: 
echo '<playlist>'; 
while($row = mysql_fetch_assoc($res)){ 
  echo '<song>'; 
  echo '<artist>'.$row['w'].'</artist>'; 
  echo '<name>'.$row['h'].'</name>'; 
  echo '</song>'; 
} 
echo '</playlist>';  


?>





Similar Threads
Thread Thread Starter Forum Replies Last Post
Problem comparing xml data vb6 method Pro VB 6 5 May 9th, 2007 11:19 AM
How to set the print properties of excel with vb6 wyq1234 Visual Basic 2005 Basics 0 July 5th, 2006 10:09 AM
check each row in xml meylon XSLT 3 August 12th, 2004 07:13 AM
VB6 Data Report (without data environment) woodie100 Beginning VB 6 1 April 15th, 2004 09:11 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.