

                         VBForums -    ̳ 


                         .       
               


         VBForums-̳: HTTP://hzsoft.yeah.net
            
                  ύʼ: VBForums@usa.net?Subject=VBForums

            нϵ: ympang@bigfoot.com



:
    accessݿһƬֶΣΪOLE󣬵BMPͼƬ
    VB5.0еôݿʱIMAGEؼʾͼƬIMAGEؼDATAFIELD
    ΪÿƬֶΡʱȴΪЧͼƬʸν
                                - wyx

> :
>     λ֣
>         ҪVBһͨ8051Ƭͨ,ÿηһֽϢ
>         ʹMscomm1.output=chr(101)ķʱ,128ϵַȥ
>         0chr()ȱݣ͸chrb()ʹ
>         Mscomm1.output=chrB(129)ʱͷȥֵChrW()ֲܷ
>         ֽݡ֪λṩ벻ߴͽ̡
>         עʹVB5.0ҵ档MscommؼԴڷϢ8051Ƭͨš
>          MscommؼĻΪ
>             DTREnable=False
>             EOFEnable=False
>             Handshaking=0,comNone
>             InputLen=1
>             InputMode=comInputModeBinary
>             NullDiscard=False
>             ParityReplace=?
>             RThreshold=1
>             RTSEnable=False
>             Settings=110,n,8,1    'ʹõƬ貨Ϊ110
>             SThreshold=1
>             OutBufferSize=512
>             InBufferSize=1024
> 
>                             - liugang007
> 

:
    ⲻchr()ȱݣΪʹunicodeԵʣκַģ
    ˫ֽڿǡԽʹñ׼ַͷʽ֣תַ
    ٷշת֣磺

    Ҫ255(0xffֽ) ת"2""5""5"ȻٷȻЧ½
    2ԸUnicodeǷǳЧġ

    ô˷뵥Ƭͨţ2400Ըߣһ

                               - zouyungang@usa.net


:
    dear sirs:
    i'm debuging a cgi programm with vb5 ,but it can't accept chinese,
    please give me a sample! thanks!
                                    yours sincerely


ѡ

                    ǳ ̸Visual Basic 5.0 RDO 2.0 

----   /    Ӧ     ǰ      УVisual
Basic                  Ա   ʹ
á      /                
Ҫ VB 4.0(    )       (DAO)      
 ˡ   VC  ȣVB        α  루p-code
  ʱVB    ÿ һ  α   ת      루n-code 
  ִ У           Զ       VB
4.0(    )        Client/Server    Ҫ 
Ȼ   Щ      ΢   ˾   VB 5.0   Բ   
VB 5.0     ActiveX   Internet    ԣ   ǿ
 ԭ  ר Ϊ Զ   ϵ        Զ     RDO
1.0   ܡ       ʵ       һ Щ  ᣬ 
     

     RDO 2.0   

---- VB 5.0  ҵ   RDO 2.0  ΢  ΪODBC API   32-bit
ActiveX       32 λ Level II ODBC   Դ    
   VB 4.0  RDO 1.0           ʹ  
      Զ ODBC    ϵ ͳ     ܡ  Ȼ DAO
  ģ ʽ        ƣRDO       Զ   
         DAO ʹ  Jet    ԣRDO  һ 
     㣬 ֱ    ODBC API    ODBC driver  
̨     档    Զ       ʱRDO   ʹ  
   ѯ    ֱ   ODBC   Դ     һ ϵ  
      Զ         Ҫ RDO   С 
250K       죬     Զ        
          RDO   ActiveX     Ч
  ͬ ʱ Ҳ   ODBC VBSQL API   ģ ʽ      

     RDO 2.0     

---- ΢    RDO          ܡ RDO    
 £ ͨ        ϣ ʹ RDO         
    Զ        

---- RDO     rdoEngine    ʾ Զ    Դ   
        Զ              
   ϡ       RDO   ʱrdoEngine     
  

---- rdoErrors      ODBC API         Ϣ 
ͨ 

---- rdoErrors    ODBC      

---- rdoEnvironment   RDO        ֧ BeginTrans
CommitTrans  RollbackTrans      ʼ      ODBC
  ʽ   ͬ ʱ Ҳ ͨ             
rdoConnection      ½  Ϣ 

---- rdoConnection        Զ    Դ   ӣ  
     SQLDriverConnect     SQLDisconnect   
  ӡRDO        ӡrdoConnection    
rdoTablerdoQuery rdoResultset       rdoQuery 
 ȡ  1.0    rdoPreparedStatement    ͨ    
             ǿ    Զ      
            

---- RDO   ģ                 
 ʹ     ODBC   ֱ      ԴRDO    
ODBC          rdoEnvironment, rdoConnection,
rdoQuery rdoResultset    ֧ ODBC     ʹ ODBC  
ODBC API     Щ   

---- RDO 2.0    1.0       ݣ        
ԣ    ʽ    ¡  ǿ      ֧ ֡    
ͣrdoQuery  ѯ    ֧           

           

----   ODBC     /        ʱ    
ѡ             ֱ  Ӱ       ܡ
RDO 2.0 ֧      ⣺ODBC   ⡢       ⡢ 
      rdUseNone   ⡣          
 ΢    VFP Rushmore             
                    ѯ  ʹ
BatchUpdate    Զ           ֮ ǰ   
  Ӱ           ODBC   ⣬ ѡ   
        ǿ  ϵ ͳ   ܣ    С    ͨ
Ѷ  

