|
|
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 - Angel38
Páginas: 1 ... 27 28 [29] 30 31
701
« en: Miércoles 22 de Febrero de 2006, 16:04 »
hola amigos, si otraaaaa vez yo.  La pregunta es la siguiente: Tengo en mi bd los campos: Nombres, apellidos, direccion,telefono, celular y tengo 5 labels, ahora la pregunta es: ¿Como hago para ingresar los campos en los labels pero de forma aleatoria? es decir que cada vez que haga click en un boton, estos cambien de labels. Huy  Creo que no me di a entender. Bueno alguna cosa lo explico mejor. Gracias
702
« en: Miércoles 22 de Febrero de 2006, 15:49 »
Gracias por la ayuda, encontre otra forma de hacerlo con las Librerias.  'declarada en General private declare sub Sleep lib"Kernel32" (byval Milisegundos as long) luego antes de cambiar el label hago esto en el formulario. Label1.caption="Hola" doevents Sleep 300 label1.caption="Que tal" Gracias por la info. del timer asi tengo dos formas diferentes de hacerlo. 
703
« en: Lunes 20 de Febrero de 2006, 18:14 »
Hola amigos. La pregunta que tengo es la siguiente:  tengo este label en el momento cargarse el formulario. label1.caption="Bienvenido" Como hago para que despues de 3 segundos ese mismo label muestre una frase diferente como: "Elija la Opción que necesite" Muchas gracias, espero que sea de su total comprensión.
704
« en: Jueves 16 de Febrero de 2006, 13:57 »
Mmmm....
La verdad es que no conozco ese tipo de error pero tal vez, repito tal vez puedas hacerlo colocando el nombre del frame.
Asi
Private Sub Form_Load()
For i = 1 To 9
frame1.Combo1.AddItem Choose(i, 1, 2, 3, 4, 5, 6, 7, 8, 9)
Next
End Sub
No se si sirva, escribeme para saber como te fue
705
« en: Miércoles 15 de Febrero de 2006, 19:45 »
Bueno sino hablamos antes que me haya ido, y ves esta respuesta habra sido suerte, creo que lo unico que necesitas para que todos los clientes se muestres es que a al Instruccion de sql le quites el condicional C.idcliente= '"+ Codigo +"' con esto ya estarás generalizando la instruccion. Suerte me debes las 
706
« en: Miércoles 15 de Febrero de 2006, 19:31 »
Bueno lo primero que tienes que hacer, es tomar esto y lo creas aca, y luego mandas al reporte, listo ya? Ok. Ahora tienes que crear asi, luego debes midificar eso, que tienes ahi, y por ultimo llevalo hasta alla y listo. Me entendiste, que bueno que te pude ayudar, suerte.
707
« en: Miércoles 15 de Febrero de 2006, 16:58 »
Un naranajo, y yo buscando castillos por internet  Ok. Ya que nadie supo la del borracho, pues era la cosa mas facil de este mundo, le pillaron la mentira porque en los polos no existen agentes contaminantes como los virus y por eso no pudo contagiarse de gripa. Ves que era facil. 
708
« en: Lunes 13 de Febrero de 2006, 16:27 »
Debes crearle un recorset al datareport, asi no lo utilices. Fue la unica solucion que le di. 
709
« en: Viernes 10 de Febrero de 2006, 19:44 »
Si eres programador ni se te ocurra tener una novia que estudie Ingenieria de Sistemas o programación, cometi ese error y ahora soy quien le tiene que hacer los programas porque no sabe ni papa. Oh! cruel destino. Que hice en mi pasada vida para cargar este Karma
710
« en: Viernes 10 de Febrero de 2006, 19:32 »
Que casi no me la pillo Bueno el primero es un enano que no sabe que existen unas varitas que se pueden encoger y llevar facilmente para alcanzar el boton del 10º piso. El tercero me acorde de un chiste asi que pueden ser dos los animales. El gato porque es gato y araña  O la prima de un amigo mio. que es zorra y cobra Y la segunda no se que sera, puede ser un campo lleno de girasoles u los petalos sean las damas, pero es muy rebuscado para ser cierto. Y mi refran es: Árbol que nace torcido, sirve para columpio 
711
« en: Jueves 9 de Febrero de 2006, 18:24 »
Al fin Widark no adivinaste JAJAJAJA  Oye Widark tu las respondes todas se nota que piensas, pero no he visto ninguna tuya. Coloca una para ver si eres tan bueno respondiendolas como creandolas. No han respondido la segunda adivinanza, ni se acercaron. La respondo dentro de 3 dias, si nadie da con la respuesta. Chao. Me caes bien Widark, tienes cabeza fria para pensar en las cosas antes de responder. Por ahi dicen que un sabio no dice todo lo que piensa pero si piensa todo lo que dice. 
712
« en: Miércoles 8 de Febrero de 2006, 19:03 »
Entra un apostador a una pelea de gallos, como viejo zorro que era busco a la persona mas inocente para preguntar cual seria el gallo ganador.
vio un niño que estaba sentado y le preguntó, mira niño te regalo un dulce si me dices cual de esos dos gallos es el bueno.
El niño cogiendo el dulce dijo ¡el gallo blanco!
El tipo apostó 5.000 dolares al gallo blanco.
se sentó a ver la pelea y en el momento que soltaron los gallos el negro en enos de un segundo matá al gallo negro.
el tipo enfurecido agarra al niño y le dice mira niño, no me dijiste que el gallo blanco era el bueno???
Y el niño le responde, si es que el gallo blanco era el bueno, el gallo negro es un desgraciado asesino.
713
« en: Miércoles 8 de Febrero de 2006, 18:53 »
Bueno me salieron inteligentes. y el foro a dado de que hablar me gusta. otras tres para que se distraigan. 1- Que pasa si un elefante se para sobre una pata. 2- Un tipo en una cantina estaba tomando y empezó a contar que habia viajado a africa y sin importar el dolor de cabeza que tenia, mató a un león. fue a el amazonas y sin importar que se habia fracturado un brazo, mató a un cocodrilo. que fue al polo norte y sin importar la virosis de gripa que habia cogido allá mató a un oso polar. Una persona que lo escuchaba le dijo que todo era mentira. y en efecto asi era. la pregunta es:¿porque supo que era mentira esa persona? 3- Entre, Nadie y Ninguno estaban construyendo una casa, cuando la terminaron, Nadie salió por la puerta y Ninguno por la ventana. ¿Quien quedó dentro de la casa?
714
« en: Miércoles 8 de Febrero de 2006, 18:34 »
Hola fgimenez pues creo que al final de hacer todas las operacioenes, debes cerrar el recordset asi: recordset.close
Un ejemplo para que te guies utilizando dos campos de los que pediste.
sub command1_click()
datagrid.Col = 0
datagrid.Row = 0
datagrid.Text = "fecha"
datagrid.CellBackColor = &HE0E0E0
datagrid.Col = 1
datagrid.Text = "hora"
datagrid.CellBackColor = &HE0E0E0
datagrid.Col = 0
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset
conexion.Open "Mi base de datos"
SQL = "select fecha, hora from Tabla"
registro.Open SQL, conexion
i = 1
Do While Not registro.EOF
datagrid.Col = 0
datagrid.Row = 0
datagrid.Text = "fecha"
datagrid.CellBackColor = &HE0E0E0
datagrid.Col = 1
datagrid.Text = "hora"
datagrid.CellBackColor = &HE0E0E0
datagrid.Col = 0
datagrid.Rows = i
texto = registro!fecha + Chr(9) + registro!hora + Chr(9)
datagrid.AddItem texto, i
registro.MoveNext
i = i + 1
Loop
conexion.close
registro.close
end sub
Espero que entiendas y que te sirva para lo que quieres, no dudes en pedir alguna explicacion sobre el codigo.
715
« en: Martes 7 de Febrero de 2006, 18:21 »
Hola y gracias por el interés. cp mario fue el unico que me ha entendido lo que quise pedir, espero haya alguien que tenga alguna solucion para este planteamiento.
716
« en: Lunes 6 de Febrero de 2006, 18:41 »
Hola amigos de este util foro.
Necesito saber si se puede buscar la informacion de una BD Access 97 con DAO pero segun la semana. Ejm:
los nombres de las personas que se registraron la semana pasada. Sin necesidad que colocar un condicional Between o fechas.
717
« en: Viernes 3 de Febrero de 2006, 19:34 »
Gracias ebolo
Pero la solucion fue mas sencilla, me la dijo otro compañero llamado Ibito de este mismo foro.
Lo unico que tenia que hacer era que el formato hh:mm:ss los colocara entre comillas simples asi 'hh:mm:ss'
Gracias por su ayuda.
La pregunta anterior aun no esta muy clara asi que me gustaria su ayuda.
La de Msflexgrid y datareport.
718
« en: Viernes 3 de Febrero de 2006, 18:35 »
Hola amigos de solocodigo, gente inteligente, buena, amable,bella  Tengo un problema con una instruccion SQL. El codigo es este: Set conexion = New ADODB.Connection Set registro = New ADODB.Recordset conexion.Open "Cadena_de_Coneccion" SQL = "select Format(TimeValue(Hora1) - TimeValue(Hora2),"hh:mm:ss") as Duracion from Tabla_horas where Usuario = '" + 1 + "' " registro.Open SQL, conexion 'En esta instruccion resto dos tiempos, cuando le doy ejecutar me dice (Error se esperaba fin de la instruccion) le digo esta bien señor Visual, y le borro las comilla al formato hh:mm:ss, luego de ello me aparece otro error (missing operator )in query expresion. Y hay si que me quede bruto  Creo que el error está en el formato hh:mm:ss, amigos, alguno sabe si se le debe colocar un caracter especial o estoy haciendo algo mal. Gracias por agunatar mi exceso de jodedera 
719
« en: Viernes 3 de Febrero de 2006, 16:52 »
Hola amigos de Solocodigo. Quisiera enviar los datos desde un MSflexgrid a un datareport. Una pregunta sencilla pero complicada. Agradezco su atencion. 
720
« en: Jueves 2 de Febrero de 2006, 18:19 »
Otra cosa fijate que el textbox esta en el evento KeyUp
721
« en: Jueves 2 de Febrero de 2006, 18:16 »
Se me paso un errorsito estaba a la carrera, intenta estudiarlo otra vez a ver si lo entiendes mejor.(Olvidate de lo primero y mira este). Trabajas con DAO o ADO??? Private Sub txtBuscar_KeyUp(KeyCode As Integer, Shift As Integer) Dim SQL As String Dim mySnap As Recordset On Error GoTo ManejoError gri.Clear SQL = "select Nombres, Apellidos from CLIENTE where str(codigo_cliente)='" + codigo + "' and Nombre like '" + txtBuscar + "*' " 'Espero te des cuenta del * en (Nombre like '" + txtBuscar + "(*)' ") 'Es la pieza clave de la instruccion SQL Set mySnap = Dbcliente.OpenRecordset(SQL, dbOpenSnapshot) mySnap.MoveFirst i = 1 Do While Not mySnap.EOF gri.Text = "Nombres" gri.CellBackColor = &HE0E0E0 gri.Col = 1 gri.Text = "Apellidos" gri.CellBackColor = &HE0E0E0 gri.Col = 0 gri.Rows = i texto = mySnap!nombre + Chr(9) + mySnap!Apellidos + Chr(9) gri.AddItem texto, i mySnap.MoveNext i = i + 1 If txtBuscar.Text = "" Then gri.Clear End If Loop ManejoError: gri.Text = "Nombres" gri.CellBackColor = &HE0E0E0 gri.Col = 1 gri.Text = "Apellidos" gri.CellBackColor = &HE0E0E0 gri.Col = 0 Exit Sub
722
« en: Jueves 2 de Febrero de 2006, 18:06 »
 Pues esa era la ayuda que necesitaba. Colocaba MSFlexGrid1.ColWidth = 2200 sin el parentesis. Ahora se que esta es la forma MSFlexGrid1.ColWidth(1) = 2200 Otra vez gracias y suerte. 
