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