Skip to content

Commit

Permalink
Update DB protocol.
Browse files Browse the repository at this point in the history
  • Loading branch information
Freymaurer committed Mar 11, 2021
1 parent 16c3099 commit 4ae3198
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/Server/ProtocolDB.fs
Original file line number Diff line number Diff line change
Expand Up @@ -89,14 +89,11 @@ let getXmlByProtocol cString (protocol:ProtocolTemplate) =
.CommandText <- """
SELECT * FROM ProtocolXml
WHERE FK_Name = @name
AND FK_Version = @version
"""

let nameParam = cmd.Parameters.Add("name",MySqlDbType.VarChar)
let versionParam = cmd.Parameters.Add("version",MySqlDbType.VarChar)

nameParam.Value <- protocol.Name
versionParam.Value <- protocol.Version
nameParam.Value <- protocol.Name

use reader = cmd.ExecuteReader()
let res = [|
Expand Down

0 comments on commit 4ae3198

Please sign in to comment.