import socket
host = '127.0.0.1'
port =  1434 
s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2.connect((host,  1433 ))
s1.bind((host, port))
s1.listen( 1 )
cn, addr = s1.accept()
while  1 :
    data = cn.recv( 4096 )
    if not data: break
    print 'client: ', data -- печатаем в stdout запрос от VB скрипта;
    s2.send(data)
    data = s2.recv( 4096 )
    if not data: break
    print 'sqlserver: ', data -- печатаем в stdout ответ от SQL сервера;
    cn.send(data)
s1.close()
s2.close()
cn.close()

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open _
"Provider=sqloledb;Data Source=127.0.0.1,1434;" & _
"Network Library=DBMSSOCN;Initial Catalog=pubs;" & _
"User ID=qwe;Password=asdasd;"

cn.Execute _
"set nocount on; select top 1 * from authors;" & _
"waitfor delay '000:00:05'; raiserror ('AAA',10,1) with nowait;" & _
"----declare @i int; set @i=31415926; select @i;" & _
"----waitfor delay '000:00:05'; raiserror ('BBB',10,1) with nowait;"

cn.Execute _
"declare @i int; set @i=31415926; select @i;" & _
"waitfor delay '000:00:05'; raiserror ('BBB',10,1) with nowait;"

rs = cn.Execute("select top 1 * from titles;")
MsgBox rs( 2 )
cn.Close
Set rs = Nothing: Set cn = Nothing
MsgBox "END"

VB_SCRIPT:
 )             я  В    Р  


SQLSERVER:
 %             я  В   


VB_SCRIPT:
 в   Ъ      q      t      а €яяя  V  X  ^  j ! ¬      
И  Т   Т  L TЇS    Ъ   W q w e іҐ’ҐгҐіҐ’ҐгҐM i c r o s o f t
   ( r )   W i n d o w s   S c r i p t   H o s t  1   2   7  .  0  .  0  
.  1  ,  1   4   3   4  O L E D B p u b s 


SQLSERVER:
U  3  г p u b s m a s t e r «T E   # C h a n g e d   d a
 t a b a s e   c o n t e x t   t o   ' p u b s ' . W    г 
Р   г 
u s _ e n g l i s h  «\ G    C h a n g e d   l a n g u a g e 
  s e t t i n g   t o   u s _ e n g l i s h . W    ­ 6    M i
 c r o s o f t   S Q L   S e r v e r       Вг  4   0   9   6   4   0   9 
  6  э        


VB_SCRIPT:
В   s e t   n o c o u n t   o n ;   s e l e c t   t o p    1  
  *   f r o m   a u t h o r s ; w a i t f o r   d e l a y   ' 0
 0 0 : 0 0 : 0 5 ' ;   r a i s e r r o r   ( ' A A A ' ,  1   0  ,  1  )
   w i t h   n o w a i t ; - - - - - d e c l a r e   @ i   i n t ;
   s e t   @ i =  3   1   4   1   5   9   2   6  ;   s e l e c t   @ i ; - - - - -
 w a i t f o r   d e l a y   ' 0 0 0 : 0 0 : 0 5 ' ;   r a i s e r
 r o r   ( ' B B B ' ,  1   0  ,  1  )   w i t h   n o w a i t ; 


