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

← →
zxc (2003-10-03 16:11) [0]

← →
Delirium © (2003-10-03 16:56) [1]

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

← →
zxc (2003-10-03 17:01) [2]

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

← →
Е-Моё имя © (2003-10-03 17:06) [3]

ADOX можно юзать

← →
Е-Моё имя © (2003-10-03 17:06) [4]

вот например
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 << "Error occured in include files...."<< endl;
}

}
// EndCreateDatabaseCpp

← →
Е-Моё имя © (2003-10-03 17:10) [5]

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

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

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

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

← →
Delirium © (2003-10-03 17:18) [7]

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

← →
Е-Моё имя © (2003-10-03 17:27) [8]

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

> [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 применяй нужные методы
их найдешь в документации ;) или не анйдешь =))
но они там есть, это факт

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

← →
zxc (2003-10-03 18:37) [11]

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

как создать файл *.mdb через ado? Найти похожие ветки