[Tópico Único - Funções úteis

[Marcos Guedes]

Renomeando em caracteres contidos em uma string:

Código:

Function StrTran(cString, cFindString, cReplaceString)
   Dim nPos
   Dim nPosLast
   Dim cResult
   
   nPos = InStr(cString, cFindString)
   nPosLast = 1
   
   Do Until nPos = 0
      cResult = cResult & Mid(cString, nPosLast, nPos - nPosLast)
        cResult = cResult & cReplaceString
        nPosLast = nPos + Len(cFindString)
        nPos = InStr(nPosLast, cString, cFindString)
   Loop
   
   If nPosLast = 1 Then
      cResult = cString
   ElseIf nPosLast <= Len(cString) Then
      cResult = cResult & Mid(cString, nPosLast)
   End If
   
   If nPosLast <> 0 Then
      StrTran = cResult
   Else
      StrTran = cString
   End If
End Function

[Marcos Guedes]

Tratamento de exceção:

Código:

On Error Resume Next
'** Inclua seu código aqui...
   
If err = 0 Then
  response.write("Não ocorreram erros!")
else
  response.write("Ocorreram erros!")
End If

[JPaulo]

Nome Computador + Login do Usuário + Nome Completo do Usuário

Set strInforma = CreateObject("WScript.Network")
sDominio = strInforma.UserDomain
sComputadorNome = strInforma.ComputerName
sUsuarioLogin = strInforma.UserName
sPath= sDominio & "/" & sUsuarioLogin
Set sUsuarioNome = GetObject("WinNT://" & sPath & ",user")
WScript.Echo "Computador Nome: " & sComputadorNome
WScript.Echo "Usuário Login: " & sUsuarioLogin
WScript.Echo "Usuário Nome: " & sUsuarioNome.FullName


Abraço
JPaulo
http://maximoaccess.maisforum.com/

[JPaulo]

Total de Registros numa Tabela de um MDB

Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\SeuBanco.mdb;Jet OLEDB:Database Password=jpaulo;"
objRecordSet.Open "SELECT * FROM SuaTabela", _
objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
Wscript.Echo "Quantidade de registos: " & objRecordset.RecordCount
objRecordSet.Close
objConnection.Close


Abraço
JPaulo
http://maximoaccess.maisforum.com/

[Marcos Guedes]

Obrigado por contribuir!