|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - cpmario
Páginas: 1 ... 11 12 [13] 14 15 ... 26
301
« en: Viernes 30 de Junio de 2006, 16:58 »
302
« en: Martes 20 de Junio de 2006, 22:14 »
303
« en: Martes 13 de Junio de 2006, 21:58 »
Adunto te doy códigos de ejemplos VB y Access 97 y 2000 es con DAO 
305
« en: Sábado 20 de Mayo de 2006, 17:21 »
La ruta donde se encuentra el Crystal Report en CD de VB6. D:\Common\Tools\VB\Spanish\crysrept
306
« en: Sábado 20 de Mayo de 2006, 06:54 »
Te adjunto un ejemplo...
307
« en: Sábado 20 de Mayo de 2006, 02:09 »
If FileExists(strFname) Then gstrMsg = "El nombre de ese archivo ya existe en este disco." & vbCrLf & " ¿Desea Grabarlo con este mismo nombre?" gintResponse = MsgBox(gstrMsg, vbQuestion + vbYesNo, gstrAppTitle) If gintResponse = vbYes Then 'Tu código End If End If
Public Function FileExists(sFile As String) As Boolean If sFile = "" Then FileExists = False End If On Error Resume Next FileExists = ((GetAttr(sFile) And vbDirectory) = 0) End Function
308
« en: Martes 16 de Mayo de 2006, 00:00 »
Tienes un problema... La rutina que mostraste: Function ChangeColor() Dim ctl As Control For Each ctl In Me If ctl.ControlType = acTextBox Then ctl.BackColor = vbWhite End If Next ctl Me.ActiveControl.BackColor = vbYellow End Function
Es correcta en principio, solo que el problema es de donde la vas a llamar, por ejemplo si la llamas desde un control que no sea de texto, ese control tomará el foco y será el activo de esa forma y te marcará el error "Run-Time error '438': El objeto no soporta la propiedad o metodo." Así que mi sugerencia sigue en pie, aunque tengas que colocar el código en los 15 cuadros de texto. 
309
« en: Lunes 15 de Mayo de 2006, 17:12 »
Un mejor método es colocar el cambio de color en los eventos GotFocus y LostFocus, por ejemplo: Private Sub Text1_GotFocus() Text1.BackColor = &HC0FFFF End Sub Private Sub Text1_LostFocus() Text1.BackColor = &H80000005 End Sub
310
« en: Lunes 1 de Mayo de 2006, 22:40 »
Si Siglas es cadena de texto debes de escribir la cadena de SQL así Sql = "Select * From Estacion Where Siglas = '" & Siglas & "'"
311
« en: Sábado 22 de Abril de 2006, 00:56 »
312
« en: Martes 18 de Abril de 2006, 00:06 »
Con respecto a lo que menciona X.Cyclop Si tu aplicación es shareware, tienes que pagar una licencia a Microsoft. No hay en la licencia de VB alguna anotación al respecto. Si deseas obtener la información de toda la licencia, localiza en el CD ROM de VB el archivo de texto con el nombre de 'eula.txt'. Debes de tomar en cuenta que una cosa es la licencia de uso del VB y otra cosa es lo relativo a distribuir tus aplicaciones y los archivos binarios que la acompañan. Esto último, según lo dice la licencia, es 'libre de regalías (royalties)'.
313
« en: Lunes 17 de Abril de 2006, 16:54 »
La licencia para poder desarrollar software y distribuirlo la obtienes al ser propietario legal de una copia del Visual Basic Profesional, del Visual Basic para Empresas o Visual Basic Estudio. Que yo esté enterado no se requiere de ningún otro trámite.
314
« en: Jueves 13 de Abril de 2006, 05:33 »
En CD-ROM de VB6 el Crystal Report está en la siguiente ruta, es una versión antigua pero funciona. D:\Common\Tools\VB\Spanish\crysrept
315
« en: Lunes 10 de Abril de 2006, 23:58 »
316
« en: Lunes 10 de Abril de 2006, 16:52 »
Es dificíl proponer una rutina sin tener la base de datos original para hacer pruebas, esta otra rutina debiera funcionar: Private Sub Contar() Dim prueba As Database Dim tabla As Recordset Dim strSQL As String Dim strpalabrabuscada As String Dim cuentasistema As Integer strpalabrabuscada = "SISTEMA" Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb") strSQL = "SELECT * FROM maestra where perfilusuario= '*" & strpalabrabuscada & "*'" Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset) tabla.MoveLast cuentasistema = tabla.RecordCount Label31.Caption = cuentasistema tabla.Close prueba.Close End Sub
317
« en: Sábado 8 de Abril de 2006, 01:57 »
No necesitas un subselect, solo se requiere de un AND, por ejemplo: Mensajes_.RecorsdSource = "Select fecha,hora,mensaje from Mensajes where mensaje = '" & Textbox1.text & "' AND (fecha >= #" & Format(fini.Value, "yyyy/mm/dd") & "# AND Fecha <= #" & Format(ffin.Value, "yyyy/mm/dd") & "#)"
318
« en: Jueves 6 de Abril de 2006, 22:09 »
Puedes usar este código en el TextBox: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SSTab1.Tab = 1 'aquí colocas el número de la pestaña End If End Sub
319
« en: Jueves 6 de Abril de 2006, 21:41 »
A su código después del AND les hace falta "AND Fecha <=" Mensajes_.RecorsdSource = "Select fecha,hora,mensaje from Mensajes where fecha >= #" & Format(fini.Value, "yyyy/mm/dd") & "# AND Fecha <= #" & Format(ffin.Value, "yyyy/mm/dd") & "#"
320
« en: Jueves 6 de Abril de 2006, 21:24 »
Te escribí una subrutina que supongo te ayudará en lo que deseas. No la probé, ya que no una base de datos en que basarme, pero espero que funcione cuando la adecues a tu programa. 'strPalabraBuscada = "sistema" o cualquier palabra que desees buscar Sub test(strPalabraBuscada As String) Dim DBPrincipal As Database Dim rstID As Recordset Dim strSQL As String Set DBPrincipal = DBEngine.OpenDatabase("MiDataBase.mdb") strSQL = "SELECT * FROM MiTabla" Set rstID = DBPrincipal.OpenRecordset(strSQL, dbOpenDynaset) rstID.MoveFirst While Not rstID.EOF 'el signo (*) es un comodín, la palabra puede estar en cualquier _ parte del texto del campo a buscar rstID.FindFirst "Micampo='*" & strPalabraBuscada & "*'" If Not rstID.NoMatch Then MsgBox "No encontré " & strPalabraBuscada Else MsgBox "Encontré " & strPalabraBuscada End If rstID.MoveNext Wend rstID.Close DBPrincipal.Close End Sub
322
« en: Lunes 3 de Abril de 2006, 20:42 »
323
« en: Jueves 30 de Marzo de 2006, 05:42 »
En el foro que te dije no está tu pregunta, verifica el foro.
Páginas: 1 ... 11 12 [13] 14 15 ... 26
|
|
|
Mostrar Mensajes
