Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - viher

Páginas 1 2 3 4 5 6 7 8 9 10 11 12
#31
PHP / Re: problema update en php
6 Noviembre 2010, 16:55 PM
aqui tengo el codigo

Código (php) [Seleccionar]
<?
  $host="localhost";
$user="user";
$passwd="pass";
$db="bd";
        //Aqui recibimos las variables a actualizar
   $id=$_GET['id'];
   $porn1=$_POST['porn1'];
   $porn2=$_POST['porn2'];
   $nombre=$_POST['nombre'];
   $embed=$_POST['embed'];   
   $cat=$_POST['cat'];
   $cat2=$_POST['cat2'];
   $img=$_POST['img'];
   $dur=$_POST['dur']." minutos";
        //Creamos la conexión
        $link = mysql_connect($host, $user, $passwd);
mysql_select_db($db, $link);
              $sql=mysql_query("UPDATE videos set nombre='$nombre', embed='$embed', img='$img', cat='$cat', cat2='$cat2', porn1='$porn1', porn2='$porn2', dur='$dur's where id='$id'",$link);
              echo "Actualizado correctamente<br>";
  echo $id."<br>";
  echo $nombre."<br>";
  echo $img."<br>";
  echo $cat."<br>";
  echo $cat2."<br>";
  echo $dur."<br>";
  echo $porn1."<br>";
  echo $porn2."<br>";
  echo "<h2 align=center><a href=index.php?id=edit>Editar otro video</a></h2>";
?>

el problema es que solo me actualiza los registros $nombre y $dur, todos los demás me los actualiza en blanco,a pesar de que las variables las recibe bien en el "echo" del final. porque? gracias!
#32
PHP / Re: problema update en php
5 Noviembre 2010, 16:43 PM
no me da ningún error despues de usar  mysql_error();
#33
PHP / problema update en php
5 Noviembre 2010, 16:23 PM
hola,estoy haciendo un sistema para editar el contenido de mi web,tengo el siguiente code que no me da error pero no me modifica los datos:

principal
Código (php) [Seleccionar]
<p align="center"><?php
   include("config.php");
   $link=Conectarse();
   $result=mysql_query("select * from videos order by id desc",$link);
?>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 align="center">
      <TR><TD>&nbsp;<B>Nombre</B></TD> <TD>&nbsp;<B>ID</B>&nbsp;</TD> <TD>&nbsp;&nbsp;</TD></TR>
<?php      
   while($row = mysql_fetch_array($result)) {
    $id = $row["id"];
      printf("<tr><td>&nbsp;%s</td><td>&nbsp;%s&nbsp;</td><td><b><a href='editar_video.php?id=$id'>Editar</a></b></td></tr>", $row["nombre"],$row["id"]);
   }
   mysql_free_result($result);
   mysql_close($link);
?>
</table> </p>

editar_video.php
Código (php) [Seleccionar]
<html>
<head>
   <title>Enviar video</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
body {
background-color: #FCF;
}
</style>
</head>
<body><h1 align="center">Editar video</h1>
<p>
  <?
   include("config.php");
$id=$_GET['id'];
  $link=Conectarse();
   $result=mysql_query("select * from videos WHERE id=$id",$link);
   while($row = mysql_fetch_array($result)) {
   $id = $row["id"];
   $nombre = $row["nombre"];
   $embed = $row["embed"];
   $img = $row["img"];
   $dur = $row["dur"];
   $porn1 = $row["porn1"];
   $porn2 = $row["porn2"];
   $cat1 = $row["cat1"];
   $cat2 = $row["cat2"];
   }
   mysql_free_result($result);
   mysql_close($link);
?>
</p>
   <form name="form1" method="post" action="editado.php">
       <p>Nombre del video:
       <input name="nombre" type="text" value="<? echo $nombre ?>" size="40" maxlength="40" />
     </p>
       <p>Código embed del video:
         <label>
           <br>
           <textarea name="textarea" id="textarea" cols="45" rows="5"><? echo $embed ?></textarea>
         </label>
       </p>
       <p>Ruta de la imagen del video:
         <input name="img" type="text" value="<? echo $img ?>" size="50" />
     </p>
       <p>Duración del video:
         <input name="dur" type="text" value="<? echo $dur ?>" size="20" />
     </p>
       <p>Pornstar 1:
         <input name="porn1" type="text" value="<? echo $porn1 ?>" size="40" />
     </p>
       <p>Pornstar 2:
         <input name="porn2" type="text" value="<? echo $porn2 ?>" size="40" />
     </p>
       <p>Categoría del video:
         <label for="select"></label>
         <input name="cat1" type="text" value="<? echo $cat1 ?>" size="40" />
       </p>
       <p>Subcategoría del video:       
         <input name="cat2" type="text" value="<? echo $cat2 ?>" size="40" />
       </p>
       <p>
         <input type="submit" value="Actualizar" name="ir"/>
       </p>
</form>
</body>
</html>

editado.php
Código (php) [Seleccionar]
<html>
<head>
   <title>Enviar video</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
body {
background-color: #FCF;
}
</style>
</head>
<body><h1 align="center">Editar video</h1>
<?
  $host="localhost";
