Создание объектов БД из 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