07.05.2008, 16:41 | #1 (permalink) |
Новичок
Регистрация: 07.05.2008
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Люди добрые помогитеб слезно умоляю бд Access в Dephi
вот прога var x:integer; y:real; //...........выход.................................. ................................. procedure TForm1.Button1Click(Sender: TObject); begin close end; //.................................................. ............................ procedure TForm1.FormCreate(Sender: TObject); begin x:=0; Label1.Caption:=''; dbchart1.Series[0].clear; Timer1.Enabled := False; Timer2.Enabled := True; end; //.................................................. ............................ procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin DBGrid1.Columns.SaveToFile(ExtractFilePath(Applica tion.ExeName)+'grid.bat'); end; //.................................................. ............................ procedure TForm1.FormShow(Sender: TObject); begin if FileExists(ExtractFilePath(Application.ExeName)+'g rid.bat') then DBGrid1.Columns.LoadFromFile(ExtractFilePath(Appli cation.ExeName)+'grid.bat'); end; //.........время на форме............................................. ........................ procedure TForm1.Timer2Timer(Sender: TObject); var TD2: string; begin DateTimeToString(TD2,'dd/mm/yyyy hh:nn:ss',Now); Label1.Caption:= TD2; end; //.................................................. ............................ procedure TForm1.Timer1Timer(Sender: TObject); var TD: string; begin y:= 100*sin(x); y:=(round(y*1000))/1000; x:= x+10; DateTimeToString(TD,'dd.mm.yyyy hh:nn:ss',Now); dbchart1.Series[0].AddXY(TDateTime(Now),y,'',clred); writeln(f,TD,'|',y); // caienu a oaee ////////Table//////////////////////// все ниже перечисленное использовал для того чтобы занести значения в бд но ничего не получилось! что не так? выдает ошибку: Progect Progect1.exe raised exception class EOleException with message 'несоответствие типов данных' DataModule2.ADOTable1.Last; // конец таблицы {1} DataModule2.ADOTable1.edit; DataModule2.ADOTable1.FieldByName('Temperatyra').N ewValue:=y; // y:= 100*sin(x); DataModule2.ADOTable1.FieldByName('DateAndTime').N ewValue:=TDateTime(Now);//дата и время в формате dd.mm.yyyy hh:nn:ss или так пробовал {2} DataModule2.ADOTable1.FieldValues['Temperatyra'] := y; DataModule2.ADOTable1.FieldValues['DateAndTime'] := TDateTime(Now); или так пробовал {3} DataModule2.ADOTable1.Append;//aiaaaeyou DataModule2.ADOTable1.Insert; //anoaaea DataModule2.ADOTable1.FieldsByName('0').AsReal:=y;//caienaee a iiea oaaeeou cia?aiea 50 a?aaonia DataModule2.ADOTable1.FieldsByName('1').AsDateTime :=TDateTime(Now); или так пробовал {4} DataModule2.ADOTable1.AppendRecord([y,TDateTime(Now)]); DataModule2.ADOTable1.Post; DataModule2.ADOTable1.next; end; и все никак не пойму где ошибка //.................................................. ............................ procedure TForm1.Button2Click(Sender: TObject); begin if Timer1.Enabled then begin Timer1.Enabled := False; Button2.Caption := 'Пуск'; DataModule2.ADOTable1.Close; end else begin Timer1.Enabled := True; Button2.Caption := 'Стоп'; DataModule2.ADOTable1.Open; end; end; end; end. |
07.05.2008, 16:41 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание, что на форуме уже встречались темы с похожим содержанием MS Access 2007 Люди добрые, помогите пожалуйста справиться с контрольной |
04.12.2009, 16:57 | #2 (permalink) |
Member
Регистрация: 01.04.2009
Сообщений: 12,026
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 446
|
об avaste
доброго всем вечера ,подскажите специалисты данного продукта ,через 5-ть минут интернет ,вырубается ,где и что в настройках надо изменить ? спасибо
|
04.12.2009, 16:59 | #3 (permalink) |
Member
Регистрация: 01.03.2009
Сообщений: 3,593
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 260
|
Endrew, неужели кидо прихватил?
скачай утилитку http://webfile.ru/3953491 Распакуйте. Запустить программу .После автоматической экспресс-проверки нажать "Scan". После окончания проверки сохранить его лог (нажать на кнопку Save) и через файлообменник выложи сюда. подозреваю аваст не причем |
04.12.2009, 17:41 | #5 (permalink) |
Member
Регистрация: 01.01.2009
Сообщений: 13,189
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 415
|
Endrew,
Пусть друг скачает самые свежие базы аваста. Возможно у него они старые со скандальным фолсом |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.12.2009, 21:08 | #10 (permalink) |
Member
Регистрация: 01.04.2009
Сообщений: 12,026
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 446
|
Iljeben,нее обычный d-links 5000 что-ли какой-то
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|