Люди, я зат...лся уже почти неделю рою сеть и не могу найти ничего подходящего.
Поможите неучу, научите как в C++ Builder создать компонент для доступа к БД через ADO ???

Здравствуйте Будуев Игорь , Вы писали:

БИ>Люди, я зат...лся уже почти неделю рою сеть и не могу найти ничего подходящего.
БИ>Поможите неучу, научите как в C++ Builder создать компонент для доступа к БД через ADO ???
БИ>

Так, а чем не устраивают стандартные с панели ADO? А вообще-то, плохо ты искал!

Здравствуйте Будуев Игорь , Вы писали:

БИ>Люди, я зат...лся уже почти неделю рою сеть и не могу найти ничего подходящего.
БИ>Поможите неучу, научите как в C++ Builder создать компонент для доступа к БД через ADO ???
БИ>

Искать надо так
1. Ищещ в меню Component\ New Component... жмеш...
2. Выбераеш Ancestor type — TCustomADODataSet и дальше все ясно.
Все

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Будуев Игорь , Вы писали:

БИ>>Люди, я зат...лся уже почти неделю рою сеть и не могу найти ничего подходящего.
БИ>>Поможите неучу, научите как в C++ Builder создать компонент для доступа к БД через ADO ???
БИ>>

W>Искать надо так
W> 1. Ищещ в меню Component\ New Component... жмеш...
W> 2. Выбераеш Ancestor type — TCustomADODataSet и дальше все ясно.
W>Все

Две проблемы — у меня нет TCustomADODataSet вторая — помогите понять как вообще создать компонент для доступа к БД но не через BDE, может быть мне и ADO то не нужно?
А если через ADO то вообще как это сделать, если можно прямо по шагам.
Буду чрезвычайно благодарен!

Здравствуйте Будуев Игорь , Вы писали:

БИ>Здравствуйте Whisperer, Вы писали:

W>>Здравствуйте Будуев Игорь , Вы писали:

БИ>>>Люди, я зат...лся уже почти неделю рою сеть и не могу найти ничего подходящего.
БИ>>>Поможите неучу, научите как в C++ Builder создать компонент для доступа к БД через ADO ???
БИ>>>

W>>Искать надо так
W>> 1. Ищещ в меню Component\ New Component... жмеш...
W>> 2. Выбераеш Ancestor type — TCustomADODataSet и дальше все ясно.
W>>Все

БИ>Две проблемы — у меня нет TCustomADODataSet вторая — помогите понять как вообще создать компонент для доступа к БД но не через BDE, может быть мне и ADO то не нужно?
БИ>А если через ADO то вообще как это сделать, если можно прямо по шагам.
БИ>Буду чрезвычайно благодарен!

Шаги бываю разные. Но прежде хочется задать вопрос, а накаком ты Buidere Работаеш (версия) — я подрузомевал
что у тебя 6-той.

Нет у меня стоит 4-й и тот еле нашел — я вообще-то
ковырял всегда VC++, ну или Borland C++ иногда.

А вот такой вопрос еще в развитии темы.

Создаем Active X Library, добавляем свой COM-object,
импортируем ADO (Project->Import type library),
потом в своем интерфейсе как из методов добраться до методов ADO???
Пытаюсь просто объявить их — ругается всяко — то на expected namespace,
то еще хуже...

Здравствуйте Будуев Игорь , Вы писали:

БИ>Нет у меня стоит 4-й и тот еле нашел — я вообще-то
БИ>ковырял всегда VC++, ну или Borland C++ иногда.

БИ>А вот такой вопрос еще в развитии темы.

БИ>Создаем Active X Library, добавляем свой COM-object,
БИ>импортируем ADO (Project->Import type library),
БИ>потом в своем интерфейсе как из методов добраться до методов ADO???
БИ>Пытаюсь просто объявить их — ругается всяко — то на expected namespace,
БИ>то еще хуже...


Советую перейти всетаки на шестой. С 4-м неработал. Последнее время
больше писал на Delphi.

Здравствуйте Будуев Игорь , Вы писали:

БИ>Две проблемы — у меня нет TCustomADODataSet вторая — помогите понять как вообще создать компонент для доступа к БД но не через BDE, может быть мне и ADO то не нужно?
БИ>А если через ADO то вообще как это сделать, если можно прямо по шагам.
БИ>Буду чрезвычайно благодарен!

Вообще правильно 0 берешь билдер 6 версии и не паришь мозг. А если хочешь попарить, вот тебе пример как работать с ДО без компонент и БДЕ (кусок из моего теста, думаю разберешься):

(Форм1=ТФорм.. тра-та-та...)

var
Form1: TForm1;
Connect1,R,SQL:variant;
CurPage:integer;

implementation

{$R *.DFM}
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursor:=crHourglass;
Connect1:=CreateOleObject('ADODB.Connection');
Connect1.Open('Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+EditDatabaseName.text+';Data Source='+EditServername.text);

SQL:='SELECT * from '+EditTableName.text;
R:=CreateOleObject('ADODB.Recordset');
R.PageSize := 5;
R.Open(SQL, Connect1,1);
CurPage:=1;
R.AbsolutePage := CurPage;
ShowRecords;
Screen.Cursor:=crDefault;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CurPage:=CurPage+1;
R.AbsolutePage:=CurPage;
ShowRecords;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
CurPage:=CurPage-1;
R.AbsolutePage:=CurPage;
ShowRecords;
end;

procedure TForm1.ShowRecords;
var I:integer;
begin
ListBox1.Items.clear;
i:=1;
while ((not R.Eof) and (i<=R.PageSize)) do
// For i := 1 To R.PageSize do
begin
ListBox1.Items.Add(vartostr(R.Fields[1]));
R.MoveNext;
inc(i);
end;
end;