Дата публикации: 21.10.2004

Работа с транзакциями через SQL команды (VB)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim src
set src=CreateObject("ADODB.Connection")
 
src.open "file name=d:\database\employee.ibp"
 
dim cmd
set cmd=CreateObject("ADODB.Command")
cmd.ActiveConnection=src
 
cmd.CommandText="SET TRANSACTION WAIT"
cmd.execute
 
cmd.CommandText="select count(*) from employee"
 
dim rs
set rs=cmd.execute
 
MsgBox rs(0)
 
cmd.CommandText="COMMIT"
cmd.execute
Все примеры