---- RDO  rdOpenForwardOnly ֻ   ǰ   rdOpenStatic
? ̬      ꣩rdOpenKeyset    ꣩ 
rdOpenDynamic  ̬     ꣩       ͡ ÿ  
   ѡ    Ӧ     ͡ RDO 2.0      ʱ  
         rdConcurRead ֻ  ʽ  
OnlyrdConcurLock   ʽ  rdConcurRowVer     
rdConcurValues    ֵ   rdConcurBatch     
      Ϊ   ʽ    ͡      ʹ   Щ
   ͡ 

      ѯ  rdoQuery

---- rdoQuery   RDO 2.0  һ            
SQL  ѯ  ȡ  1.0   rdoPreparedStatement    
        һ £      ǿ  Զ     
      ܡ 

---- rdoQuery   ͨ                Զ
   ⣬     һ     SQL  䡣     Ҫ 
    Զ      ʱ    rdoQuery      
ѯ   Ҳ  ʹ  rdoParameter           
      ֵ  ⣬  ͨ   rdoQuery MaxRows   
   ѯ              ѯ     
       

     RDO 2.0     

---- RDO 2.0          ģ ʽ     ǰ   ѯ
  ģ ʽRDO 2.0 rdoEnginerdoEnviromentrdoConnection
rdoResultset       ѯ    Щ       ʼ
 RDO          һ    ʵ    ˵ RDO
      Ӧ á 

Option Explicit
Public WithEvents rdo_     As rdoConnection
Public qry    ѯ  ѯ As rdoQuery
Public rst    ѯ  ¼ As rdoResultset

Private Sub Form_Load()
Dim Temp_Cnct As String
   .Hide       '     Ϊ   
Temp_Cnct = "UID=;PWD=;DATABASE=" & db    & ";SERVER=" _
& str      & ";DRIVER={SQL SERVER};DSN='';"
'db   ⡢str        Ϊ         
Set rdo_     = New rdoConnection
        With rdo_    
            .LoginTimeout = 4
            .Connect = Temp_Cnct
            .QueryTimeout = 30
            .CursorDriver = rdUseServer
            .EstablishConnection rdDriverNoPrompt, False, rdAsyncEnable
        End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    rdo_    .Close
    Set rdo_     = Nothing
End Sub
Private Sub    Ť_Click()
qry    ѯ  ѯ.Close
    Set rst    ѯ  ¼ = Nothing
    Set qry    ѯ  ѯ = Nothing
End Sub
' rdoConnection         ʱ  Connect  
Private Sub rdo_    _Connect(ByVal ErrorOccurred As Boolean)
Dim Temp_er As rdoError
If ErrorOccurred = True Then
For Each Temp_er In rdoErrors
If Temp_er.Number = 53 Then

ElseIf   

End If
Next Temp_er
rdoErrors.Clear
Unload    
Else
   .Show
End If
End Sub
Private Sub    ѯ()
Dim Temp_SQL As String
' sp_    ѯ(?,?)   Զ       һ 
  ̣       ʱ     
'   Ϊ  һ  ʱ      
Temp_SQL = "{call sp_    ѯ(?,?)}"
Set qry    ѯ  ѯ = rdo_  
 .CreateQuery("qry    ѯ  ѯ", Temp_SQL)
End Sub
Private Sub  ѯ  Ť_Click()
 ѯ  Ť.Enabled = False
   Ť.Enabled = False
qry    ѯ  ѯ.rdoParameters(0) = #1997-1-1#
qry    ѯ  ѯ.rdoParameters(1) = #1997-1-2#
Set rst    ѯ  ¼ = qry    ѯ  ѯ
..OpenResultset(rdOpenForwardOnly, _
& rdConcurReadOnly, rdAsyncEnable)
End Sub
' rdoConnection       ѯ ʱ   
QueryTimeout     ֵ ʱ  QueryTimeout  
Private Sub rdo_    
_QueryTimeout(ByVal Query As rdoQuery, Cancel As Boolean)
Cancel = False          '  ѯ   Ԥ  ʱ  ʱ  ȡ Query
End Sub
'  ѯ    λ (MoveLast) 
    ʱ  QueryComplete  
Private Sub rdo_    
_QueryComplete(ByVal Query As rdoQuery, ByVal ErrorOccured As Boolean)
    If Query.Name = "qry    ѯ  ѯ" Then
        If ErrorOccured = True Then
               Ϣ  
        Else
            
 ѯ  Ť.Enabled = True
        End If
End If
   Ť.Enabled = True
End Sub
Sub    Ϣ  ( )
Dim er As rdoError
For Each er In rdoErrors
If              er.Number = 229 Then    ' select    Ȩ  
MsgBox " û  Ȩ      "
ElseIf  er.Number = 

End If
Next er
rdoErrors.Clear
End Sub

----    ʹ  rdoConnection   ConnectQueryComplete
QueryTimeout   ͨ   Щ           
           ȣ           
 㡣 

----    RDO 2.0  Ϊ һ    ActiveX    ʹ 
  Ա ֻ   RDO              
ODBC  VBSQL API   ģ ʽ       ⣬VB 5.0    
    Ҳ ʹ       ǰ      磬  VB 5.0
ʹ  VC++     ʹ  Visual C++    ͬ     
          룬        ȣ  VB 5.0
  Ϊ   ʹ ODBC     /    Ӧ      
 ǰ      ֮ һ   û      Visual Basic 5.0
    Windows Ӧ            


                    й˾Ȩ


˶ http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


