PC Toledo

Código: Selecionar todos

// Sample directives to help translation of VBScript.

// WARNING: Line continuation _ is NOT supported.
//        : LOOP becomes END so don't mix VBScript support with XBScript 
//          code that uses LOOP!   
//        : VBScript Function call without () is NOT supported.

#command ' <*x*> =>
#command Dim <vars,...> => Local <vars>
#command Set <!id!> = <exp> => <id> := <exp>
#command If <cond> Then => IF <cond>
#command Loop => End

#translate .<!id!> => :<id>
#translate Not => !
#translate And => .AND.
#translate Or => .OR.
#translate MsgBox <exp>[.<more>] => MessageBox( 0, <exp>[:<more>], "XBScript", 0 )
#translate Nothing => NIL
//#translate _ => ;
#translate & => +   

#define adCmdTable 0

/* ****************************** codigo exemplo ****************************** *
' Vbscript comment.
Dim cn
Dim rs

Set cn = CreateObject( "ADODB.Connection" )

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" ;
  & "User Id=Admin; Data Source=ado.mdb"

cn.Open

Set rs = CreateObject( "ADODB.Recordset" )
rs.Open( "Names", cn, 0, 1, 2 )

do while not rs.eof()
  MsgBox rs.Fields( "First" ).Value
  rs.MoveNext()
loop

rs.Close
Set rs = Nothing

'cn.Close
Set cn = Nothing
* ****************************** codigo exemplo ****************************** */