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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы