Rivx

Como siempre rob_loser dando una mano, A penas tenga noticias, se las hago saber. Sobre lo de la yapa, si no me creen que funciona, es pego un pantallazo de un proyecto en el que estoy trabajando a veces: :8) PD: novedades con el backup= encontré este código, y lo quiero implementar a un SaveFileDialog, y que solo le ponga un nombre, no que yo tenga que escribírselo. Cómo sería? Private Sub brespaldar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brespaldar.Click Dim x As String Dim comando As String Try x = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MYSQL Server 5.0", "Location", 0) comando = x & "bin\mysqldump --user=usuario --password=pwd --databases base -r """ & ruta.Text & """" Shell(comando, AppWinStyle.MinimizedFocus, True) Catch ex As Exception MsgBox("Ha ocurrido un error al intentar respaldar la base de datos.", MsgBoxStyle.Critical, "Error al Respaldar") Exit Sub End Try End Sub

Hola a todos: Les traigo una pregunta y un regalo, por las constantes ayudas: 1) Si uno tiene instalado wampserver, se puede hacer un backup de la base de datos en vb.net? Los códigos que he visto, usan el exe mysqldump, pero no lo instala wamp. 2) Si por abc motivo, necesitan listar en un datagrid una tabla de PostgreSQL, necesitarán dos cosas: a) la dll npgsql. Es igual a los de Mysql. Solo se debe agregar como referencia una vez descargado los archivos Npgsql.dll y Mono.Security.dll b) crear una clase de conección, preferentemente esta: Public Function Conectar_marca() As Boolean Dim ConexioPG As String = "Server=localhost;Port=5432;User Id=postgres;Password=123456;Database=base;Protocol=3;SSL=false; Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;" Dim conn As Npgsql.NpgsqlConnection = Nothing Try 'Crear instancia de conexion con Npgsql.connection conn = New Npgsql.NpgsqlConnection(ConexioPG) 'abrir conexion conn.Open() 'crea el string de select Dim SQL As String = "SELECT * FROM tabla" 'agarras la sentencia, y usas el adaptador Dim da As Npgsql.NpgsqlDataAdapter = New Npgsql.NpgsqlDataAdapter(SQL, conn) 'crea el dataset Dim ds As DataSet = New DataSet() 'llenas la tabla con los datos da.Fill(tabla23i) 'mensaje de error en caso de Catch ex As Exception MsgBox(ex.Message) Return False Finally If Not conn Is Nothing Then 'si la conexion no hizo nada If conn.State = ConnectionState.Open Then 'fecha a conexio conn.Close() End If End If End Try Return True End Function :8)

wtfbenja esta en lo cierto. Te ayudo si me dices que llevas hecho. :8)

Revisando. Por si no lo dije, uso vb.net y mysql. :8[

Hola: Para variar, otro problema. He visto clases en .net que hacen backups de MySQL, la mala noticia para mis intenciones, es que debo tener la base instalada con sus ejecutables (Yo uso WAMP). Alguien sabe de una clase que funcione con WAMP??? :8[

Noticias: Cambiando el id, por el código que pego a continuación en la consola de MySQL: select novedad.fecha_novedad,detalle_novedad.hora_inicio,detalle_novedad.hora_termino,flota.numero,tipo_flota.tipo,empleados.nombre,problemas.problema,detalle_novedad.solucion,detalle_novedad.observaciones,turnos.turno from novedad,detalle_novedad,empleados,flota,tipo_flota,turnos,problemas where detalle_novedad.id_detalle=novedad.detalle_novedad and detalle_novedad.equipo=flota.cd and flota.tipo_flota=tipo_flota.codi and detalle_novedad.rut_empleado=empleados.rut and detalle_novedad.problema=problemas.codi_p and detalle_novedad.turno=turnos.cod and detalle_novedad.estado='P' logro hacer que me los liste todos. El problema es que lo hago para uno individual, y sueno. A todo esto, puede ser lo que dicen anteriormente, porque, aun con ese cambio en el código, arroja el mismo error. Novedades 2: Logré que mostrara el reporte con esa sentencia de este post. lo malo es que, al crear los individuales, no me infla. :8)

Esta todo bien. Felicidades. Consulta, y leyendo tu blog la hago, retomarás el proyecto? :8)

