Connection to remote server

I have 2 websites. On the first i have a table with news articles in an access database.

Now, my question:
On the second site i'd like to open the access-db on the first site and display these news. Both are on public servers, so i dont have the path for tha actual file. I use 'server.mappath("database.mdb")' in my connectionstring locally.

but how to connect to ''?


2 answers

There is something called RDS (or MS Remote).
However these components are considered deprecated...

Microsoft advises using the SOAP Toolkit but Im not sure if that's the way to go here.

If the websites are located on the same servers I would see if it would be possible to set up a shared "Data" folder by the hosting company so that you could access it by file path. Access over HTTP is not prefered if you can find a solution going through a file share.

Hope this helps...

Option Strict On
Option Explicit On

Imports System.Data
Imports System.Data.OleDb

Partial Class _Default
Inherits System.Web.UI.Page

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source= " & Server.mappath("Tabellenname.accdb"))
Dim adapEINS As New OleDbDataAdapter("Select * from XY", conn)
Dim ds As New DataSet

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    'Daten ins Griedview
    adapEINS.Fill(ds, "XY")
    GridView1.DataSource = ds.Tables("XY")

    'Drop Down befüllung"
    If Not IsPostBack Then
        'befüllung der DDL Listen
        DDL_eins.DataSource = ds.Tables("XY")
        DDL_eins.DataTextField = "Spaltenname"
        DDL_eins.DataValueField = "Spaltenname2"
    End If

    'commands anlegen
    Dim cmdins As New OleDbCommand("Insert into tabelleXY(Spalte1,Spalte2) Values (?,?);", conn)
    cmdins.Parameters.Add("@Spalte1", OleDbType.Integer, 0, "Spalte1")
    cmdins.Parameters.Add("@Spalte2", OleDbType.Single, 0, "Spalte2")
    adapEINS.InsertCommand = cmdins
    Dim cmdUpd As New OleDbCommand("Update Tabelle1 set Spalte1 = ? where spalte2 = ? and spalte3 = ?;", conn)
    'delete reicht primärschlüssel

    'Prmärschlüssel anlegen
    ds.Tables("XY").PrimaryKey = {ds.Tables("XY).columns("spalte1"), ds.Tables("XY").Columns("spalte3")}

    Dim zeile As DataRow = ds.Tables("XY").Rows.find{DDL_eins.selectetvalue, DDL_zwei.selectetvalue}

    'neue zeile anlegen tabelle
    Dim zeile As DataRow = ds.Tables("XY").NewRow
    zeile("Spalte1") = DDL_eins.SelectedValue
    zeile("Spalte2" = DDL_zwei.selectetValue