home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic 4 Unleashed
/
Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso
/
source
/
chap28
/
mod128.bas
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
BASIC Source File
|
1995-06-17
|
176 b
|
11 lines
Attribute VB_Name = "Module1"
Option Explicit
Sub begintransaction(ws As Workspace, db As Database)
If db.transaction = True Then
ws.BeginTrans
End If
End Sub