Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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
14-74409
MooSE
2003-10-06 09:53
2003.10.23
Cabinet.dll


4-74534
Maxim Pshevlotsky
2003-08-16 18:45
2003.10.23
Как вызвать окно


14-74427
Igor_thief
2003-10-04 10:02
2003.10.23
MDI


1-74159
Sasha M
2003-10-10 16:36
2003.10.23
Компонент вроде DBCtrlGrid, только без DB


14-74416
Zhirnov Maxim
2003-10-04 21:58
2003.10.23
Постоянные перезагрузки при работе в Интернете





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский