Hola, juega con la propiedad "borderstyle" del formulario.
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ú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
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
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")
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!
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
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..??
sendkey = "nash"
Cita de: BlackZeroX en 12 Agosto 2009, 01:38 AM
Aùn asi hay ip's en una LAN
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