Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

ADO и база данных   Найти похожие ветки 

 
User_OKA ©   (2002-04-19 09:56) [0]

Пивет Мастера!!!

Есть такой вопрос: Каким образом, можно с помощью компонента ADOTable создать базу данных DBASE.


 
zx   (2002-04-19 10:04) [1]

Помоему ADO провайдеров для DBASE нету.
Если только ADO через Jet.


 
User_OKA ©   (2002-04-19 10:30) [2]

Через 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 создать ту же базу данных.


 
Kuusiniemi ©   (2002-04-19 11:18) [3]

А Create table не пробовали??


 
User_OKA ©   (2002-04-19 12:25) [4]

А можно поподробней!!!


 
Kuusiniemi ©   (2002-04-19 14:41) [5]

А вот так:

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 15:23) [6]

Спасибо


 
User_OKA ©   (2002-04-19 15:37) [7]

Но вот не задача. Появилась другая проблема:
При выполнении запроса все проходит нормально, если БД еще не создана, а мне необходимо, чтобы БД пересоздавалась.

ПОМОГИТЕ!!!


 
Kuusiniemi ©   (2002-04-19 15:45) [8]

Ну а Drop Table перед Create Table??? :)))



Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
14-50125
igorr
2002-04-04 17:30
2002.05.16
Рейтинг языков.


6-50065
boomer
2002-03-03 10:01
2002.05.16
Sniffer(packet32.dll) получаю я пакеты ф-ей PacketReceivePacket , а как понять какой пакет пришел


6-50080
Rub
2002-03-04 09:31
2002.05.16
Отправка почты с помощью NMSMTP - Не по русски


1-50035
AMQ
2002-05-01 16:04
2002.05.16
Парочка вопросов


1-49957
Demn
2002-04-29 06:01
2002.05.16
Как привязать MaskEdit к редактируемой ячейке в StringGrid