Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как создать файл *.mdb через ado?

zxc © (2003-10-03 16:11:00)

как создать файл *.mdb через ado?

zxc (2003-10-03 18:37:00) [1]

ок, ещё раз big thx.

Е-Моё имя (2003-10-03 17:33:00) [2]

ээээ...
тебе не надо ActiveConnection
у тебя базы нет
это я тебе много дал ;)
делай Create, как в примере VB

Е-Моё имя (2003-10-03 17:31:00) [3]

> [6] zxc (03.10.03 17:14)

на вот на ВБ
не так страшно =)

Attribute VB_Name = "Create"
Option Explicit

" BeginCreateDatabseVB
Sub CreateDatabase()

Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

End Sub
" EndCreateDatabaseVB

ну и от себя ))
ADOX_Catalog:=CreateOleObject("ADOX.Catalog");
ADOX_Catalog.ActiveConnection:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+DataBaseName+";Jet OLEDB:Database Password=""";

затем к ADOX_Catalog применяй нужные методы
их найдешь в документации ;) или не анйдешь =))
но они там есть, это факт

Е-Моё имя (2003-10-03 17:27:00) [4]

аааааа))))))))))))
а я в MSDN ищу =))))))))))

Delirium (2003-10-03 17:18:00) [5]

"а чо такое UBPFD? чо-то не могу найти такого" - "Форумы"->"Основная"->"Универсальная база процедур и функций для Delphi"
http://delphibase.endimus.com/

zxc (2003-10-03 17:14:00) [6]

большой thx, а как это можно delphi6 прикрутить?

Е-Моё имя (2003-10-03 17:10:00) [7]

> [1] Delirium © (03.10.03 16:56)

а чо такое UBPFD? чо-то не могу найти такого

Е-Моё имя (2003-10-03 17:06:00) [8]

ADOX можно юзать

Е-Моё имя (2003-10-03 17:06:00) [9]
вот например
The following code shows how to create a new Microsoft Jet database with the Create method.

// BeginCreateDatabaseCpp
#import "c:\Program Files\Common Files\system\ado\msadox.dll" no_namespace
#import "c:\Program Files\Common Files\system\ado\msado15.dll"

#define TESTHR(x) if FAILED(x) _com_issue_error(x);

#include "iostream.h"
#include "stdio.h"
#include "conio.h"

//Function declarations
void CreateDatabaseX(void);

//------------------------------------------------------------ //
//Main Function
//Purpose: Test Driver
//------------------------------------------------------------ //
void main()
{
HRESULT hr = S_OK;

hr = ::CoInitialize(NULL);
if(SUCCEEDED(hr))
{
CreateDatabaseX();

//Wait here for the user to see the output
printf("Press any key to continue...");
getch();

::CoUninitialize();
}
}

//------------------------------------------------------------ //
//CreateDatabaseX
//Purpose: create a new Jet database with the Create method
//------------------------------------------------------------ //
void CreateDatabaseX()
{
HRESULT hr = S_OK;

// Define ADOX object pointers.
// Initialize pointers on define.
// These are in the ADOX:: namespace.

_CatalogPtr m_pCatalog = NULL;

//Set ActiveConnection of Catalog to this string
_bstr_t strcnn("Provider=Microsoft.JET.OLEDB.4.0;"
"Data source = c:\\new.mdb");
try
{
TESTHR(hr = m_pCatalog.CreateInstance(__uuidof (Catalog)));
m_pCatalog->Create(strcnn);

}

catch(_com_error &e)
{
// Notify the user of errors if any.
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());

printf("\n\tSource : %s \n\tdescription : %s \n ",(LPCSTR)bstrSource,(LPCSTR)bstrDescription);

}

catch(...)
{
cout

zxc (2003-10-03 17:01:00) [10]

чего? где это Delphi DAO?

Delirium (2003-10-03 16:56:00) [11]

Во первых, не через ADO, а через DAO, дальше смотри UBPFD

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »