Question

请有人帮我解决这个问题。我在VBA中有一个表单，从中我想运行一些SQL查询并从我的数据库中检索数据，然后将结果放在表单（GUI）中的文本框中

我的数据库中有大约20个表，但令我惊讶的是我只能访问第一个表（InventoryCompleteList）。每次尝试访问另一个表都会返回一个错误，例如（Invalidobject name'functionalTestResults'），而当我运行查询（inventoryCompleteList）时，它似乎正在运行。注意functionalTestResults和inventoryCompleteList都是我的sql server中的表请任何人帮我弄清问题是什么。以下是我的数据库视图

`Private Sub ENTER_Click()
 Dim cn As Object
 Dim rs As Object
 Dim strFile As String
 Dim strCon As String
 Dim strSQL, strInput As String

 strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security  
 Info=True;Initial Catalog=KBOW;Data Source=10.23.30.8\KBOW;Use Procedure 
 for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation 
 ID=ULWW101;Use Encryption for Data=False;Tag with column collation when   
 possible=False;"


 Set cn = CreateObject("ADODB.Connection")
 cn.Open strCon



 strSQL = "SELECT Date,Location FROM functionalTestResults;"

 'Added the following four lines
 Set rs = CreateObject("ADODB.RECORDSET")
 rs.ActiveConnection = cn
 rs.Open strSQL
 Sheet1.Range("A1").CopyFromRecordset rs
 Result.Text = "CopyFromRecordset rs"
 'removed
 'cn.Execute strSQL


 rs.Close
 cn.Close
 Set cn = Nothing

 End Sub

`

Answer 1

您需要在这些表格上获得“选择”，因为您似乎目前没有此权限。

与您的dba谈谈获准访问此表格。

我无法访问我的sql数据库中的所有表

1 个答案: