Данные из базы mdb в textBox

[averkiev]

Добрый день. Помогите пожалуйста реализовать, у кого есть дайте рабочий пример как из mdb базы выдернуть из определенного столбца данные и вставить в TextBox примера на visual c++ не нашел.

[Rififi]

например так:

#import "msado27.tlb" rename("EOF", "Eof") rename("BOF", "Bof")
using namespace ADODB;

_ConnectionPtr cnn;
...

cnn.CreateInstance(__uuidof(Connection));
cnn->ConnectionString = строка подключения к БД, гоогле connectionstrings.com

cnn->Open(гоогле параметры);

// байндинг данных
class Rs : public CADORecordBinding
{
public:
    wchar_t text_[1000];

private:
    enum { Index_Text = 1 }; // Индекс колонки в БД

    BEGIN_ADO_BINDING(MyDataRs)
        ADO_VARIABLE_LENGTH_ENTRY4(Index_Text, adVarWChar, text_, sizeof(text_), FALSE)
    END_ADO_BINDING()    
};

// команда для SQL-запроса
_CommandPtr cmd(__uuidof(Command));
cmd->ActiveConnection = cnn;
cmd->CommandText = L"SELECT ...";

_variant_t affected;
_RecordsetPtr rs = cmd->Execute(&affected, nullptr, adCmdText);
IADORecordBindingPtr bindings(rs);

Rs storage;
bindings->BindToRecordset(&storage);

SetWindowTextW(hEditWnd, storage.text_);

для подробностей гоогле "С++ ADO", примеров в сети навалом

[Петррр]

C++/CLI? ? ?

[averkiev]

CLR

Я нашел пример на С# переделал под себя, вот что получилось

  auto Подключение = gcnew OleDb::OleDbConnection(
                     "Data Source=\"base.mdb\";User " +
                     "ID=Admin;Provider=\"Microsoft.Jet.OLEDB.4.0\";");
                 Подключение->Open();
                 
 
	     auto Команда = gcnew OleDb::OleDbCommand(
                     "Select Дата, Номер, Краткое_содержание, Исполнитель, Кем_подписан, Контроль, Файл From [pr]", Подключение);

                 auto Адаптер = gcnew OleDb::OleDbDataAdapter(Команда);
				
                 // Создаем объект класса DataSet
                 auto НаборДанных = gcnew DataSet();
		 BindingSource^ myBS = gcnew BindingSource();


                 // Заполняем DataSet результатом SQL-запроса
                 Адаптер->Fill(НаборДанных, "pr");


				
            
         myBS->DataSource=НаборДанных;
 
         textBox1->DataBindings->Add(gcnew Binding("Text", myBS, "pr.Дата", true));
         Подключение->Close();