jarpsoft

Me podrías decir al menos que base de datos usas, que tipo de conexión (ADO, DAO, RDO). Y el código que estas empleando para poder así ayudarte. Solo con eso nadie te puede decir algo concreto solo especular. Aquí mismo puede hacer una repregunta sin...

Ok, man ya entendí la pregunta. La respuesta es sencilla, en tu código reemplázalo por el nombre del DSN de usuario, ya no necesitarías usar un ConnectionString, los recordsets no varían. Pruébalo. Public cn As New ADODB.Connection...

Al igual que cuando utilizas: Private Sub cmd_salir_Click() confirma = MsgBox("Desea Salir?", vbYesNo + vbExclamation, "Sistema") If confirma = vbYes Then Unload Me End If End Sub Para utilizarlo en el formulario lo harias de la siguiente manera:...

Te recomiendo utilizar el Crystal Report, ya que el Data Report es demasiado limitado. CR es sencillo y te ahorrarías bastante tiempo. He publicado hace un rato los pasos ha seguir para usar el CR con VB6.

He probado hacer lo que me dices y me sale con el siguiente código: Private Sub Combo_Click() If Combo.Text = "Datos Personales" Then SSTab.Tab = 1 Frame1.Enabled = True Text1.SetFocus ElseIf Combo.Text = "Opciones" Then SSTab.Tab = 2 Text3.SetFocus...

Para abrir una base de datos en modo exclusivo o compartido, utiliza el método OpenDatabase para abrir la base de datos, especificando un valor True o False (predeterminado) respectivamente para el argumento Options. Ejemplo: Public Function...

El codigo es el siguiente: Dim flag As Byte Private Sub Form_Activate() flag = 0 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (X > Shape1.Left) And (X < Shape1.Left + Shape1.Width) Then...

Crear un reporte es muy fácil con Cystal Reports. 1.- Primero seleccionas la base de datos y tablas para el reporte. 2.- El reporte consta de 5 partes: a) Encabezado del Reporte(Report Header) b) Encabezado de página (Page Header) c) Detalles aquí...

Que código estas utilizando, quizás así sea más claro los que estas haciendo. Private Sub cmb_dato_KeyDown(KeyCode As Integer, Shift As Integer) txt_code.Text = Chr(KeyCode) End Sub Que es lo que necesitas hacer, cosa que así te podría ayudar.

Creo que entendí tu programa, generar un aleatorio y luego sumarle el cociente, luego un acumulador. Bueno el código es el siguiente: Private Sub Command1_Click() Dim max, part As Integer Dim acum, num, cociente As Single max = Val(Text1.Text) part =...