Работа с dbf через ADO

← →
ИМХО © (2004-05-30 17:59) [0]

Можно ли открыть dbf-файл с memo-полем (fpt) через ADO (TADOTable)?
Если да, то как именно?

← →
sniknik © (2004-05-30 18:23) [1]

открыть, так же как и все остальное. проще всего использовать стандартно DBMemo, а подключается к любому имеющемуся драйверу (тоже стандартно, к dbf в том числе), в любой статье по адо описывается на первой же странице.

← →
ИМХО © (2004-05-30 18:53) [2]

Имеется в виду, как сформировать строку подключения (для dbf)?

И еще. Если на компе нет MS Access"а, то это ;t еще не значит, что ADO нельзя будет воспользоваться? Кто отвечает за установку ADO? Как проверить, установлена ли ADO?

← →
ИМХО © (2004-05-30 18:56) [3]

Лучше так:

И еще. Если на компе нет MS Access"а, то это же еще не значит, что ADO нельзя будет воспользоваться? Кто отвечает за установку ADO? Как проверить, установлена ли ADO?

← →
YurikGl © (2004-05-30 20:20) [4]

ИМХО © (30.05.04 18:56) [3]

В yandex-е нашел

http://www.delphirus.net.ru/delphi-sovetid-82.html

Узнаём установленную версию ADO

function GetADOVersion: Double; var ADO: OLEVariant; begin try ADO := CreateOLEObject("adodb.connection"); Result := StrToFloat(ADO.Version); ADO := Null; except Result := 0.0; end; end; // To use this function try something like: procedure TForm1.Button1Click(Sender: TObject); const ADOVersionNeeded = 2.5; begin if GetADOVersion then ShowMessage("Need to install MDAC version 2.7") else ShowMessage(Format("ADO Version %n, is OK", [GetADOVersion])); end;

Строчки из моего бакалаврского диплома
ADO поставляется в составе широко известных программных средств, таких как Office 2000, Microsoft Internet Explorer 5.0. Кроме того, ADO является непосредственной частью Windows 2000.

> Как проверить, установлена ли ADO?
тебе кроме версии нужен еще и jet(необязательно, но по моему лучший вариант для dbf)
проверка обоих, возвращает или версию или ошибку
function ADO_and_Jet40: String; var con: TADOConnection; begin try try con:= TADOConnection.Create(nil); con.LoginPrompt:= False; con.ConnectionString:= "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=.\"; con.Open; Result:= con.Version; except on E:Exception do Result:=E.Message; end; finally con.Free; end; end;

Работа с dbf через ADO Найти похожие ветки