$user="userpass";
$db="bd";

        //Aqui recibimos las variables a actualizar

   $id=$_POST['id'];
   $porn1=$_POST['porn1'];
   $porn2=$_POST['porn2'];
   $nombre=$_POST['nombre'];
   $embed=$_POST['embed'];   
   $cat=$_POST['cat'];
   $cat2=$_POST['cat2'];
   $img=$_POST['img'];
   $dur=$_POST['dur']." minutos";

        //Creamos la conexión

        $link = mysql_connect($host, $user, $passwd);
mysql_select_db($db, $link);

        //aqui preguntamos si hicieron click en el boton actualizar
        if($_POST['ir']=="Actualizar")
       {
              $sql=mysql_query("update [/videos] set nombre='$nombre', embed='$embed', img='$img', cat1='$cat1', cat2='$cat2', porn1='$porn1', porn2='$porn2', dur='$dur' where [/id]='$id'",$link);
              echo "Actualizado correctamente";
        }
       else
       {
           echo "Error al editar el video.";
        }
?>
</body>
</html>

que es lo que está mal? gracias
#34
Programación Visual Basic / Re: ayudita expresion regular
3 Noviembre 2010, 00:43 AM
sige sin devolverme nada

Código (vb) [Seleccionar]
Option Explicit

Public Function Get_Text(ByVal sText As String, ByVal sPatern As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long

   Set oRegExp = CreateObject("VBScript.RegExp") 'Evitamos la referencia

   With oRegExp
       .Pattern = sPatern
       .Global = True
       .IgnoreCase = True
   End With

   Set oMatches = oRegExp.Execute(sText)

   For Q = 0 To oMatches.Count - 1
       Set oMatch = oMatches(Q)
       cTemp.Add oMatch.SubMatches(0)
   Next Q

   Set Get_Text = cTemp
End Function
Private Sub Command1_Click()
   Text2.Text = WebBrowser1.Document.documentElement.innerHTML
   Dim vItem                   As Variant
Dim S                       As String
   S = Text2.Text
   For Each vItem In Get_Text(S, "\<div align\=""justify""\>(.+)\<\/div\>")
       MsgBox vItem
   Next vItem
   Text1.Text = List1.List(0)
   List1.Clear
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com/")
End Sub
#35
Programación Visual Basic / Re: ayudita expresion regular
2 Noviembre 2010, 23:20 PM
no me funciona :(

Código (vb) [Seleccionar]
Sub Extraer_Url(url_Path As String, Expresion As String)
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim Contenido As String
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = Text2.Text
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next

End Sub

Private Sub Command1_Click()
    Text2.Text = WebBrowser1.Document.documentElement.innerHTML
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div align\=\""justify""\\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com")
End Sub
#36
Programación Visual Basic / Re: ayudita expresion regular
2 Noviembre 2010, 20:38 PM
estuve leyendome unos tutoriales e hice esta expresión regular,pero no me funciona:

Código [Seleccionar]
\<DIV align\=\""justify""\\>(.+)\<\/DIV\>

lo que quiero es que me saque el texto que hay entre <div align="justify"> TEXTO A SACAR </div>,pero no me funciona,cual es el problema? gracias!
#37
Programación Visual Basic / Re: ayudita expresion regular
31 Octubre 2010, 12:45 PM
alguien me puede pasar algún tutorial para aprender Regexp?? ya que he estado mirando y no he encontrado ninguno para VB6. Gracias!
#38
Programación Visual Basic / Re: ayudita expresion regular
30 Octubre 2010, 17:31 PM
Cita de: raul338 en 30 Octubre 2010, 17:17 PM
viher fijate las variables o_Match, o_Matches, y o_RegExp .... cambiales el nombre :¬¬

en este pequeño tipo de cosas las deberias hacer por ti mismo

Aunque el fallo fue mio, deberias darte cuenta

gracias raul338,ya lo conseguí  ;-)
#39
Programación Visual Basic / Re: ayudita expresion regular
30 Octubre 2010, 17:13 PM
Cita de: raul338 en 30 Octubre 2010, 17:03 PM
Hay algo mal, por ahi no es la expresion regular que necesitas

EDIT:

Cita de: viher en 30 Octubre 2010, 16:34 PM
Código (vb) [Seleccionar]

   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next


Deberías cambiarlo por esto

Código (vb) [Seleccionar]

   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(oMatch.SubMatches(0), Chr(34), vbNullString)
   Next


Porque es como te dije, debes obtener los submatches, no los matches en si

Variable no definida  :-\
#40
Programación Visual Basic / Re: ayudita expresion regular
30 Octubre 2010, 17:01 PM
vale,solo una cosilla mas,lo que me devuelve tu code es "vivan las ranas",pero yo quiero que me devuelva lo que hay escrito en el Text1.Text y hago lo siguiente:

Código (vb) [Seleccionar]
Dim S                       As String
    S = Text1.Text

    MsgBox Get_Text(S)

pero me da error,porque? gracias!
Páginas 1 2 3 4 5 6 7 8 9 10 11 12