Форум: "Базы";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Внизкак создать файл *.mdb через ado? Найти похожие ветки
← →
zxc (2003-10-03 16:11) [0]как создать файл *.mdb через ado?
← →
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 ищу =))))))))))
← →
Е-Моё имя (2003-10-03 17:31) [9]
> [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:33) [10]ээээ...
тебе не надо ActiveConnection
у тебя базы нет
это я тебе много дал ;)
делай Create, как в примере VB
← →
zxc (2003-10-03 18:37) [11]ок, ещё раз big thx.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c