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:
Código:
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.