Veamos, tira algo como esto: :8)

Hola amigos: La verdad que estoy aproblemado. Necesito hacer un reporte en crystal report en vb 2008. Sé como hacerlo. Solo que, al momento de ejecutarlo, me tira error en la sentencia (sentencia bien hecha en mysql, por cierto, el motor que ocupo). Al que esté interesado, y no entendió lo de arriba, dejo colgado unos sources: esto va en una función para leer datos de la bd: Public Function consulat_detalle_para_inf(ByVal dat As para_nueva_novedad) Dim state23 As Boolean = True Try conxopen23() veintitres.SelectCommand = New MySqlCommand("select novedad.fecha_novedad,detalle_novedad.hora_inicio,detalle_novedad.hora_termino,flota.numero,tipo_flota.tipo,empleados.nombre,problemas.problema,detalle_novedad.solucion,detalle_novedad.observaciones,turnos.turno from novedad,detalle_novedad,empleados,flota,tipo_flota,turnos,problemas where detalle_novedad.id_detalle=@id and detalle_novedad.equipo=flota.cd and flota.tipo_flota=tipo_flota.codi and detalle_novedad.rut_empleado=empleados.rut and detalle_novedad.problema=problemas.codi_p and detalle_novedad.turno=turnos.cod and detalle_novedad.estado='P'", coneccion23) veintitres.SelectCommand.Parameters.Add("@id", MySqlDbType.Int32).Value = dat.idx veintitres.Fill(tabla23) Catch ex As MySqlException state23 = False Finally conxclose23() End Try Return state23 End Function Y esto va en el botón que se programó. KryptonLabel1.text lee su valor de una grilla: Dim conexion_detalle As New conecte_detalle_novedad Dim dat_detalle As New para_nueva_novedad Dim tabla_detalle As New DataTable Dim rp_inf As New rep_detalles dat_detalle.idx = KryptonLabel1.Text If conexion_detalle.consulat_detalle_para_inf(dat_detalle) Then tabla_detalle = conexion_detalle.tabla23i rp_inf.SetDataSource(tabla_detalle) ver_rp.vr_rp.ReportSource = rp_inf ver_rp.vr_rp.RefreshReport() ver_rp.Show() End If De antemano, muchas gracias. :8)

Gracias por el aporte!!!!

Grande, como siempre, lo mejor de lo mejor!!!! :8)

De nada, y avisen si el link esta malo. :8)

Muchas gracias. :8)

Ustedes me dieron la vida, yo trato de agradecerles aportando y dandoles seguimiento (cuando puedo). Gracias. :8)

Infinitamente agradecido. Bajado, testeado y Full!!! :8)

Gracias. Ahora si que hay links 100% funcionales. :8)

Un buen disco para el verano. Gracias. :8)

Infinitas gracias, amiga. :8)

Gracias por el aporte. :8)

Gracias Master. :8)

Gracias. De verdad me salvas la life. :8)

Dai, el link me tira error. :8)

Te pasaste. Me saco el sombrero. :8)

Hoy es un día peculiarmente raro. El sol no calienta tanto, los pájaros no están cantando, los vecinos de la esquina hablan, pero no se escuchan. ¿Qué estará pasando? Me muevo del piso, mas lo hago sin usar las piernas. La pared no fue impedimento para pasar a la pieza de mi amada. No entiendo, y da miedo. Por fin la escucho, esta llorando. ¡No estés triste Ramona! Quiero tocarla, pero mis manos la traspasan. Ella no me escucha. Sigo sin saber que pasa. O al menos qué pasó. Es un día peculiar, sin duda alguna... :8)

Simplemente, gracias. :8)