Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Conexión con bases de datos
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read

Conexión con bases de datos

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 07/07/2006
federiconqn21's Avatar
federiconqn21 federiconqn21 is offline
Miembro
 
Join Date: Dec 2005
Posts: 95
Poder: 21
federiconqn21 Va por buen camino
Necesito crear un permiso para escribir pero no para leer

Hola a todos.Mi problema es el siguiente
tengo una base de datos Interbase,y hay una tabla en particular,a la que quiero crearle un permiso de escritura pero no de lectura.Concretamente es la tabla donde guardo el detalle de la recaudacion.entonces tengo empleados que tienen que escribir en ella,pero NO deben verla.Bien Lo que hice fue lo siguiente.
Código SQL [-]
GRANT INSERT ON MI_TABLA TO "USUARIO1"
donde USUARIO1 es el nombre de usuario al que le doy el permiso.
Ahora bien,mi problema se presenta cuando este usuario quiere escribir en la tabla MI_TABLA,pues previamente debe ejecutar la operacion
Código Delphi [-]
MI_TABLA.Open
y para ejecutar la operacion de Open,el usuario debe tener el permiso SELECT.Per Con este permiso tambien puede ver los datos de MI_TABLA
que puedo hacer?
agradecere a quien me pueda acesorar en esto,pues es lo que me falta para terminar mi aplicacion.
Salu2

Last edited by federiconqn21 : 07/07/2006 at 16:51.
Reply With Quote
  #2  
Old 07/07/2006
nemesio nemesio is offline
Miembro
 
Join Date: Nov 2005
Location: Isla de Margarita, Venezuela
Posts: 377
Poder: 21
nemesio Va por buen camino
Pero si lo haces en el sistema, puedes programar que cuando haga el Open, no se vea la información por pantalla. Ese open será como si no existiera para el usuario.
Reply With Quote
  #3  
Old 07/07/2006
federiconqn21's Avatar
federiconqn21 federiconqn21 is offline
Miembro
 
Join Date: Dec 2005
Posts: 95
Poder: 21
federiconqn21 Va por buen camino
hola. y como haria eso?
gracias por tu respuesta
Reply With Quote
  #4  
Old 07/07/2006
Lepe's Avatar
[Lepe] Lepe is offline
Miembro Premium
 
Join Date: May 2003
Posts: 7,424
Poder: 31
Lepe Va por buen camino
En realidad no tienes por qué usar un tabla.Open.

Puedes usar controles no data-aware, es decir, un simple Edit donde escribe las recaudaciones, despues en una consulta pones algo así:

Código Delphi [-]

query1.sql.Text := ' INSERT INTO MI_TABLA (CAMPO1, CAMPO2) '+ 
                           'VALUES (: pr1, : pr2);';
// pr1 significa "parametro 1" 
query1.paramsbyname('pr1').AsXXX := 'lo que sea';
query1.paramsbyname('pr2').AsXXX := 'lo que sea 2';
query1.ExecSql;

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Reply With Quote
  #5  
Old 07/07/2006
aledieb aledieb is offline
Miembro
 
Join Date: Jun 2005
Location: Buenos Aires, Argentina
Posts: 147
Poder: 22
aledieb Va por buen camino
Por que no usas la instrucción de insert con un query sin abrir la tabla:

Código Delphi [-]
query1.sql.add('Insert into tutabla (campo1,campo2, campo3)');
query1.sql.add('values (valor1, valor2, valor3)');
query1.ExecSQL;
__________________
Suerte
Alejandro
Reply With Quote
  #6  
Old 07/07/2006
nemesio nemesio is offline
Miembro
 
Join Date: Nov 2005
Location: Isla de Margarita, Venezuela
Posts: 377
Poder: 21
nemesio Va por buen camino
A lo que me refiero es que si tu eres el programador, el programa lo conoces tu y si haces consultas o no, el usuario no se va a enterar. El usuario solo ve lo que tu mandas a mostrar por pantalla.
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Necesito un Sugerencias para Crear Indices AGAG4 Firebird e Interbase 1 10/04/2006 17:24
Permisos para escribir en Pen drive Casimiro Noteví Linux 2 04/03/2005 10:45
necesito ayuda para hacer un sistema para un billar rober Varios 14 29/07/2004 01:08
Permiso de usuarios en nt para interbase jzginez Firebird e Interbase 7 19/10/2003 22:57
Ayuda con el Microsoft Help Workshop para crear las ayudas para aplicaciones en Delph Lester Varios 2 19/06/2003 17:14


All times are GMT +2. The time now is 02:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi