![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ADO и база данных [D5, dBase, FoxPro]
User_OKA © (2002-04-19 09:56:00)Пивет Мастера!!!
Есть такой вопрос: Каким образом, можно с помощью компонента ADOTable создать базу данных DBASE.
Kuusiniemi (2002-04-19 15:45:00) [1]Ну а Drop Table перед Create Table??? :)))
User_OKA (2002-04-19 15:37:00) [2]Но вот не задача. Появилась другая проблема:
При выполнении запроса все проходит нормально, если БД еще не создана, а мне необходимо, чтобы БД пересоздавалась.
ПОМОГИТЕ!!!
User_OKA (2002-04-19 15:23:00) [3]Спасибо
Kuusiniemi (2002-04-19 14:41:00) [4]А вот так:
ADOQuery1.ConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=Paradox 7.x;Mode=Read|Write|Share Deny None; Persist Security Info=True";
ADOQuery1.SQL.Text := "Create Table Vrem (XKr1 Float, YKr1 Float)";
// Ну дальше там перечислите все поля какие Вам нужны.
ADOQuery1.ExecSQL;
User_OKA (2002-04-19 12:25:00) [5]А можно поподробней!!!
Kuusiniemi (2002-04-19 11:18:00) [6]А Create table не пробовали??
User_OKA (2002-04-19 10:30:00) [7]Через Table я создаю БД так:
try
with Table1 do begin
TableName:="Vrem.db";
TableType:=ttParadox;
FieldDefs.Clear;
FieldDefs.Add("XKr1",FtFloat,0,False);
FieldDefs.Add("YKr1",FtFloat,0,False);
FieldDefs.Add("XKr2",FtFloat,0,False);
FieldDefs.Add("YKr2",FtFloat,0,False);
FieldDefs.Add("XPr1",FtFloat,0,False);
FieldDefs.Add("YPr1",FtFloat,0,False);
FieldDefs.Add("XPr2",FtFloat,0,False);
FieldDefs.Add("YPr2",FtFloat,0,False);
FieldDefs.Add("XPr3",FtFloat,0,False);
FieldDefs.Add("YPr3",FtFloat,0,False);
CreateTable;
Open;
end;
except
Table1.Close;
ShowMessage("Не удалось создать БД!!!");
Exit;
end;
А как через ADOTable создать ту же базу данных.
zx (2002-04-19 10:04:00) [8]Помоему ADO провайдеров для DBASE нету.
Если только ADO через Jet.