Mensajes

Hola a todos deso saber como puedo llenar un TDBGrip Pro 8 OLEDB con los datos obtenidos de una consulta SQL (antes usaba el dte y lo unico que tenisa que hacer es decirle a que campo de la tabla corresponde cada columna de la grilla ) pero ahora trabajo con ADO y no se como decirle que me cargue los datos traidos del recorset
intente algo como esto pero no funciona

Código [Seleccionar] Expandir



Dim rsEquipos As New ADODB.Recordset

rsEquipos.Open "SELECT * FROM EQUIPOS", gCnn, adOpenDynamic, adLockOptimistic
If Not (rsEquipos.BOF) And Not (rsEquipos.EOF) Then
    tdbgEquipos.DataSource = rsEquipos
    rsEquipos.MoveFirst
    Do While Not rsEquipos.EOF
        tdbgEquipos.Columns(0).DataField = rsEquipos(0)
        tdbgEquipos.Columns(1).DataField = rsEquipos(1)
        tdbgEquipos.Columns(2).DataField = Trim(rsEquipos(2))
        rsEquipos.MoveNext
    Loop
    tdbgEquipos.Refresh
End If
End Sub


saludos y gracias

Hola sZeus te molesto con una consulta... como hago para pasar de decimal a binario

gracias por tu ayuda

pd muy bueno el codigo para pasar de binario a decimal

Hola Debci aca te paso unos links que tratan sobre el manejo de archivos

http://dieumsnh.qfb.umich.mx/VisualBasic/parte14.htm#FICHEROS%20EN%20VISUAL%20BASIC
http://www.gratisweb.com/mmalicea/comp1120/lec04/manarchivos.htm
http://dieumsnh.qfb.umich.mx/VisualBasic/parte16.htm

saludos

Hola Debci  para leer un archivo linea por linea usa este codigo

Código [Seleccionar] Expandir


ruta = 'aca pone le path del archivo
numero = FreeFile 'este es el numero que identifica a cada archivo
Open ruta For Input As #numero
Do While Not EOF(numero)
       Line Input #numero, variable 'en variable se almacenan c/u de las lineas del archivo

Loop
Close #numero

Para escribir en un archivo usa este codigo

Código [Seleccionar] Expandir



ruta = 'aca pone le path del archivo
numero = FreeFile 'este es el numero que identifica a cada archivo
Open ruta For Append  As #numero
Print #numero, variable 'posee el string que queres escribir
Close #numero



te recomiendo que busques es google hay muchos sitios con ejemplos interesantes
espero que te sea util
saludos

Hola Dessa muchas gracias me funciono d 10 
ademas segui leyendo y ya entendi que hacen HWND_BROADCAST (el mensaje llega a todas las ventanas) y WM_SETTINGCHANGE (sirve para que las ventanas tomen los cambios)

de nuevo gracias
un saludo

hola estuve mirando info sobre SendNotifyMessage Function en la pagina de microsoft http://msdn.microsoft.com/en-us/library/ms644953.aspx  

Código [Seleccionar] Expandir


Private Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA"  (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

hay cosas que no entiendo ejemplo como hago para obtener el Handle (hwnd) del explorer.exe (ya que no es una ventana no puedo usar Find Windows) y que mensaje debo enviar (msg)

saludos

Hola gente gracias por responder....buscando info en la web  mas el aporte de Dessa pude armar este ejemplo... a mi me funciona pruebenlo y me cuentan

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
'desactivar
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", 181, "REG_DWORD"
Set WshShell = Nothing
Check1.Value = 1
Check2.Value = 0
Call KillProcess("explorer.exe")
End Sub


Private Sub Command2_Click()
'activar
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", 145, "REG_DWORD"
Set WshShell = Nothing
Check1.Value = 0
Check2.Value = 1
Call KillProcess("explorer.exe")
End Sub


Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing

ErrHandler:
Err.Clear
End Sub



saludos

1)Puse este tema en vb  por que quiero desactivar y activar el autorun de un pen drive con codigo vb 6 no desde w xp

2) no encuentro la clave HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun  llego hasta policies pero esta vacia

3)Puede ser que existe una api que me permita actualizar el registro?? me parece que en algun foro lei algo pero no me acuerdo donde jeje
alguien sabe cual es y si actualisando el registro me evito reiniciar el explorer


saludos

Hola a todos estoy tratando de desactivar y activar el autorun de un pen drive
basicamente lo que quiero hacer es que cuando mi progama este funcionando modificar el registro (o lo que sea ) para que al insertar un pen no funcione el autorun... luego cuando cierro mi programa activar el autorun
el problema es que no se que registro ni que parametros modificar ni como     

agradezco toda ayuda
saludos

Hola a todos tengo un problema no encuentro la forma de desabilitar los botones max button, min button y control box de un formulario MDI y no encuentro estas propiedades en la ventana de propiedades del formulario probe con este codigo y como lo suponia da error

Código [Seleccionar] Expandir


MDIForm1.MaxButton = False
MDIForm1.MinButton = False
MDIForm1.ControlBox = False

en los formularios hijos (propiedad MDIChild = true) los puedo desabilitar  pero en el mdi principal no    se puede hacer lo que yo pido o estos botones no se pueden desabillitar en el mdi principal???

alguna idea 

muchas gracias
saludos