先日、Visual Studio2019をインストールしたばかりで、Visual Basicに始めて着手しています。
ソリューションを作成し、サーバ上のPostgreSQLストアドファンクションをVBから呼び出すコードを
ビルドしましたが「BC2008 入力リソースが指定されていません」が発生してエラー消去できずにいます。
BC2008をクリックしてWeb情報を確認し、またWebをググっても解決策が解りません。
以下コードをビルドすると、なぜBC2008エラーが起きるか教えてください。
Public Class Postgres Const PostgresRequestType As Integer = 0 Const PostgreSchemaName As String = "scm_db" Const PostgresOperationID As String = "*" Const PostgresStartTimestamp As String = "0" Const PostgresLastTimestamp As String = "0" Const PostgresCSVOutputDirectory As String = "D:\VB_VirtualCallEvaluationResults" Dim Con As Object Dim cmd As Object Dim p0 As Object public Sub CallPostgres() 'ODBC connection Con = CreateObject("ADODB.Connection") Con.Open("dsn=posgredb;uid=koba;pwd=koba") Con.CursorLocation = 3 'stored commands Cmd = CreateObject ("ADODB.Command") Cmd.ActiveConnection = Con Cmd.commandtext = "scm_db.search_requests (PostgresRequestType, PostgresSchemaName, PostgresOperationID, PostgresStartTimestamp, PostgresLastTimestamp, PostgresLastTimestamp, PostgresCSVOutputDirectory )" Cmd.commandtype = 4 p0 = cd.createParameter("rcd", 200, 4, 9) Cmd.Parameters.Append (p0) 'start transaction Con.BeginTrans 'call stored function cmd.Execute msgbox ("p0.value") 'enc transaction 'Con.rollbackTrans Con.CommitTrans 'Disconnect ODBC Con.Close End Sub End Class
以上、よろしくお願いします。
あなたの回答
tips
プレビュー