Rivx

baltinino: Eso lo realicé. Según eso, debo usar el driver de la IBM Propinter II, el cual ya ocupo. fantovalpo: cada día me convenzo que es problema del cable. Hice lo que propones, y bueno, desde las 12, hasta esta hora, no imprime. :8)

fantovalpo: está conectada al puerto usb que istaló el adaptador. El driver que ocupo, es el que tiene Windows XP (IMB Propinter II), y el nuevo puerto lo reconoce. El problema es que, al momento de mandarle un documento (sea una página de prueba o un documento con una sola A), sale en las propiedades de la impresora que imprime, y luego sale un mensaje diciendo que no se pudo imprimir. Ni los Shinnigamis han podido con esto. :8(

Cómo sabré si el cable es el malo, o solo es el puerto de la impresora el malo? :8)

Gracias por tu respuesta baltinino. Pasa que yo instalo solo el driver del XP. Cómo haría que el puerto USB lo reconozca como LPT1? :8)

Hola Señoras y Señores: He aquí el problema. Resulta que necesito hacer funcionar una impresora de matriz de punto antigua Panasonic KX-P1180I sobre un notebook con Windows XP SP3. La tengo conectada a un adaptador USB a puerto paralelo, instalado los drivers (IBM Propinter II, se usa normalmente la del Propinter pero al ejecutar el status de la impresora (propia función que llevan por fábrica, sin necesidad de conectarla a pc) aparece dentro de los datos la emulación de esta impresora). El cable lo he enchufado y sacado cientos de veces, he usado cada uno de los botones y configuraciones posibles (con el interruptor ON encendido), y aún así sigue sin funcionar. ¿Alguien me podría echar una manito con este problema? Problemas de tinta no posee, ya que, los datos antes descrito, los presenta a travez de impresión en papel (por cierto, poseo el manual de esta impresora). Nos vemos, y de antemano, muchas gracias. :8)

Claro. Como dice Ra, si no incluyes las librerías del CR y no seteas bien los Dataset, en el ejecutable siempre estará el error. Ojo, y esto es para los principiantes: A partir de la versión 2010 VS no trae Crystal Report. Uno tiene que comprarlo (tradúzcanlo a chileno), después bajar de la página de SAP el paquete de integración a VS, y recién ahí se puede trabajar con Crystal. :8)

Revisando. La opción en vb 2008 es Ver Configuración del UAC PD: Esto debería revisarlo a pesar de que son usuarios (datos) en la bd? Porque no son usuarios creados para base de datos. :8)

¿Manifiesto?

susodicho: Reviso y te cuento. Edito: Sigue con el error de restauración. Te mando una foto: :8)

