últimos mensajes de: viher

Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12

Programación / PHP / Re: problema update en php

en: 6 Noviembre 2010, 16:55 pm

aqui tengo el codigo

Código

<?
  $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	Programación / PHP / Re: problema update en php	en: 5 Noviembre 2010, 16:43 pm
no me da ningún error despues de usar mysql_error();

Programación / PHP / problema update en php

en: 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

<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

<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

<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

Programación / Programación Visual Basic / Re: ayudita expresion regular

en: 3 Noviembre 2010, 00:43 am

sige sin devolverme nada

Código

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

Programación / Programación Visual Basic / Re: ayudita expresion regular

en: 2 Noviembre 2010, 23:20 pm

no me funciona

Código

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 / Programación Visual Basic / Re: ayudita expresion regular	en: 2 Noviembre 2010, 20:38 pm
estuve leyendome unos tutoriales e hice esta expresión regular,pero no me funciona: Código: \<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 / Programación Visual Basic / Re: ayudita expresion regular	en: 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 / Programación Visual Basic / Re: ayudita expresion regular	en: 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 / Programación Visual Basic / Re: ayudita expresion regular	en: 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 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 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 / Programación Visual Basic / Re: ayudita expresion regular	en: 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 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