Создание объектов БД из VB
Формулировка задачи:
Доброе утро!
Шех поставил задачу писать патчи. Часть задачи - из VB создавать объекты базы данных (Interbase). Коннектимся к нему через Native OLE DB провайдер. Непонятно какие методы использовать ?
Если у кого-нибудь есть подобный опыт- пишите, или куски кода - присылайте.
Пробовал
но вываливается, говорит что не определены все связываемые переменные.
какие у меня связываемые переменные ? я же не выполняю хр. процедуру, а только создаю.
Решение задачи: «Создание объектов БД из VB»
textual
Листинг программы
Dim con1 As ADODB.Connection Dim cmd1 As ADODB.Command ' Dim con_clone As New IBPSamples.TADOConnectionClone Set con1 = New ADODB.Connection ' Native OLE DB con1.Provider = 'LCPI.IBProvider' con1.Open 'data source=localhost:c:ProjectsFBdb_test.gdb;ctype=win1251;named_param_prefix='''' ', 'SYSDBA', 'masterkey' con1.Properties('Session AutoCommit') = True 'enable auto commit con1.Properties('Autocommit Isolation Levels') = 4096 'read commited=0x1000 ' ---------------------------------- con1.BeginTrans Set cmd1 = New ADODB.Command cmd1.ActiveConnection = con1 cmd1.CommandText = 'create procedure vit ' & Chr(13) & _ 'returns ( ' & Chr(13) & _ 'num_ved integer ' & Chr(13) & _ ') as ' & Chr(13) & _ 'begin ' & Chr(13) & _ 'for select p33 from form8 into :num_ved ' & Chr(13) & _ 'do ' & Chr(13) & _ 'suspend; ' & Chr(13) & _ 'end ' cmd1.Execute con1.CommitTrans con1.Close
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д