Ouverture d'une base de données Acces héberger a distanceRésolu

Question

Voila j'ai un petit probleme, j'ai actuelement un petit programme qui lit les champs d'une base de donnée acces, quand celle-ci se trouve en local, pas de soucis, malheureusement j'aimerais qu'il lise les informations a distance.

Comment puis-je faire?

voici mon code:

Imports

 System
Imports

 System.Data
Imports

 System.Data.OleDb
Imports

 Microsoft.VisualBasic
Public

Class Form1

'déclaration des variables

Private cnx 
As OleDbConnection

Private cmd 
As OleDbCommand

Private dta 
As OleDbDataAdapter

Private cmdb 
As OleDbCommandBuilder

Private dts 
As
New DataSet

Private dtt 
As DataTable

Private dtc 
As DataColumn

Private dtr 
As DataRow

Private rownum 
As
Integer

Private conn 
As
String

Private sql 
As
String

Private cnxstr 
As
String

Private
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles
MyBase.Loadchargerdatabase(

"select link.* from link")DataGrid1.SetDataBinding(dts, 

"link")majzonetext()

End
Sub

Function chargerdatabase(
ByVal requete 
As
String)sql = requete
'ouverture de la connectioncnxstr "provider microsoft.jet.oledb.4.0 ; data source =" & Application.StartupPath & 
"\link.mdb;"cnx = 

New OleDbConnectioncnx.ConnectionString = cnxstr

cnx.Open()

'Création de la commandecmd = 

New OleDbCommand(sql)

'Creation du dataadapterdta = 

New OleDbDataAdapter(cmd)

'On instancie la commande (cmd) à la connection (cnx)cmd.Connection() = cnx

'On charge le dataset (dts) grace à la propriétés dill du dataadapterdta.Fill(dts, 

"link")dtt = dts.Tables(

"link")

Return 0

End
Function

Function majzonetext()Textserie.Text = dtt.Rows(rownum).Item(

"Série")Textepi.Text = dtt.Rows(rownum).Item(

"N° épisode")Texttaille.Text = dtt.Rows(rownum).Item(

"Taille")Textup.Text = dtt.Rows(rownum).Item(

"Uploader")

Return 0

End
FunctionEnd

Class

cs_Exploreur · Accepted Answer

Salut,

Tu dois donner le chemin complet de ta base qui est installée sur le réseau.
Les accés eux ne changent pas.

En local:cnxstr "provider microsoft.jet.oledb.4.0 ; data source =" & Application.StartupPath & 
"\link.mdb;"

En réseaucnxstr "provider microsoft.jet.oledb.4.0 ; data source ="Z:	oto	ata 
\link.mdb;"

A+
Exploreur

Ouverture d'une base de données Acces héberger a distance

1 réponse

Votre réponse

Discussions similaires