Reportviewer с vb.net 2016 и MSAccess - PullRequest
Новая
       6

Reportviewer с vb.net 2016 и MSAccess

0 голосов
/ 15 сентября 2018

Я делаю проект для класса. Я использую Reportviewer для извлечения данных из соединения данных с именем fitnesscompanydb.accdb. Это продолжает выдавать эту ошибку сейчас.

System.Data.SqlClient.SqlException: «Произошла ошибка, связанная с сетью или экземпляром, при установлении соединения с SQL Server. Сервер не найден или не был доступен. Убедитесь, что имя экземпляра указано правильно и что SQL Server настроен для разрешения удаленных подключений. (поставщик: поставщик именованных каналов, ошибка: 40 - не удалось открыть соединение с SQL Server) '

Public Class frmSignupReportQuery
Private Sub frmSignupReportQuery_Load(sender As Object, e As EventArgs) 
Handles MyBase.Load
    Dim startingdate As String = frmSignupReport.SignupDateStart.Text
    Dim endingdate As String = frmSignupReport.SignupDateEnd.Text

    Dim strConnectionString As String = "Data Source=(local)" '; Initial 
Catalog=fitnessCompanyDB.accdb; "
    Dim ds As New DataSet()
    Dim da As New SqlDataAdapter()
    Dim cmd As New SqlCommand("SELECT * FROM Memberbase WHERE 
Memberbase.Signupdate = BETWEEN #" & startingdate & "# and #" & endingdate & 
"#")
    cmd.CommandType = CommandType.Text
    cmd.Connection = New SqlConnection(strConnectionString)
    da.SelectCommand = cmd

    da.Fill(ds, "DataSet1")

    Dim rds As New ReportDataSource("DataSet1", ds.Tables(0))
    Me.ReportViewer1.LocalReport.ReportPath = "@\SignupReport.rdlc"
    Me.ReportViewer1.LocalReport.DataSources.Clear()
    Me.ReportViewer1.LocalReport.DataSources.Add(rds)
    Me.ReportViewer1.RefreshReport()
End Sub
End Class

Я понимаю, что, вероятно, выдает эту ошибку, потому что не может найти файл, потому что он не назван правильно. Как добавить правильное местоположение файла, чтобы он мог его найти?

...