Gracias por tu respuesta. En efecto, el dir no esta obteniendo el archivo, el problema es que por ListView no lo he podido obtener. :8[

Claro, como te dicen arriba, todo depende de varios factores. En mi caso siempre privilegio dos: a) Tipo de Licencia (Si los que te piden implementar la BD estan dispuestos a pagar licencias o no) b) Lenguaje a Utilizar (No le hago mucho caso a este punto, pero hay veces que si) Sobre motores, puedes usar SQL SERVER, ORACLE, MYSQL,MARIADB,FIREBIRD, y la lista suma y sigue. Saludos. :8[

Hola amigos: El cuento es el siguiente: Resulta que quiero ver la posibilidad de acceder a unos archivos de backup (.bak) de SQL SERVER sin usar el OpenFileDialog. Para ello, decidí usar un Listview que los lista (valga la redundancia). Lista estos archivos bien, pero al momento de elegir uno, para hacer la restauración correspondiente de la base de datos, esta no la hace, o muestra un error. la pregunta es: ¿Estaré haciendo algo mal, o pienso en otra cosa que no sea un ListView? Anexo el código del backup: Dim dir, bd As String dir = lv_respaldos.SelectedItems.Item(Name).ToString bd = "nombrebd" con_master() tab = New SqlCommand("Alter database nombrebd set SINGLE_USER With ROLLBACK IMMEDIATE", con) dadap.InsertCommand = tab dadap.InsertCommand.ExecuteNonQuery() tab = New SqlCommand("alter database nombrebd set multi_user", con) dadap.InsertCommand = tab dadap.InsertCommand.ExecuteNonQuery() Dim sBackup As String = "RESTORE DATABASE [nombrebd] FROM DISK = '" & Trim(dir) & "' WITH REPLACE" Dim csb As New SqlConnectionStringBuilder ' csb.DataSource = Me.TxtServido.Text 'Es mejor abrir la conexión con la base Master csb.InitialCatalog = "master" csb.IntegratedSecurity = True Try Dim cmdBackUp As New SqlCommand(sBackup, con) cmdBackUp.ExecuteNonQuery() MessageBox.Show("Se ha restaurado la copia de la base de datos. Para visualizar los cambios, debe reiniciar el Sistema.", _ "Restaurar base de datos", _ MessageBoxButtons.OK, MessageBoxIcon.Information) con.Close() Catch ex As Exception MessageBox.Show(ex.Message, _ "Error al restaurar la base de datos", _ MessageBoxButtons.OK, MessageBoxIcon.Error) con.Close() End Try Me.Hide() Por su ayuda, o por su lectura, muchas gracias. :8[

Hola señores: Soy yo de nuevo. Logré restar horas y minutos usando el Datediff sobre dos datetimepickers, pero pasaron dos problemas que se relacionaron: 1) al restar por minutos, lo hace la primera vez bien, pero al cambiar el valor de uno de los datetimepickers, transforma el resultado de horas en minutos, y para colmo, se los suma al resultado, logrando un resultado de, por ejemplo 119 minutos. 2) el resultado de dicha resta debe restarse a su vez a un número entero. Sé que son peras con manzanas, pero eso es lo que necesito. Espero puedan darme alguna idea. Les dejaré el código de las restas de los datetimepickers. Nos vemos. Dim fechaInicio As Date Dim fechaFinal As Date fechaInicio = cbo_h_i.Value fechaFinal = cbo_h_f.Value resultado = Abs(DateDiff(DateInterval.Hour, fechaInicio, fechaFinal)) resultado2 = Abs(DateDiff(DateInterval.Minute, fechaInicio, fechaFinal)) lb_indisponibilidad.Text = "" & resultado & ":" & resultado2 :8)

Saludos. Mira, no soy muy capo en Java, pero una vez hice un experimento, y gracias a este video logré algo parecido. Aquí va el link: http://www.youtube.com/watch?v=f1nbCcpriWU Saludos, y espero te funcione. :8)

La idea de susodicho es una gran idea. Así me funcionó a mi, ahora que recuerdo.. :8)

O usa MySQL Workbench. Te lo digo por experiencia. ;8)

Señores, se solucionó. Gracias a una compañera que conocí, que me dio la receta. Supongamos que existe un módulo donde estan declaradas las conexiones, el código queda de la siguiente forma: 'declarar estas variables para la conexión después del nombre del formulario Private Const cs As String = "Data Source=server;" & _ "Integrated Security=true;" & _ "Initial Catalog=bd" Dim sentecia, sentecia2, sentencia As SqlCommand Dim dt, dt2 As DataTable Dim datap, datap2, data As SqlDataAdapter Dim dset As DataSet Private Sub cargar_combo(ByVal ComboBox As Windows.Forms.ComboBox, ByVal sql As String) ' nueva conexión indicando al SqlConnection la cadena de conexión Dim cn As New SqlConnection(cs) Try ' Abrir la conexión a Sql cn.Open() ' Pasar la consulta sql y la conexión al Sql Command Dim cmd As New SqlCommand(sql, cn) ' Inicializar un nuevo SqlDataAdapter Dim da As New SqlDataAdapter(cmd) 'Crear y Llenar un Dataset Dim ds As New DataSet da.Fill(ds) ' asignar el DataSource al combobox cbo_proble.DataSource = ds.Tables(0) ' Asignar el campo a la propiedad DisplayMember del combo ComboBox.DisplayMember = ds.Tables(0).Columns(1).Caption.ToString ComboBox.ValueMember = ds.Tables(0).Columns(0).Caption.ToString Catch ex As Exception MessageBox.Show(ex.Message.ToString, _ "error", MessageBoxButtons.OK, _ MessageBoxIcon.Error) Finally If cn.State = ConnectionState.Open Then cn.Close() End If End Try End Sub Sub relleno() Dim numero As Integer numero = cbo_proble.SelectedIndex sentencia = New SqlCommand("select h_det from problemas where codi_p=" & numero & "", con) data = New SqlDataAdapter(sentencia) dt = New DataTable data.Fill(dt) If dt.Rows.Count > 0 Then Label3.Text = dt.Rows(0).Item("h_det") End If End Sub Private Sub cbo_proble_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_proble.SelectedIndexChanged relleno() End Sub Private Sub otro_combo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load conexion() cargar_combo(cbo_proble, "select * from problemas where estado='P' order by problema asc;") cbo_proble.DropDownStyle = ComboBoxStyle.DropDownList End Sub End Class Saludos a los que ayudaron, y gracias por la paciencia. :8)

