我有一个函数,它只是将一些值插入到表中。
CREATE OR REPLACE FUNCTION register_new_user(
pnick character varying
, ppasshash character varying
, pmail character varying
)
RETURNS void AS
$BODY$
Declare
Begin
Insert into registration
values(pNick, pPasshash, pMail);
End;
$BODY$ LANGUAGE plpgsql;
现在,当我在 pgAdmin 中使用此功能时
Select register_new_user('a','b','c') as Answer;
它工作得很好,但是当我尝试通过我的 .NET-Databasemanagement 执行此操作时,我在 2 美元处收到来自 npgsql 的语法错误(这就是异常所说的)。
这就是我通过 VB.NET 调用函数的方式:
Using func As DatabaseFunction = DatabaseFunction.CreateNewFunctionInstance("register_new_user")
func.AddParameter("pnick", txt_Nick.Text, Data.ParameterDirection.Input)
func.AddParameter("ppasshash", passhash, Data.ParameterDirection.Input)
func.AddParameter("pmail", txt_Mail.Text, Data.ParameterDirection.Input)
func.ExecuteNonQuery()
End Using
在 passhash 的情况下,它并不关心我在那里写的内容,即使“你好”也不起作用。我对密码使用 UTF8 编码,并在连接字符串中也这么说。我的 .NET 程序的数据库管理如下所示:
Public Class DatabaseFunction
Implements IDisposable
Public dbcon As IDbConnection
Private comm As NpgsqlCommand
Public trans As IDbTransaction
Private funcname As String = String.Empty
Private dr As IDataReader = Nothing
Public Sub New(ByVal functionname As String, ByVal Connection As IDbConnection, ByVal Transaction As IDbTransaction)
Try
dbcon = Connection
trans = Transaction
funcname = functionname
comm = New NpgsqlCommand(functionname, dbcon, trans)
comm.CommandType = CommandType.StoredProcedure
Catch ex As Exception
Throw New Exception("Fehler bei der Initierung einer Datenbankfunktion: " & ex.Message)
End Try
End Sub
Public Shared Function CreateNewFunctionInstance(ByVal FunctionName As String) As DatabaseFunction
Try
Dim dbcon As IDbConnection = DatabaseConnection.CreateNewOpenConnection()
Return New DatabaseFunction(FunctionName, dbcon, dbcon.BeginTransaction)
Catch ex As Exception
Throw ex
End Try
End Function
Public Sub AddParameter(ByVal Name As String, ByVal parameter As Object, ByVal Direction As ParameterDirection)
Try
Dim newparam As NpgsqlParameter = comm.CreateParameter()
newparam.ParameterName = Name
newparam.Value = parameter
newparam.Direction = Direction
comm.Parameters.Add(newparam)
Catch ex As Exception
Throw ex
End Try
End Sub
Public Function ExecuteReader() As IDataReader
Try
comm.Connection = dbcon
comm.Transaction = trans
comm.Prepare()
dr = DirectCast(comm.ExecuteReader(), IDataReader)
Return dr
Catch ex As Exception
Throw ex
End Try
End Function
Public Sub ExecuteNonQuery()
Try
comm.Connection = dbcon
comm.Transaction = trans
comm.Prepare()
comm.ExecuteNonQuery()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Shared Function CreateNewDatabaseConnection() As IDbConnection
Try
Return DatabaseConnection.CreateNewOpenConnection()
Catch ex As Exception
Throw ex
End Try
End Function
Public Sub Dispose() Implements IDisposable.Dispose
Try
If Not dr Is Nothing Then
If Not dr.IsClosed Then
dr.Close()
dr.Dispose()
End If
End If
trans.Commit()
comm.Dispose()
dbcon.Close()
dbcon.Dispose()
Catch ex As Exception
Throw ex
End Try
End Sub
End Class
有人可以帮我解决这个问题,因为它让我在这里发疯。
我最近发现 Syntaxerror 是由 command.prepare()-Sub 引起的。当我直接执行我的东西时,它工作正常。