Consultas En Sql delphi 7 con Base de Datos access

[luisraad]

Empezado por Caral

Hola
No entiendo como un profesor le dice a sus alumnos que programen así, no lo entiendo.
Esto no creo que sea la manera de iniciarse en delphi, no lo creo.
Saludos

bueno acabo de ver un foro con lo del tema LIKE y lo que vi fue esto:

Código Delphi [-]
'select clientes.nombre from clientes Where Nombres like'+ quotedstr('%'+edit2.text+'%');

lo hize bien???

[[Caral]]

Hola
Depende.
Algunas BD lo aceptan otras no.
En access es algo diferente:

Código SQL [-]
'select clientes.nombre from clientes Where Nombres Like '''+ Edit2.Text + '*'''

Como ves no uso quotedstr para nada.
Osea, si quieres lo usas, si no, no.
Hay muchas maneras de hacer las cosas, todo depende del novato que te las explique.
Saludos

[luisraad]

Empezado por Caral

Hola
Depende.
Algunas BD lo aceptan otras no.
En access es algo diferente:
Código SQL [-]'select clientes.nombre from clientes Where Nombres Like '''+ Edit2.Text + '*'''

Como ves no uso quotedstr para nada.
Osea, si quieres lo usas, si no, no.
Hay muchas maneras de hacer las cosas, todo depende del novato que te las explique.
Saludos

ok gracias por el aporte

entonces aplicando este tipo de consultas con parametros como quedaria ??
gracias de antemano

[[Caral]]

Hola
Me imagino que algo asi:

Código Delphi [-]
begin
adoquery1.sql.Text:= 'select clientes.nombre from clientes Where Nombres Like :luisraad';
adoquery1.Parameters[0].Value:= ''+ Edit2.Text + '*''';
adoquery1.open:= true;
end;

Saludos

[luisraad]

hola

vamos con otra consulta mas compleja
dada la situacion tengo una BD llamada biblioteca en dicha BD hay 3 tablas

tabla1=suscriptor
tabla2=libro
tabla3=prestamo

en la tabla1 hay los siguientes campos:
cod nombre direccion

en la tabla2
codlib nombrelib autor descripcion

en la tabla3
cod nombre nombrelib cantprest

dada la sircustancia la aplicacion caturará los datos del codigo del suscriptor, el codigo del libro o el nombre del libro... estos datos seran guardados en la tabla prestamo supongamos que ya hay registros en las tablas 1 y 2


condicion: cuando el suscrptor haya pedido tres libros el programa arroje un mensaje que diga no puede tener mas prestamos...

tengo algo hecho pero no se entiende tengo unos edit donde capturo esa informacion en el edit1 cpturo el codigo, en el edit2 capturo el nombre y en el edit3 el codigo del libro... ((no viene al caso que lo diga pero es para una guia..))

saludos

[luisraad]

aqui hay una muestra pero esta muy enrredada lo que uqiero hacer es mas sensillo

Código Delphi [-]
  begin
if(suiComboBox1.Text='') or (suiComboBox1.Text='Seleccione Número de Identificación')then
   begin
    showmessage('DEBE DIGITAR EL NUMERO DE IDENTIFICACION DEL USUARIO');
    suiComboBox1.SetFocus;
   end
  else
   begin
    if(suiedit3.Text='')then
     begin
      showmessage('DEBE DIGITAR EL CODIGO DEL LIBRO');
      suiedit5.SetFocus;
     end
    else
     begin
            consulta:=suiedit1.text;


                    table1.TableName:='prestamo';
                    table1.open;
                    if not table1.Locate('idprestamo',consulta, []) then
                     begin
                      table1.insert;
                      if(suiComboBox1.Text<>'')then
                       begin
                        table1.fieldbyname('cod_libro').Asstring:=(suiedit3.text);
                          table1.fieldbyname('documento_usuario').Asstring:=(suicombobox1.text);
                           table1.fieldbyname('idprestamo').Asstring:=(suiedit1.text);
                        table1.fieldbyname('fecha').AsDateTime:=(datetimepicker1.Date);
                        Table1.FieldByName('estado').AsString:=(ESTADO1.text);



                      table1.Post;
                      table1.Close;



                        //abriendo tabla 2///
                         table2.open;
                         table2.insert;
                          if (ESTADO1.Text='ABIERTO')then
                          begin
                           table2.fieldbyname('cod_libro').Asstring:=(suiedit3.text);
                           table2.fieldbyname('idprestamo').Asstring:=(suiedit1.text);

                                                                                                     begin

consulta:='select prestamo.idprestamo, from prestamo where idprestamo >=4';
if (consulta>='4') then
begin
  ShowMessage('No Puede Ingresar Mas Prestamos Para Este Usuario');
  end
  else

                      table2.Post;
                      table2.Close;
                      
                        





                       Application.MessageBox('TODOS LOS DATOS HAN SIDO ALMACENADOS SATISFACTORIAMENTE','SIBIBLIO',MB_OK);




                      suiedit1.Clear;
                      suiedit3.Clear;
                      suiComboBox1.Text:='Seleccione Número de Identificación';
                      suiedit5.Clear;
                      suiedit5.SetFocus;
                      end;
                      end;

                    end;
                 end;
               end;
             end;
              end;

veo que mezclan 2 tablas etc... ((no es tarea, es solo que quiero aprender una forma diferente y mas sensilla)).

saludos

[[oscarac]]

hola Luisraad

segun las reglas del foro dice que a nua nueva pregunta es mucho mas conveniente colocar nu nuevo hilo o pregunta..