Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-12-2004
Avatar de rolando_s
rolando_s rolando_s is offline
Miembro
 
Registrado: oct 2003
Ubicación: Santiago Chile
Posts: 31
Poder: 0
rolando_s Va por buen camino
Question Tablas en Function

la tabla esta bien por que si la llamo desde una procedure abre y etc.....
trato de abrir una tabla dentro de una funcion y me da un error
[Error] Control.pas(66): Undeclared identifier: 'Table1'

Function boton(xxx: String):String;
var
a : Integer;
but :TComponent;
begin
but:=Salas.FindComponent('inp'+intToStr(a));
Table1.open;
Table1.Edit;
*********
Tbutton(but).Caption:=(Table1.FieldByName('nombre')+intToStr(a)

esto continua, todo camina bien mientras no trate de abrir la tabla desde la funcion
les agradecere cualquier ayuda
muchas gracias de antemano
__________________
www.cybervanet.cl
El matrimonio es como un submarino
puede flotar pero esta diseñado para hundirse
Responder Con Cita
  #2  
Antiguo 23-12-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
En ese trozo de código no aparece definida table1, o bien está en otro formulario... con lo cual sería Form1.Table1.Open

O bien te falta la añadir el uses DBTables

Saludos
Responder Con Cita
  #3  
Antiguo 23-12-2004
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Tu problema es que la función no pertenece a la forma o módulo de datos, así que para poder usar el TTable dentro de tu función la tendrías que pasar como parámetro, o hacer que la función sea un método de la forma o módulo de datos.

Código Delphi [-]
// Caso 1
function Boton(str: string; Table: TTable): string;
begin
  Table.Open;
  Table.Edit;
  // etc, etc...
end;

// Caso 2
function TMyForm.Boton(str: string): string;
begin
  Table1.Open;
  Table1.Edit;
  // etc, etc...
end;

Espero que esto te ayude...


Saludos...
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:37:43.


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