Не отображаются даты в DBGrid, и не записываются в БД MSSQL

Создал Форму, далее разместил DBgrid и создал вторую, первая форма подцепляет Бд с MSSQL, а вторая редактирует , все редактируется записывается, но не могу записать дату, выбрал компонент "DateTimePicker1" , при выборе даты она выбирается, но записть в базу и отобразить в DBGrid не получается....
Формат даты в БД 'date'.

0

как в базу записываешь? (напиши свой запрос, исправим, будет работать )

Добавлено через 2 часа 13 минут
как я поняла у тебя есть компоненты (типа edit'ов) куда ты пишешь данные, и хочешь (например, по нажатию кнопки) их добавлять в базу SQL
тогда так:
если будет ругаться на дату можно попробовать такой запрос
где а еще если в свойстве DateTimePicker1.Time написать 0:00:00, то в базе будет запись типа "28.02.2011 0:00:00". а если выводить эти данные из базы в Label.Caption то будет "28.02.2011"

1

а без кнопки это решаемо?. могу выслать проект, посмотришь?!

Добавлено через 2 минуты
Листинг второй формы :



unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB, Mask, DBCtrls, ComCtrls;

type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox8: TDBComboBox;
DBComboBox5: TDBComboBox;
Label26: TLabel;
DBComboBox3: TDBComboBox;
Label25: TLabel;
DBMemo1: TDBMemo;
Label27: TLabel;
DBComboBox4: TDBComboBox;
BitBtn3: TBitBtn;
DateTimePicker1: TDateTimePicker;
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure DBComboBox3Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure DateTimePicker1Click(Sender: TObject);
procedure DateTimePicker2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DateTimePicker1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
Time:TTime;
implementation

uses Unit5, Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
Groupbox1.Enabled:=false;
Groupbox2.Enabled:=false;
Groupbox3.Enabled:=false;
Groupbox4.Enabled:=false;
Groupbox5.Enabled:=false;

DBComboBox1.Enabled:=false;
DBComboBox2.Enabled:=false;
DBComboBox4.Enabled:=false;
end;
procedure TForm2.FormDeactivate(Sender: TObject);
begin
DBComboBox1.Enabled:=true;
DBComboBox2.Enabled:=true;
DBComboBox4.Enabled:=true;
end;

procedure TForm2.DBComboBox3Click(Sender: TObject);
begin
if DBComboBox3.Text='ÀÑ' then
begin
DBComboBox2.Enabled:=true;
DBComboBox1.Enabled:=false;
DBComboBox4.Enabled:=false;
end;

if DBComboBox3.Text='ÂÏ' then
begin
DBComboBox1.Enabled:=true;
DBComboBox2.Enabled:=false;
DBComboBox4.Enabled:=false;
end;

if DBComboBox3.Text='ÇÏ' then
begin
DBComboBox1.Enabled:=true;
DBComboBox2.Enabled:=false;
DBComboBox4.Enabled:=false;
end;

if DBComboBox3.Text='ÈÑÏÄí' then
begin
DBComboBox4.Enabled:=true;
DBComboBox1.Enabled:=false;
DBComboBox2.Enabled:=false;
end;

if DBComboBox3.Text='ÑÐ' then
begin
DBComboBox1.Enabled:=true;
DBComboBox2.Enabled:=false;
DBComboBox4.Enabled:=false;
end;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
Groupbox1.Enabled:=true;
Groupbox2.Enabled:=true;
Groupbox3.Enabled:=true;
Groupbox4.Enabled:=true;
Groupbox5.Enabled:=true;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.DateTimePicker1Click(Sender: TObject);
begin
if datamodule5.ADOTable1.Modified then
datamodule5.ADOTable1.Post;
end;

procedure TForm2.DateTimePicker2Click(Sender: TObject);
begin
if datamodule5.ADOTable1.Modified then
datamodule5.ADOTable1.Post;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
end;

procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin

end;

end.

0

ну, в какой момент хочешь добавлять строку в таблицу, на то вобытие и пиши этот код. только на какое, не представляю....

0