|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти ошибку
Код:
var strField:string; i: integer; Key: Char; procedure TForm4.Button1Click(Sender: TObject); //Создание файла .dbf begin with TTable.Create(nil) do begin DatabaseName := 'C:\0\';//chdir1.Path; TableType := ttDefault; TableName := 'tmp.dbf';//Имя файла; with FieldDefs do begin Add('ФИО', ftString,60,false); //Первый столбец Add('Кабинет', ftString,10,false); //Второй столбец Add('Телефон', ftString,15,false); //Третий столбец end; try begin if (Edit1.Text=' ') or (Edit2.Text=' ') or(Edit3.Text=' ') then begin ShowMessage('Введите значения'); end else //запись данных в базу close; Query1.ParamByName('ФИО').AsString:=Edit1.Text; //Ошибка Query1.ParamByName('Кабинет').AsString:=Edit2.Text; //Ошибка Query1. ParamByName('Телефон').AsString:=Edit3.Text; //Ошибка Query1.ExecSQL; ShowMessage('Данные успешно сохранены!!!'); Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end; Последний раз редактировалось Admin, 04.08.2011 в 22:26. |
#2
|
||||
|
||||
Возможно имя параметра русским шрифтом не принимает.
Текст самого запроса желательно посмотреть. - Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! |