carmelina
03-06-2008, 18:39:54
Hola a todos!!!
Mi problema es que necesito ir introduciendo datos en una tabla de una bd mySQL una vez que se esta ejecutando mi programa. Los componentes que utilizo para conectar delphi 5 y la bd y ver lo que hay dentro son ADOTable, DBGrid, DBNavigator y DataSource.
El codigo que estoy usando es:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, Grids, DBGrids, Buttons, StdCtrls, DBCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Control: TButton;
Cerrar: TBitBtn;
DBGrid1: TDBGrid;
Tabla: TADOTable;
DataSource1: TDataSource;
Video: TButton;
procedure ControlClick(Sender: TObject);
procedure CerrarClick(Sender: TObject);
procedure VideoClick(Sender: TObject);
private
{ Private declarations }
cont : integer;
nombrevideo : String;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure InsertarEnTabla(nombrevideo : String; Tabla : TADOTable);
begin
//Esto es lo que me haría falta saber, como introducir aqui los campos de
// mi tabla (fecha, nombre del video, ruta)
end;
procedure TForm1.ControlClick(Sender: TObject);
begin
If Control.Caption='Abrir' then
begin
Control.Caption:='Cerrar';
Tabla.open;
if cont=1 then
nombrevideo:=form2.SaveDialog1.FileName;
//Aqui empieza mi problema
InsertarEnTabla(nombrevideo,Tabla);
end
Else
begin
Control.Caption:='Abrir';
Tabla.Close;
end;
end;
procedure TForm1.CerrarClick(Sender: TObject);
begin
Tabla.Close;
Halt(0);
end;
procedure TForm1.VideoClick(Sender: TObject);
begin
form2.show;
cont:= 1;
end;
end.
Si podeis ayudarme estaría muy agradecida porque la verdad es que estoy bastante verde en esto de las bases de datos.
Muchas gracias.
Mi problema es que necesito ir introduciendo datos en una tabla de una bd mySQL una vez que se esta ejecutando mi programa. Los componentes que utilizo para conectar delphi 5 y la bd y ver lo que hay dentro son ADOTable, DBGrid, DBNavigator y DataSource.
El codigo que estoy usando es:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, Grids, DBGrids, Buttons, StdCtrls, DBCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Control: TButton;
Cerrar: TBitBtn;
DBGrid1: TDBGrid;
Tabla: TADOTable;
DataSource1: TDataSource;
Video: TButton;
procedure ControlClick(Sender: TObject);
procedure CerrarClick(Sender: TObject);
procedure VideoClick(Sender: TObject);
private
{ Private declarations }
cont : integer;
nombrevideo : String;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure InsertarEnTabla(nombrevideo : String; Tabla : TADOTable);
begin
//Esto es lo que me haría falta saber, como introducir aqui los campos de
// mi tabla (fecha, nombre del video, ruta)
end;
procedure TForm1.ControlClick(Sender: TObject);
begin
If Control.Caption='Abrir' then
begin
Control.Caption:='Cerrar';
Tabla.open;
if cont=1 then
nombrevideo:=form2.SaveDialog1.FileName;
//Aqui empieza mi problema
InsertarEnTabla(nombrevideo,Tabla);
end
Else
begin
Control.Caption:='Abrir';
Tabla.Close;
end;
end;
procedure TForm1.CerrarClick(Sender: TObject);
begin
Tabla.Close;
Halt(0);
end;
procedure TForm1.VideoClick(Sender: TObject);
begin
form2.show;
cont:= 1;
end;
end.
Si podeis ayudarme estaría muy agradecida porque la verdad es que estoy bastante verde en esto de las bases de datos.
Muchas gracias.