Hello. Android!!

 

ADO DataType Enum ADO DataType Enum Value .NET Framework Visual Basic 6.0 Access SQL Server Oracle adBigInt 20 Int64 SqlInt64 BigInt Variant   BigInt   adBinary 128 Byte[] SqlBinary Binary Variant   Binary TimeStamp Raw adBoolean 11 Boolean SqlBoolean Boolean Boolean YesNo Bit   adBSTR 8 String BSTR         adChapter 136 (DataReader)         adChar 129 String  SqlString Char String   Char Char adCurrency 6 Decimal SqlMoney Currency Currency Currency Money SmallMoney   adDate 7 DateTime Date Date DateTime     adDBDate 133 DateTime DBDate         adDBFileTime 137 DBFileTime         adDBTime 134 DateTime DBTime         adDBTimeStamp 135 DateTime SqlDateTime DBTimeStamp Date DateTime Datetime  SmallDateTime Date adDecimal 14 Decimal Decimal Variant     Decimal adDouble 5 Double SqlDouble Double Double Double Float Float adEmpty 0 Empty         adError 10 External-Exception Error         adFileTime 64 DateTime Filetime         adGUID 72 Guid  SqlGuid Guid Variant ReplicationID UniqueIdentifier   adIDispatch 9 Object IDispatch         adInteger 3 Int32 SqlInt32 Integer Long  AutoNumber  Integer Long Identity Int Int adIUnknown 13 Object IUnknown         adLongVarBinary 205 Byte[] SqlBinary LongVarBinary Variant OLEObject Image Long Raw Blob adLongVarChar 201 String SqlString LongVarChar String Memo Hyperlink Text Long Clob adLongVarWChar 203 String SqlString LongVarWChar String Memo Hyperlink NText NClob adNumeric 131 Decimal SqlDecimal Numeric Variant Decimal Decimal Numeric Decimal Integer Number SmallInt adPropVariant 138 Object PropVariant         adSingle 4 Single SqlSingle SIngle Single Single Real   adSmallInt 2 Int16, SqlInt16 SmallInt Integer Integer SmallInt   adTinyInt 16 Byte TinyInt         adUnsignedBigInt 21 UInt64 UnsignedBigInt         adUnsignedInt 19 UInt32 UnsignedInt         adUnsignedSmallInt 18 UInt16 UnsignedSmallInt         adUnsignedTinyInt 17 Byte SqlByte UnsignedTinyInt Byte Byte TinyInt   adUserDefined 132           adVarBinary 204 Byte[]  SqlBinary VarBinary Variant ReplicationID VarBinary   adVarChar 200 String SqlString VarChar String Text VarChar VarChar adVariant 12 Object Variant Variant   Sql_Variant VarChar2 adVarNumeric 139 VarNumeric         adVarWChar 202 String SqlString VarWChar String Text NVarChar NVarChar2 adWChar 130 String SqlString WChar String   NChar

Function chrbyte(str,strlen)
 Dim returnStr, charat, cutchk, wLen, j
 cutchk = 0

 for j=1 to len(str)
  charat=mid(str, j, 1)
  if asc(charat)>0 And asc(charat)<255 Then
   If asc(charat) = 1 Then
    wLen=wLen+2 
   Else
    wLen=wLen+1 
   End If
  Else
   wLen=wLen+2
  end If
  
  returnStr = returnStr & charat

  If wLen >strlen Then
   cutchk = 1
   Exit for
  End if
 Next
 
 If cutchk = 1 then
  chrbyte = returnStr & ".."
 Else
  chrbyte = returnStr
 End if
end Function

function OntextCheck(obj)
{
 var str = new String(obj.value);
 var _byte = 0;
 if(str.length != 0)
 {
    for (var i=0; i < str.length; i++)
    {
      var str2 = str.charAt(i);
      if(escape(str2).length > 4)
      {
       _byte += 2;
      }
      else
      {
       _byte++;
      }
    }
 }
 return _byte;
}