723
« en: Miércoles 1 de Febrero de 2006, 18:21 »
Hola Neorent. Te envio una busqueda inteligente para que la estudies y la adaptes, no es lo que quieres especificamente pero tal vez te de una idea o quien sabe, tal vez te parezca mejor Private Sub txtBuscar_KeyUp(KeyCode As Integer, Shift As Integer) Dim SQL As String Dim mySnap As Recordset On Error GoTo ManejoError gri.Clear SQL = "select Nombres, Apellidos from CLIENTE where str(id_vendedor)='" + Str(Codigo) + "' and Nombres like '" + txtBuscar + "*' " 'Espero te des cuenta del * en (Nombres like '" + txtBuscar + "(*)' ") 'Es la pieza clave de la instruccion SQL Set mySnap = Dbcliente.OpenRecordset(SQL, dbOpenSnapshot) mySnap.MoveFirst i = 1 Do While Not mySnap.EOF gri.Text = "Nombres" gri.CellBackColor = &HE0E0E0 gri.Col = 1 gri.Text = "Apellidos" gri.CellBackColor = &HE0E0E0 gri.Col = 0 gri.Rows = i texto = mySnap!nombres + Chr(9) + mySnap!Apellidos + Chr(9) gri.AddItem texto, i mySnap.MoveNext i = i + 1 If txtBuscar.Text = "" Then griClientes.Clear End If Loop ManejoError: griClientes.Text = "Nombres" griClientes.CellBackColor = &HE0E0E0 griClientes.Col = 1 griClientes.Text = "Apellidos" griClientes.CellBackColor = &HE0E0E0 griClientes.Col = 0 Exit Sub 'Este es una busqueda desde un textbox con un MSflexGrid el cual al introducir 'una letra enseguida se llena el grid con los nombres que comiencen por 'esa letra 'Nota: Esta en DAO pero lo puedes adaptar
724
« en: Miércoles 1 de Febrero de 2006, 16:22 »
Hola gente linda de este foro Tengo un pequeñisimos problemita con el el MSflexGrid, y es que no puedo darle el tamaño adecuado a las celdas que quiero que lleven un titulo. 'Proceso para cargar el Msflexgrid1 Private Sub Form_Load() Msflexgrid1.Col = 0 Msflexgrid1.Row = 0 Msflexgrid1.Text = "Lección" Msflexgrid1.CellBackColor = &HE0E0E0 Msflexgrid1.Col = 1 Msflexgrid1.Text = "Número de veces Realizada" Msflexgrid1.CellBackColor = &HE0E0E0 Msflexgrid1.Col = 0 End Sub El problema está en "Número de veces Realizada" quiero aumentar el tamaño de esa celda y no encuentro como pues cuando lo compilo no me muestra todo el enunciado Es la primera vez que escribo algo tan grande en este control y no le habia prestado atención a ese problema y ahora no tengo tiempo, le agradeceria a la persona que me diga como hacer eso o de algun manual que me pueda suministrar.
725
« en: Lunes 30 de Enero de 2006, 18:44 »
O es que no tienen sentido del humor los usuarios de solocodigo o es que el humor esta mandado a recoger??? Animense lo peor que les puede pasar es que la gente se ria de sus chistes  a un momento, esa es la idea Ok. Ahi va otro. Un borrachit iba por la calle gritando. ¡Dios mio que me trague la tierra!, ¡Dios mio que me trague la tierra! En eso que se cae en un hueco e inmediatamente grita (quitandosele la borrachera al instante) ¡DIOS MIO NO CREAS EN PALABRA DE BORRACHO!
Páginas: 1 ... 27 28 [29] 30 31
|
|
|
Mostrar Mensajes
