腳本無法找到數據庫

Question

我正在研究轉換和打印PDF文件的項目。 在運行該腳本，我得到錯誤：

Cannot find either column 「dbo」 or the user-defined function or aggregate 「dbo.certdate」, or the name is ambiguous

奇怪的是腳本使用前工作。我沒有更改代碼，唯一改變的是我安裝了不同類型的Office版本，以使腳本能夠正常工作。這可能會導致這個錯誤？可能是什麼問題呢？

我使用的是SQL Server 2008 R2和Office企業版2007

下面是DB代碼：

Imports System.Configuration 
Imports System.Data.SqlClient 
Imports System.Text 
Imports Microsoft.Office.Interop 

Public Class ConnectionManager 

    Public Enum DbType 
     CERT = 1 
     ARKIV = 2 
    End Enum 

    Public Sub New(ByRef _log As Logg) 
     Log = _log 
    End Sub 

    Private _databas As DbType 
    Public Property Databas As DbType 
     Get 
      Return _databas 
     End Get 
     Set(value As DbType) 
      _databas = value 
      If Not _connection Is Nothing Then _connection = Nothing 
     End Set 
    End Property 
    Private Property Log As Logg 
    Public ReadOnly Property ConnectionStrang As String 
     Get 
      Select Case Databas 
       Case DbType.ARKIV 
        Return ConfigurationManager.ConnectionStrings("databas.arkiv").ConnectionString 
       Case DbType.CERT 
        Return ConfigurationManager.ConnectionStrings("databas.cert").ConnectionString 
       Case Else 
        Return "" 
      End Select 

     End Get 
    End Property 

    Public ReadOnly Property ServerName As String 
     Get 
      Dim res As String = "" 
      Dim start As Integer = ConnectionStrang.IndexOf("(HOST=") + 6 
      Dim slut As Integer = ConnectionStrang.IndexOf(")", start) 

      res = ConnectionStrang.Substring(start, slut - start) 
      Return res 
     End Get 
    End Property 
    Private _connection As SqlConnection 
    Public ReadOnly Property Connection(Optional forceNew As Boolean = False) As SqlConnection 
     Get 
      If _connection Is Nothing Or forceNew = True Then _connection = New SqlConnection(ConnectionStrang) 
      If Not _connection.State = ConnectionState.Open Then _connection.Open() 
      Return _connection 
     End Get 
    End Property 
    Public ReadOnly Property FilePath As String 
     Get 
      Dim path As String = System.AppDomain.CurrentDomain.BaseDirectory & "\out" 
      If IO.Directory.Exists(path) = False Then IO.Directory.CreateDirectory(path) 
      Return path & "\" 
     End Get 
    End Property 
    Private _wrdapp As Word.Application 
    Public ReadOnly Property WordApp As Word.Application 
     Get 
      If _wrdapp Is Nothing Then _wrdapp = New Word.Application 
      Return _wrdapp 
     End Get 
    End Property 

    Public Sub TestConnection() 
     Try 
      Dim com As New SqlCommand("SELECT count(*) FROM sys.tables", Connection(True)) 
      Log.Add(com.ExecuteScalar & " tabeller hittat i " & Databas.ToString) 
     Catch ex As Exception 
      Throw ex 
     End Try 
    End Sub 



    Public Function GetReder(sql As String, Optional newConn As Boolean = False) As SqlDataReader 
     Try 
      Dim cmd As New SqlCommand(sql, Connection(newConn)) 
      Return cmd.ExecuteReader(CommandBehavior.CloseConnection) 
     Catch ex As Exception 
      Throw ex 
     End Try 
    End Function 
End Class 

UPDATE：

這裏是代碼的問題是：

Private Function createBevakningsRegisterData(pers As String) As PDFData 
    Try 
     Dim r As SqlDataReader 
     Dim ret As New PDFData(PDFData.vissatt.list) 
     Dim sql As String = " select " 
     sql &= "WATCHCODE as Kod," 
     sql &= "dbo.certdate(WATCHDATE) as [Datum        ]," 
     sql &= "WATCHTEXT as [Text]," 
     sql &= "watchflag as [Påm.]," 
     sql &= "WATCHREMDATE as [tom.]" 
     sql &= " from CERTUSR_WATCH " 
     sql &= "where PERSNR ='" & pers & "'" 

    r = GetReder(sql) 

    ret.Rubrik = "BEVAKNINGSREGISTER" 

    Dim rowCounter As Integer = 0 
    While r.Read 
     For i As Integer = 0 To r.FieldCount - 1 
      If rowCounter = 0 Then ret.Properties.Add(r.GetName(i)) 
      ret.Values.Add(r(i).ToString) 
     Next 
     rowCounter = 1 
    End While 

    r.Close() 

    Return ret 
Catch ex As Exception 
    Throw ex 
End Try 

End Function

Answer 1

檢查您要連接的數據庫。使用與運行腳本的用戶相同的憑據進行連接。嘗試運行exec dbo.certdate('test')。您可能會遇到錯誤，因爲certdate不存在或您沒有權限。以管理員身份登錄並創建它或在其上設置適當的權限。