problem with late binding (option strict on)

[Dieter Schwerdtfeger via DotNetMonster.com]

I have this function where i search through my database for items that were made on a specific date. The line "CType(dvClubs.Item(teller).Item(veld).ToShortDateString" gives me the error : option strict on disallows late binding. I have read some posts here about late binding but I just can't figure it out :s This code worked with option strict off, but i just heard that we had to write our program with option strict on :/
I hope you guys can help me

Public Function ZoekOntstaan(ByVal search As Date, ByVal veld As String) As Integer
For teller As Integer = 0 To dvClubs.Count - 1
If CType(dvClubs.Item(teller).Item(veld).ToShortDateString, String) = search Then
Return teller
End If
Next
Return -1
End Function

 

[Herfried K. Wagner [MVP]]

I have this function where i search through my database for items that were
made on a specific date. The line
"CType(dvClubs.Item(teller).Item(veld).ToShortDateString" gives me the
error : option strict on disallows late binding. I have read some posts
here about late binding but I just can't figure it out :s This code worked
with option strict off, but i just heard that we had to write our program
with option strict on :/
I hope you guys can help me

Public Function ZoekOntstaan(ByVal search As Date, ByVal veld As
String) As Integer
For teller As Integer = 0 To dvClubs.Count - 1
If CType(dvClubs.Item(teller).Item(veld).ToShortDateString,
String) = search Then
Return teller
End If

You can remove the 'CType' because 'ToShortDateString' already returns a
string. Maybe you need to cast 'dvClubs.Item(teller)' and
'<...>.Item(veld)'.

 

[Guest]

Try:

You need to convert dvClubs.Item(teller).Item(veld) to a DateTime before
using the ToShortDateString as it's data type is unknown.

For teller As Integer = 0 To dvClubs.Count - 1
Dim dt As DateTime = CType(dvClubs.Item(teller).Item(veld),
DateTime)
If dt.ToShortDateString = search Then
Return
End If
Next

Hope this help.
Chris.

 

[Dieter Schwerdtfeger via DotNetMonster.com]

Well, now I've got an error on the dt.ToShortDateString => option strict on disallows implicit conversions from string to date
thanks for the help already

Public Function ZoekOntstaan(ByVal search As Date, ByVal veld As String) As Integer
For teller As Integer = 0 To dvClubs.Count - 1
Dim dt As DateTime = CType(dvClubs.Item(teller).Item(veld), DateTime)
If dt.ToShortDateString = search Then
Return teller
End If
Next
Return -1
End Function

 

[Cor Ligthert]

Dieter

Normally this should be as far as I can see enough,
If DirectCast(dvClubs(teller)(veld),DateTime).Date = search.Date Then

Cast in the dataview the object at row(teller) and in that the item(veld) as
datetime and use in that the date part to compare with the date part from
the datetimefield Search

I hope this helps?

Cor

 

[Guest]

If dt.ToShortDateString = search.ToShortDateString Then

 

[Dieter Schwerdtfeger via DotNetMonster.com]

now i get an error at "If DirectCast(dvClubs(teller)(veld), Date).Date = search.Date Then"


Public Function ZoekOntstaan(ByVal search As Date, ByVal veld As String) As Integer
For teller As Integer = 0 To dvClubs.Count - 1
If DirectCast(dvClubs(teller)(veld), Date).Date = search.Date Then
Return teller
End If
Next
Return -1
End Function


An unhandled exception of type 'System.ArgumentException' occurred in system.data.dll

Additional information: onstaan is neither a DataColumn nor a DataRelation for table clubs.

 

[Dieter Schwerdtfeger via DotNetMonster.com]

oh, forgot to do the 2nd part of your reply cor lemme try to figure that out now

 

[Dieter Schwerdtfeger via DotNetMonster.com]

oh, it's just the explanation

man, it's all so overwhelming, got so many things on my mind :s

 

[Dieter Schwerdtfeger via DotNetMonster.com]

about the aditional information, ontstaan is a column in my database under table clubs...

 

[Dieter Schwerdtfeger via DotNetMonster.com]

Well, I just changed my table so that i don't have a full date like 15/02/1900 but i just made it an integer with the year in, so just 1900, a lot easier like this
thanks for all your help

 

[Herfried K. Wagner [MVP]]

If dt.ToShortDateString = search.ToShortDateString Then

In this case it would be better to compare the dates directly:

\\\
If dt = search Then
...
End If
///