problem on getting oledbcommand worked

  • Thread starter Thread starter Jak
  • Start date Start date
J

Jak

I think I have set all the required parameters of the oledbcommand already,
but the procedure still refuse to proceed, it sayes that there must be one
or more parameters not set.

The following is the snippet of my codes:

'-----------------Interface----------------
Public Interface IDatabase
......
ReadOnly Property cnDatabase() As Data.IDbConnection

End Interface

'------------------class login-----------------------
Dim clsDatabase As IDatabase

Private Function Validate(ByVal User As String, ByVal Password As
String) As Boolean
Dim cmd As New OleDb.OleDbCommand()
Dim rs As Int16

cmd.Connection = clsDatabase.cnDatabase
cmd.CommandType = CommandType.Text
cmd.CommandText = "Select count(*) from TLOGIN Where LoginID='" +
User + "' AND Passowrd='" + Password + "';"
' cmd.CommandTimeout = 30

rs = CInt(cmd.ExecuteScalar().ToString)
MsgBox(rs.ToString)

End Function

Best regards,

Jack Zhong
 
Hi Armin,

I am glad to see you back again, whatever you think about OT post.

:-)

Cor
 
Oh, I did not find this typing mistake in the code. ^_^ . Thank you very
much.

Best regards,

Jack Zhong
 
Back
Top