Señoras y Señores: Tengo una duda. Resulta que debo mostrar en un label el resultado de una búsqueda en sql server, y dicha búsqueda debe hacerla un combobox. Anexo lo que estoy haciendo (para ver en qué fallo): Dim cadena_conexion2 As String = "data source=bd;" & "Initial Catalog=rlm;" & "Integrated Security=true" Dim varicone3x As New SqlConnection() varicone3x = New SqlConnection(cadena_conexion2) varicone3x.Open() If varicone3x.State = ConnectionState.Open Then Dim da2 As New SqlDataAdapter("select h_det from problemas where codi_p=" & ComboBox1.SelectedIndex & "and estado='P';", varicone3x) Dim det2 As New DataTable da2.Fill(det2) Label3.Text = CInt(det2.ToString) End If 'Por razones obvias, no voy a mostrar la base de datos aquí Se puede lograr lo que quiero? Agradezco de antemano sus opiniones. :8)

PD: Edito, puse lo de la guía, sin embargo, ahora no crea nada.

Revisando. Gracias por el tiempo. :8) PD: Edito, puse lo de la guía, sin embargo, ahora no crea nada. :8)

Hola a todos gente de (¿)bien(?) Les cuento: debo hacer un respaldo en .bak de una base de datos, y en teoría la hace. Pero por ejemplo, al probar ese archivo en SQL Management Studio, me sale el bak esta mal hecho. Adjunto el código para aquella alma caritativa que se apiade de este humilde programador. Va mi intento de backup y restore. Para conocimiento, la ruta de donde quedará guardado la saca de un FileDialog: Dim destino As String Dim dlgDestino As New FolderBrowserDialog With dlgDestino .Description = "Seleccione el directorio de destino:" If .ShowDialog = Windows.Forms.DialogResult.OK Then Dim strDestino As String = .SelectedPath.ToString If Not strDestino.EndsWith("\") Then strDestino = strDestino & "\" End If destino = strDestino & "" End If End With Dim cadena_conexion As String = "data source=NOMBRESERVER;" & "Initial Catalog=rlm;" & "Integrated Security=true" Dim variconex As New SqlConnection() variconex = New SqlConnection(cadena_conexion) variconex.Open() If variconex.State = ConnectionState.Open Then Try Dim fhActual As DateTime = Date.Now() Dim ruta As String Dim fActual As String = fhActual.Year.ToString().Trim() & _ fhActual.Month.ToString().Trim().PadLeft(2, "0") & _ fhActual.Day.ToString().Trim().PadLeft(2, "0") Dim hActual As String = fhActual.Hour.ToString().Trim().PadLeft(2, "0") & _ fhActual.Minute.ToString().Trim().PadLeft(2, "0") & _ fhActual.Second.ToString().Trim().PadLeft(2, "0") Dim servic As String = "NOMBRESERVER" Dim bas As String = "rlm" ruta = fActual & hActual & servic & bas Dim sCmd As New StringBuilder sCmd.Append("BACKUP DATABASE [" + bas + "] TO DISK = N'" + dlgDestino.ToString + "' ") sCmd.Append("WITH DESCRIPTION = N'" + ruta + "', NOFORMAT, NOINIT, ") sCmd.Append("NAME = N'" + ruta + "', SKIP, NOREWIND, NOUNLOAD, STATS = 10") Dim cmd As New SqlCommand(sCmd.ToString, variconex) cmd.ExecuteNonQuery() MessageBoxEx.Show("Respaldo creado con éxito", "Felicidades", MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Information) Catch ex As Exception MessageBoxEx.Show("No se pudo realizar el Respado", "ERROR", MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) Finally variconex.Close() End Try End If End Sub Espero puedan ayudarme. Nos vemos. :8)

esperando el disco 2, pero gran aportazo :8)

Querida Karlita: Descargado y descomprimido OK. Solo tira un pequeño Warning en el arcghivo 1, pero nada de cuidados. Felicitaciones. :8)

Ok. Lo revisaré. :8)

Disculpa, pero, para cual de todos los lenguajes de Visual Studio es? :8)