datasource question

Hi
I would preciate any help on calling for a fuction inside a datasource
string using visual basic.

for example:

I have one function that evaluates some condition in each recordset and
would like to create something like this:
mydatacontrol.recordsource = "select * from mytable where
myfunction(variable)='valor'"

the main idea is to replace all the 'Á' by an 'A', the 'é' by an 'e' and

on calling the function

if i use the expression above calling myfunction i get a error
here is my code for myfunction

Public Function myfunction(cadeia As String)
Dim cacentos
Dim sacentos
Dim nciclo As Integer
Dim acento
cacentos = "áéíóúÁÉÍÓÚãõàÕâêîôûÂÊÎÔÛçÇàèìòùÀÈÌÒÙ"
sacentos = "aeiouAEIOUaoAOaeiouAEIOUcCaeiouAEIOU"
For nciclo = 1 To Len(cadeia)
acento = InStr(cacentos, Mid(cadeia, nciclo, 1))
If acento <> 0 Then
cadeia = Left(cadeia, nciclo - 1) & Mid(sacentos, acento, 1) &
Mid(cadeia, nciclo + 1)
End If
Next
myfunction= cadeia
End Function

Wow, how many languages do you speak? Portuguese? German? Spanish?
Italian?

This isn't a classic ASP issue, as indicated by your code. I almost

what you're saying, and if I do:

mydatacontrol.recordsource = "select * from mytable where " &
myfunction(variable) & "='valor'"

Ray at work

"news.microsoft.com" wrote in message
news:
> Hi
> I would preciate any help on calling for a fuction inside a datasource
> string using visual basic.
>
> for example:
>
> I have one function that evaluates some condition in each recordset and
> would like to create something like this:
> mydatacontrol.recordsource = "select * from mytable where
> myfunction(variable)='valor'"
>
> the main idea is to replace all the 'Á' by an 'A', the 'é' by an 'e' and
so
> on calling the function
>
> if i use the expression above calling myfunction i get a error
> here is my code for myfunction
>
> Public Function myfunction(cadeia As String)
> Dim cacentos
> Dim sacentos
> Dim nciclo As Integer
> Dim acento
> cacentos = "áéíóúÁÉÍÓÚãõàÕâêîôûÂÊÎÔÛçÇàèìòùÀÈÌÒÙ"
> sacentos = "aeiouAEIOUaoAOaeiouAEIOUcCaeiouAEIOU"
> For nciclo = 1 To Len(cadeia)
> acento = InStr(cacentos, Mid(cadeia, nciclo, 1))
> If acento <> 0 Then
> cadeia = Left(cadeia, nciclo - 1) & Mid(sacentos, acento, 1) &
> Mid(cadeia, nciclo + 1)
> End If
> Next
> myfunction= cadeia
> End Function
>
>
>
>

Mostrar la cita

> Dim cacentos
> Dim sacentos
> Dim nciclo As Integer
> Dim acento, resultado
> cacentos = "áéíóúÁÉÍÓÚãõàÕâêîôûÂÊÎÔÛçÇàèìòùÀÈÌÒÙ"
> sacentos = "aeiouAEIOUaoAOaeiouAEIOUcCaeiouAEIOU"
> resultado = ""
> For nciclo = 1 To Len(cadeia)
> acento = InStr(cacentos, Mid(cadeia, nciclo, 1))
> If acento <> 0 Then
> resultado = resultado & Mid(sacentos, acento, 1)
> Else
> resultado = resultado & Mid(cadeia, nciclo, 1))
> End If
> Next
> myfunction= resultado
> End Function

That will not evaluate each record.
I should write record instead of value
Thanks anyway

"Ray at <%=sLocation%>" <myfirstname at lane34 dot com>

news:u6enG%
Mostrar la cita

Wow, how many languages do you speak? Portuguese?

Mostrar la cita

Italian?

This isn't a classic ASP issue, as indicated by your

follow
Mostrar la cita

what you're saying, and if I do:

mydatacontrol.recordsource = "select * from mytable

Mostrar la cita

myfunction(variable) & "='valor'"

Ray at work

"news.microsoft.com" wrote in message
news:
> Hi
> I would preciate any help on calling for a fuction

Mostrar la cita

> string using visual basic.
>
> for example:
>
> I have one function that evaluates some condition in

Mostrar la cita

> would like to create something like this:
> mydatacontrol.recordsource = "select * from mytable

Mostrar la cita

> myfunction(variable)='valor'"
>
> the main idea is to replace all the 'Á' by an 'A',

Mostrar la cita

so
> on calling the function
>
> if i use the expression above calling myfunction i

Mostrar la cita

> here is my code for myfunction
>
> Public Function myfunction(cadeia As String)
> Dim cacentos
> Dim sacentos
> Dim nciclo As Integer
> Dim acento
> cacentos = "áéíóúÁÉÍÓÚãõàÕâêîôûÂÊÎÔÛçÇàèìòùÀÈÌÒÙ"
> sacentos = "aeiouAEIOUaoAOaeiouAEIOUcCaeiouAEIOU"
> For nciclo = 1 To Len(cadeia)
> acento = InStr(cacentos, Mid(cadeia, nciclo, 1))
> If acento <> 0 Then
> cadeia = Left(cadeia, nciclo - 1) & Mid

Mostrar la cita

> Mid(cadeia, nciclo + 1)
> End If
> Next
> myfunction= cadeia
> End Function
>
>
>
>

.

reformulating example :

mydatacontrol.recordsource = "select * from mytable where
myfunction(recordset.field)='valor'"