Mensajes

Tenia el proxyi activo y no enviaba los mensajes (sabe dios porque), lo desactive y adios problemas, el email se envia.

Gracias por el dato

[Error en : \public_html\mews\config.phpLinea # : 35Mensaje : Ha ocurrido un error tratando de realizar un query a la base de datos]

Dado que no me muestra ningun error PHP de programacion, Es decir lo trabaja normalmente pero no me envia el email de con el log, aqui mi codigo.

Código (php) [Seleccionar] Expandir

function query_to_mysql($query){
global $sql;
$sql=mysql_query($query) or error_log(report_error(__FILE__,__LINE__,'
Ha ocurrido un error tratando de realizar un query a la base de datos'),1,
'usuario@email.com','Subject: Error en Query \nFrom: '.$_SERVER["HTTP_HOST"].'\n');
}

La funcion report_error no hace mas que mostrarme en la pantalla el archivo y la linea del error, Trabaja de maravillas pero al usar el "error_log", no manda el error al mail solo lo muestra en pantalla de esta forma:

Error en : \public_html\mews\config.php

Linea # : 35

Mensaje : Ha ocurrido un error tratando de realizar un query a la base de datos

Quiero saber donde esta mi error, estoy tratando de manejar errores en PHP (Obviamente juego con los datos para generar los errores a proposito haber si funcionan) .

Sugerencias?

No será que de vez en cuando en alguna línea no se cumple la estructura? como ser una línea en blanco? 

Saludos

yo no se porque te haces problemas, el codigo que te postee da solucion a tus problemas ...
lo unico que no  hice es agregar lo que tu ya supuestamente sabias...
Para que no provoque errores, puedes agregar un "On Error goto Error" y abajo defines que las variables las setee vacias... y tienes todoooooooooo liiistoo, espero que te sea util

PD: procura declarar bien las variables antes de usarlas, es un buen habito de programacion

Tenian razon, lo que pasa es que el txt tenia lineas que estaban vacias y otras que no cumplian con la estructura, he ahi el problema.

Gracias por la ayuda, ya lo solucione aunque.

Esta muy bien, pero mi problema no es separarlos sino meterlos al listview, tu metodo es muy bueno pero ocasiona un error a la hora de tratar de meterlos al listview.

De todas formas gracias por el codigo, los separa bien si lo muestras en un mensaje pero para el listview no funciona.

Código (vb) [Seleccionar] Expandir

PathArchivo = CD1.FileName
   
    Open PathArchivo For Input As #1
   
    While Not EOF(1)
    Line Input #1, linea
   
   llave = Trim(Mid(linea, 1, InStr(1, linea, "=") - 1))
   valor = Trim(Mid(linea, InStr(1, linea, "=") + 1, InStr(1, linea, ";") - InStr(1, linea, "=") - 1))
   comentario = Trim(Mid(linea, InStr(1, linea, ";") + 1))

    Set item = ListView.ListItems.Add(, , llave)
        item.SubItems(1) = valor
        item.SubItems(2) = comentario
 
    Wend
    Close #1

existen muchas maneras de cargar un texto en un listview de forma ordenada:

Código (vb) [Seleccionar] Expandir

Sub abre_lista()

Dim itm As ListItem
Dim a, b, c As String
    Open App.Path & "\Data.txt" For Input As #1
    Do Until EOF(2)
    Input #1, a, b, c
              Set itm = lv1.ListItems.Add(, , a)
              itm.SubItems(1) = b
              itm.SubItems(2) = c
    Loop
    Close #1
   
End Sub

y claro las lineas del texto deben de estar separados :

Código [Seleccionar] Expandir

"usuario","password","rango"

espero te sirva...

saludos.

edit: los datos solo eran 3 .. puse para 4 anteriormente... ya esta corregido 

Muy bien, pero el archivo de texto es como dije anteriormente:

LLAVE=VALOR ;COMENTARIO

Si lo pudiera separar todos con comas funcionaria, pero como digo no puedo cambiar la estructura del txt.

Código (vb) [Seleccionar] Expandir

Dim Linea As String
Dim item As ListItem
Dim spt1() As String
Dim spt2() As String
Dim i As Integer
   
    PathArchivo = App.Path & "\datos.txt"
    Open PathArchivo For Input As #1
   
    While Not EOF(1)
    Line Input #1, Linea
   
    spt1 = Split(Linea, ";")
    spt2 = Split(spt1(0), "=")
   
    Set item = ListView.ListItems.Add(, , spt2(0))
        item.SubItems(1) = spt2(1)
     Wend
    Close

Exit Sub
errsub:
MsgBox Err.Description, vbCritical

Ahi esta, haber si me das una manito

lo arreglas con split:

Código (vb) [Seleccionar] Expandir


Dim strItems1() as String
Dim strItems2() as String
strItems1= split(strLinea, "=") '0=tag
strItems2 = split(strItems1(1), ";") '0=contenido, 1=comentario


saludos

esta muy bien pero me sale el tipico error que el indice esta fuera del intervalo.

Un problema mas que tengo chicos, Lo que deseo es saber si se puede realizar lo siguiente en visual basic.

por ejemplo:

en un archivo de texto tengo lineas como esta

usuario = felipito  ;Nombre de usuario
password = 1234  ;password del usuario
rango = 3  ;Rango de usuario: 1= admin, 2=normal, 3=mod
...
...
...

Si se dan cuenta los comentarios se definen a partir del "punto y coma"

Lo que deseo es colocar en un listview estos datos por separados de manera ordenada

[liNEA] [TAG] = [ATRIBUTO]  [; COMENTARIO]

Código (vb) [Seleccionar] Expandir

Set subs = ListView1.ListItems.Add(, , LINEA)
          subs.SubItems(1) = TAG
          subs.SubItems(2) = ATRIBUTO
          subs.SubItems(2) = COMENTARIO

Se como agregar los datos al listview, pero no logro separarlos y colocarlos como quiero.

Pues ese es el problema que tengo, no me inserta el registro en SQL server, que estoy haciendo mal.

Código (vb) [Seleccionar] Expandir

Private Sub cmdRegister_Click()
Dim registro As String
Dim msg As String
Dim ann As String
Dim Obj As EncriptString
Set Obj = New EncriptString
Dim lNumRegAfect As Long
Dim strSQL As String

Set conectar = New ADODB.Connection
Set registro = New ADODB.Recordset

On Error Resume Next
'Path del fichero Ini
Path_Archivo_Ini = App.Path & "\config.ini"


'Lee los datos y  Les envia el valor por defecto por si no existe
account = Leer_Ini(Path_Archivo_Ini, "user", "sa")
password = Leer_Ini(Path_Archivo_Ini, "pass", "123")

ann = Obj.descifrar(password)


msg = MsgBox("Estas a punto de registrar una cuenta con los siguientes datos: " & vbCrLf _
             & "Nombre de usuario: " & txtNickname & vbCrLf _
             & "Password: " & txtPassword & vbCrLf _
             & "Correo Electronico: " & txtEmail & vbCrLf _
             , vbInformation + vbYesNo, "Info")

If msg = vbYes Then
Set conectar = New ADODB.Connection
Set registro = New ADODB.Recordset

    conectar.Open "PROVIDER=MSDASQL;" & _
                  "driver={SQL Server};" & _
                  "server=(local);" & _
                  "uid=" & account & ";" & _
                  "pwd=" & ann & ";" & _
                  "database=users;"

   
    registro = "INSERT INTO info(id,pwd,mail)" & _
                   "VALUES('" & txtNickname & "', '" & _
                                txtPassword & "', '" & _
                                txtEmail & "')"
   
    conectar.Execute registro, lNumRegAfect
   
    MsgBox "Cuenta registrada satisfactoriamente", vbInformation, "Info"

   MsgBox "Número de registros afectados: " & lNumRegAfect

    conectar.Close

Else
Exit Sub
conectar.Close
registro.Close
Unload Me
End If

End Sub

Amiga Como puedo escribirte un mensaje, he tratado pero no doy dado que cambiaste tu usuario y no me permite hacerlo. Quisiera contactar contigo en privado.