Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - cassiani

#221
Hola, juega con la propiedad "borderstyle" del formulario.
#222
declaraste "sql" en algun lado? es una variable local o global? insisto con lo del option explicit, nunca le estas pasando parámetros a tu rutina.

lo puedes pasar como parametro:
CitarPrivate Sub Form_Load()
Call Conectar
sql = "Select * from socios order by id"
Call reload(sql) <--
End Sub

Private Sub reload(Byval sql as string) <--
Set RST = New ADODB.Recordset
RST.Open sql, CN
Set grilla.Recordset = RST '
grilla.Refresh
End Sub

o declarandolo como global dentro del formulario
Citar
dim sql as string <--
Private Sub Form_Load()
Call Conectar
sql = "Select * from socios order by id"
Call reload()
End Sub

Private Sub reload()
Set RST = New ADODB.Recordset
RST.Open sql, CN
Set grilla.Recordset = RST '
grilla.Refresh
End Sub

saludos!!
#223
Programación Visual Basic / Re: Duda If
24 Agosto 2009, 22:29 PM
también lo puedes hacer asi:

Function IsDirectory(sPath As String) As String
On Error GoTo sError
   If (GetAttr(sPath) And vbDirectory) = vbDirectory Then _
       IsDirectory = "Se ha enacontrado el directorio."
   Exit Function
sError:
   IsDirectory = "No se ha encontrado el directorio"
   Err = 0
End Function

MsgBox IsDirectory("c:\carpeta")
#224
ah bueno, lo que pasa por no hacer uso del "option explicit" ...... pero ellos creen que es broma xDD
#225
Cita de: ka0s en 23 Agosto 2009, 05:26 AM
La verdad seba123neo que no encontré cual era el que me dijiste.
Si me pudieras orientar o decirme que parte del código modificar sería útil.

Como asi también algun manual donde explique de 0 el manejo de base de datos ADO, pasandole consultas SQL sencillas como para lo que quiero hacer. Un LOGIN.

Desde ya muchas gracias

Saludos!

y donde buscaste? acá han consultado eso cantidades de veces...
Citar*http://www.elguille.info/vb/ejemplos/ADO_sin_datacontrol.htm

Citar*http://foro.elhacker.net/programacion_vb/condicional_para_elegir_formulario_con_bd-t263791.0.html;msg1286482#msg1286482
#226
Karcrack, era justo lo que iba a escribir :P
#227
Citaral timer lo tengo q dejar en true i con interval de 1000??

Private Sub Timer1_Timer()
sendkey = "nash"
End Sub

como hago para q no se vea lo puedo poner el from en oculto i listo?? y me va a tirar eso cuadno este usando el word..??

Hola N@5h !

- 1.
sendkey = "nash"
sin el "=".
- 2. 1000 es equivalente a 1 segundo, haste una idea.
- 3. debes sacar el handle de la ventana, la buscas le das foco y le envias la cadena.
#229
Foro Libre / Re: ¿ Que regalan ustedes ?
12 Agosto 2009, 01:18 AM
Cita de: Hadess_inf en 10 Agosto 2009, 22:04 PM
[quote author=nsigned link=topic=263774.msg1286590#msg1286590 date=1249926003]
algunas te dicen "aahh...que tierno!" y otras simplemente se me cagaron de risa en la cara  :xD

Ajajaja, que comico ..^^'.
Leccion 1 : Nunca regales una carta a una chica.
[/quote]

completamente de acuerdo ..........  :silbar:
#230
si está en LAN, no! por lo menos, con quake3 y aoe2 no es así....