SQLSERVER:
s  3  э №     Ѓ	  § Р  a u _ i d    §( Р  a u _
 l n a m e    § Р  a u _ f n a m e    Ї Р  p h o n e   
	 §( Р  a d d r e s s   	 § Р  c i t y   	 
Ї Р  s t a t e   	 Ї Р  z i p     2 c o n t r a c t С  17 
 2 - 32 - 1176  White Johnson  408   496 - 7223   10932  Bigge Rd.
 Menlo Park CA  94025 э Б    э у     « PГ    A A A W   э  ц     


VB_SCRIPT:
 Ъ   d e c l a r e   @ i   i n t ;   s e t   @ i =  3   1   4   1   5   9   2   6  ;
   s e l e c t   @ i ; w a i t f o r   d e l a y  ' 0 0 0 : 0 0 : 0 5 '
 ;  r a i s e r r o r   ( ' B B B ' ,  1   0  ,  1  ) w i t h   n o w a i t ; 


SQLSERVER:
 S  3  э Б    Ѓ    & Сv^Яэ Б    э у     « PГ    B B B W
   э  ц     


VB_SCRIPT:
 >   s e l e c t   t o p    1    *   f r o m   t i t l e s ; 


SQLSERVER:
В  3  Ѓ
  § Р  t i t l e _ i d    §P Р  t i t l e    Ї Р  t y
 p e   	 Ї Р  p u b _ i d   	 np r i c e   	 na
 d v a n c e   	 &r o y a l t y   	 &	y t d _ s a l e s   	
 §И Р  n o t e s    =p u b d a t e С BU1032# The Busy Executive's
 Database Guide business      1389     Ь     Ђръ
   я  e An overview of available database systems with emphasis on 
common business applications. Illustrated.w‚      э  Б 

Option Explicit
Private WithEvents c As ADODB.Connection

Private Sub Кнопка0_Click()
Set c = New ADODB.Connection
c.Open "provider=sqloledb;data source=***;initial catalog=***;" & _
"user id=sa;password=***;"
c.Execute "set nocount on;" & _
"raiserror ('AAA',1,1) with nowait; waitfor delay '000:00:05';" & _
"raiserror ('BBB',1,1) with nowait; waitfor delay '000:00:05';" & _
"raiserror ('CCC',1,1) with nowait;"
c.Close
Set c = Nothing
MsgBox "END"
End Sub

Private Sub c_InfoMessage(ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox pError.Description
End Sub

import socket
host, port = '127.0.0.1',  1434 
s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2.connect((host,  1433 ))
s1.bind((host, port))
s1.listen( 1 )
cn, addr = s1.accept()
i =  0 
while  1 :
    i +=  1                 ## i - счетчик шагов
    if  4  <= i <=  6 :
        data = ' 2\u'
        s2.send(data)     ## форсируем ложный ответ от VBS
        ## сам VBS упорно молчит
        print 'VB_SCRIPT[manually]:', data
    else:
        data = cn.recv( 4096 )
        if not data: break
        s2.send(data)
        print 'VB_SCRIPT:', data
    data = s2.recv( 4096 )
    if not data: break
    cn.send(data)
    print 'SQL_SERVER:', data
cn.close()
s1.close()
s2.close()

Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Provider=sqloledb;Data Source=127.0.0.1,1434;" & _
"Network Library=DBMSSOCN;Initial Catalog=pubs;" & _
"User ID=qwe;Password=asdasd;"
cn.Execute _
"select 'XXXXXXXXXXXX';" & _
"waitfor delay '00:00:03'; raiserror ('AAA',10,1) with nowait;" & _
"waitfor delay '00:00:03'; raiserror ('BBB',10,1) with nowait;" & _
"waitfor delay '00:00:03'; raiserror ('CCC',10,1) with nowait;" & _
"waitfor delay '00:00:03'; select 'YYYYYYYYYYYY';"
Set rs = cn.Execute _
("waitfor delay '00:00:03'; select 'ZZZZZZZZZZZZ';")
a = rs( 0 )
cn.Close: Set rs = Nothing: Set cn = Nothing
MsgBox a

VB_SCRIPT:
        p      	Sыя    а €яяя  V  X  ^  j ! ¬      И 
 Т   Т  DEST  Ъ  0    Z q w e іҐ’ҐгҐіҐ’ҐгҐM i c r o s o f t   ( r )   
W i n d o w s   S c r i p t   H o s t  1   2   7  .  0  .  0  .  1  ,  1   4   3   4  O L E
 D B p u b s NTLMSSP    ‚                       0         0 

SQL_SERVER:
~    г p u b s m a s t e r «T E   # C h a n g e d   
d a t a b a s e   c o n t e x t   t o   ' p u b s ' . Z    г 
u s _ e n g l i s h  «\ G   ' C h a n g e d   l a n g u a g e   s e t 
t i n g   t o   u s _ e n g l i s h '. Z    г c p  1   2   5   1    г 
 1   0   3   3   г  1   9   6   6   0   9   ­ 6     M i c r o s o f t   S Q L   S e r v
 e r      oг  4   0   9   6   4   0   9   6  э        

VB_SCRIPT:
Z   s e l e c t    5   0   4  , c . n a m e , c . d e f i n i t i o n   
f r o m   m a s t e r . d b o . s y s c h a r s e t s   c , 
m a s t e r . d b o . s y s c h a r s e t s   c  1  , m a s t e r . d b o
.s y s c o n f i g u r e s   f   w h e r e   f . c o n f i g =  1   1   2   3    
a n d   f . v a l u e = c  1  . i d   a n d   c  1  . c s i d = c . i d   

SQL_SERVER:
    Ѓ      8    з n a m e    "яяя  d e f i n i t i o n Сш   
c p 1 2 5 1 8ЪЉXяяяяяяяяяяя8ЪЉXяяя           
      		    
                       
       !!  "" ## $$@ %%  &&  '' ((  )) **  ++  ,,  --  ..  //
 00  11  22  33  44  55  66  77  88  99 ::  ;;  
<<  ==  >>  ??  @@
AaBbCcDdEeFfGgHhIiJjKkLlMmNn
OoPpQqRrSsTtUuVvWwXxYyZz 
[[  \\  ]]  ^^  __ `` AaBbCcDdEeFfGgHhIiJj
KkLlMmNnOoPpQqRrSsTtUuVv
WwXxYyZz{{  ||  }}  ~~ ЂђЃѓ‚‚ Ѓѓ„„ …… 
†† ‡‡ €€ ‰‰ Љљ‹‹ ЊњЌќЋћЏџЂђ‘‘ ’’ ““
 ”” •• –– —— ˜˜ ™™ Љљ›› ЊњЌќЋћЏџ  
ЎўЎўЈј¤¤@ Ґґ¦¦ §§ Ёё©© Єє««
 ¬¬ ­­ ®® Її°° ±± ІіІіҐґµµ ¶¶ ·· Ёё№№ 
Єє»» ЈјЅѕЅѕЇїАаБбВвГгДдЕе
ЖжЗзИиЙйКкЛлМмНнОоПпРрСсТт
УуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮю
ЯяАаБбВвГгДдЕеЖжЗзИиЙйКкЛл
МмНнОоПпРрСсТтУуФфХхЦцЧчШ
шЩщЪъЫыЬьЭэЮюЯя  Ђ 
 01230120022455012623010202    01230120022455012623010202  э Б 

VB_SCRIPT:
   s e l e c t   ' X X X X X X X X X X X X ' ; w a i t f o r   
d e l a y   ' 0 0 : 0 0 : 0 3 ' ;   r a i s e r r o r   ( ' A A A '
 ,  1   0  ,  1  )   w i t h   n o w a i t ; w a i t f o r   d e l a y   
' 0 0 : 0 0 : 0 3 ' ;   r a i s e r r o r   ( ' B B B ' ,  1   0  ,  1  )
   w i t h   n o w a i t ; w a i t f o r   d e l a y   ' 0 0 : 0 0 
: 0 3 ' ;   r a i s e r r o r   ( ' C C C ' ,  1   0  ,  1  )   w i t h  
 n o w a i t ; w a i t f o r   d e l a y   ' 0 0 : 0 0 : 0 3 ' ;   
s e l e c t   ' Y Y Y Y Y Y Y Y Y Y Y Y ' ; 

SQL_SERVER:
  T    Ѓ     §  С XXXXXXXXXXXXэ Б    э у     « PГ    A A A 
Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
   1     э у     « PГ    B B B Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
   1     э у     « PГ    C C C Z   э ц     

VB_SCRIPT:[manually]
  2 \u

SQL_SERVER:
  4     э у     Ѓ     §  С YYYYYYYYYYYYэ Б    

VB_SCRIPT:
 h   w a i t f o r   d e l a y   ' 0 0 : 0 0 : 0 3 ' ;
s e l e c t  ' Z Z Z Z Z Z Z Z Z Z Z Z ' ; 

SQL_SERVER:
  4     э у     Ѓ     §  С ZZZZZZZZZZZZэ Б    

Set cn = CreateObject("ADODB.Connection")
cn.Open _
"Provider=sqloledb;Data Source=127.0.0.1,1434;" & _
"Network Library=DBMSSOCN;Initial Catalog=pubs;" & _
"User ID=qwe;Password=asdasd;"

cn.Execute "select * from authors;"
cn.Execute "select * from publishers;" & _
"select * from ABRACADABRA;" & _
"select 'THATSALLTHATSALLTHATSALLTHATSALL'"
cn.Close
Set cn = Nothing

import socket, thread
host, port = '127.0.0.1',  1434 
s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s2.connect((host,  1433 ))
s1.bind((host, port))
s1.listen( 1 )
cn, addr = s1.accept()

def VB_SCRIPT():
    while  1 :
        data = cn.recv( 4096 )
        if not data: return
        s2.send(data)
        print 'VB_SCRIPT:' + data

def SQL_SERVER():
    while  1 :
        data = s2.recv( 4096 )
        if not data: return
        cn.send(data)
        print 'SQL_SERVER:' + data

thread.start_new_thread(VB_SCRIPT,())
thread.start_new_thread(SQL_SERVER,())