• Martes 7 de Mayo de 2024, 23:43

Mostrar Mensajes

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 - Jrtuarez

Páginas: [1]
1
MS Access / Re: Seguridades de acces
« en: Sábado 7 de Diciembre de 2002, 02:51 »
como ago para romper las seguridades del acces con archivos de sistema mdw si si alguien tiene la respuesta digame estoy intentando desde visual basic conprovando todas las posibilidades pero si alguien tiene una forma mas rapida que me diga por favor

2
Visual Basic 6.0 e inferiores / Re: Solo pa' gente pila
« en: Sábado 7 de Diciembre de 2002, 02:21 »
nececito un algoritmo para poder abrir una base de datos de acces con archivo de sistemas Mdw, pero sabiendo el usuario pero no la contraseña. y se me ha ocurrido hacer un algoritmo para provar todas las convinaciones me que me dicen se podra burlar? o me dan una idea de como desarrollar el algoritmo?

3
No te aconsejo que aprendas dao es una perdida de tiempo, ademas de ser una conexion algo inestable para base de datos grandes ademas ado se ajusta a los estandares de base de datos

solo debes de aprender algo de SQL bajate un manual es sencillo



debes acer una conexxion tipo ado algo asi:

Dim base As New ADODB.Connection
Dim tabla As ADODB.Recordset

Private Sub Elimina_Click()
'command
'base.Execute "delete from Tabla" ' elimina registros
base.Execute "drop table Tabla" 'elimina tabla
End Sub

Private Sub Form_Load()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents

and Settingslab1-3Mis documentosejemplo.mdb;Persist Security

Info=False"

End Sub

Private Sub Form_Unload(Cancel As Integer)
base.Close
End Sub

suerte:)

4
Visual Basic 6.0 e inferiores / Re: Buscar datos en una base DAO
« en: Martes 26 de Noviembre de 2002, 17:19 »
si es que estas usando un un control data puedes hacer hacer lo siguiente

d.RecordSource = "select * from histousuario where fecha =cdate('30/10/2002')"

'esto es un sql muy basico

d.Refresh 'esto es para actualizar

Tienes que enlazar los cuadros de texto previamente. y si utiliza codigo ado o en el data grid  entonces al momento de abrir la tabla en vez de poner el nombre de la tabla pone la consulta sql.

5
Visual Basic 6.0 e inferiores / Ayuda DataGrid
« en: Martes 26 de Noviembre de 2002, 16:19 »
puedes acer para buscar con un sql
select *from tabla where sexo='M'
dependiendo del sexo y lo de pasarlo a word en realidad solo acceso a internet en la universidad y mis ejemplos los tengo en la casa y soy muy olvidadiso

te recomiendo no usar dao usa ado es mucho mas eficiente

6
Visual Basic 6.0 e inferiores / control remoto, visual basic
« en: Martes 26 de Noviembre de 2002, 15:34 »
Hola puedes hacer conexiones remotas con el control winsock que lo encuentras en microsoft winsock control 6.0, y para conectarte a una base de datos de sql solo nececitas hacer una coneccion utilizando ado deje un ejemplo de este tipo de conecciones en donde dice modulos y ado pero es para una base de access para SQL es mucho mas sencillo porque solo pones el nombre del servidor SQL tu base y password, opcionalmente podrias usar un remote data control, espero te sirva.

7
Visual Basic 6.0 e inferiores / Sólo para Expertos, es urgente!!!
« en: Martes 26 de Noviembre de 2002, 15:06 »
amigo prueba con esta api a mi me gusta mucho!!!
los formularios se creen hijos del mdi aparecen en la barra de tarea y cuando
minimizaz el formulario padre todos se unifican es muy elegante

#If Win32 Then
Declare Function SetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
#Else
Declare Function SetWindowWord Lib "User" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer
#End If


 asi es como se usuaria comunmente en el evento de carga:

If SetWindowWord(hwnd, -8, MDIForm1.hwnd) Then
End If

es mas elegante aun cuando los mandas al system tray, espero te sirva.

8
Visual Basic 6.0 e inferiores / Módulo y Ado
« en: Lunes 25 de Noviembre de 2002, 16:45 »
PUEDES DECLARAR UNA  VARIABLE DE TIPOS ADO GLOBAL PARA HACERTE REFERENCIA A TU CONECCION Y PUEDES PONER TODOS TUS RUTINAS EN LOS MODULO SERIA MEJOR SI UTILISAS MODULOS DE CLASE Y ES MAS ELEGANTE LA PROGRAMACION ES ALGO ASI:

Dim base As New ADODB.Connection
Dim tabla As New ADODB.Recordset

'ESTO VA EN EL MODULO

Private Sub Elimina_Click()
'command
'base.Execute "delete from Tabla" ' elimina registros
base.Execute "drop table Tabla" 'elimina tabla
End Sub

Private Sub MAIN()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingslab1-3Mis documentosejemplo.mdb;Persist Security Info=False"
FORM1.SHOW
End Sub


'ESTO ES DE TU FORM PRINCIPAL
Private Sub Form_Unload(Cancel As Integer)
base.Close
End Sub

'POR CIERTO PUEDES UTILIZAR TODOS LAS SENTENCIAS SQL QUE QUIERAS ES MUY FLEXCIBLE SUERTE

9
Visual Basic 6.0 e inferiores / Abrir en una base de acces com mdw
« en: Lunes 25 de Noviembre de 2002, 16:17 »
mi problema no es la contraseña de la base datos sino la contraseña del usuario administrador que soy yo. y no he encontrado nada hasta la vez en internet, demen por favor una solucoin o una pagina que me ayude.

10
Visual Basic 6.0 e inferiores / Como eliminar todos los registros de una tabla?
« en: Lunes 25 de Noviembre de 2002, 15:52 »
debes acer una conexxion tipo ado algo asi:

Dim base As New ADODB.Connection
Dim tabla As ADODB.Recordset

Private Sub Elimina_Click()
'command
'base.Execute "delete from Tabla" ' elimina registros
base.Execute "drop table Tabla" 'elimina tabla
End Sub

Private Sub Form_Load()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and Settingslab1-3Mis documentosejemplo.mdb;Persist Security Info=False"

End Sub

Private Sub Form_Unload(Cancel As Integer)
base.Close
End Sub
:D

11
Visual Basic 6.0 e inferiores / Re: Abrir en una base de acces com mdw
« en: Viernes 22 de Noviembre de 2002, 02:52 »
Mi problema es abrir la base de datos cuando  tengo el usuario y no tengo el password que por un motivo se me perdio y tengo datos importantes de mi trabajo hay que puedo hacer????????????????????????????????????????????????????????????????????????????????????????

Páginas: [1]