Connexion BDD Access via Internet
Résolu
neewby
Messages postés
39
Date d'inscription
mardi 18 avril 2006
Statut
Membre
Dernière intervention
19 mai 2006
-
9 mai 2006 à 11:35
neewby Messages postés 39 Date d'inscription mardi 18 avril 2006 Statut Membre Dernière intervention 19 mai 2006 - 10 mai 2006 à 11:50
neewby Messages postés 39 Date d'inscription mardi 18 avril 2006 Statut Membre Dernière intervention 19 mai 2006 - 10 mai 2006 à 11:50
A voir également:
- Neewby
- Modele site internet - Conseils pratiques -PHP
- Aucune connexion n'a pu être établie car l'ordinateur cible l’a expressément refusée - Forum SQL
- Code connexion vb.net access pdf - Conseils pratiques -Visual Basic / VB.NET
- Connexion bdd php - Conseils pratiques -PHP
- Aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée. ✓ - Forum C# / .NET
4 réponses
neewby
Messages postés
39
Date d'inscription
mardi 18 avril 2006
Statut
Membre
Dernière intervention
19 mai 2006
10 mai 2006 à 11:50
10 mai 2006 à 11:50
Finalement on est jamais mieux servi que par VBFrance !
Alors j'ai virer tout le code pompeux détaillé au dessus pour le remplacé par :
Dim LigneCommande As String, retour As Integer
LigneCommande = "NET USE <lettre associée>: http://www.vbfrance.com/code.aspx?ID=3165 )
Alors j'ai virer tout le code pompeux détaillé au dessus pour le remplacé par :
Dim LigneCommande As String, retour As Integer
LigneCommande = "NET USE <lettre associée>: http://www.vbfrance.com/code.aspx?ID=3165 )
neewby
Messages postés
39
Date d'inscription
mardi 18 avril 2006
Statut
Membre
Dernière intervention
19 mai 2006
9 mai 2006 à 15:08
9 mai 2006 à 15:08
Pour le moment ma connexion est ainsi faite :
Dim cn As New ADODB.Connection
cn.Open "SELECT * FROM Arbre", "Provider = Microsoft.jet.OLEDB.4.0;" & _
"Data Source = http://www.******.fr/anthraco/Anatomie microscopique des bois.mdb"
VB me donne l'érreur d'exécution suivante :
Erreur d'exécution '-2147467259 (80004005)
[Microsoft][Gestionnaire de pilote ODBC]
Source de données introuvable et pilote non spécifié
Merci d'avance si quelqu'un trouve mon erreur.
Dim cn As New ADODB.Connection
cn.Open "SELECT * FROM Arbre", "Provider = Microsoft.jet.OLEDB.4.0;" & _
"Data Source = http://www.******.fr/anthraco/Anatomie microscopique des bois.mdb"
VB me donne l'érreur d'exécution suivante :
Erreur d'exécution '-2147467259 (80004005)
[Microsoft][Gestionnaire de pilote ODBC]
Source de données introuvable et pilote non spécifié
Merci d'avance si quelqu'un trouve mon erreur.
neewby
Messages postés
39
Date d'inscription
mardi 18 avril 2006
Statut
Membre
Dernière intervention
19 mai 2006
9 mai 2006 à 16:43
9 mai 2006 à 16:43
Bon j'ai reparler un peu avec mon maitre de stage, résultat des
courses, je dois passer par un lecteur réseaux. En effet la boite ou je
suis permet un accès au serveur net via le réseau local comme s'il
s'agissait d'un serveur physique. Enfin bref ... passons.
A priori ca dois pouvoir marcher avec la ligne suivante :
cn = AddConnection(< add. réseaux >, , <lettre attribué>)
Donc voila ce que je voulais savoir ... existe t'il un moyen de
controler que cette lettre n'est pas attribué a un autre périphérique
ou autre lecteur réseau.
A moin que je puisse lancer cette connection sans lui attribué de lettre spécifique ...
Merci d'avance.
courses, je dois passer par un lecteur réseaux. En effet la boite ou je
suis permet un accès au serveur net via le réseau local comme s'il
s'agissait d'un serveur physique. Enfin bref ... passons.
A priori ca dois pouvoir marcher avec la ligne suivante :
cn = AddConnection(< add. réseaux >, , <lettre attribué>)
Donc voila ce que je voulais savoir ... existe t'il un moyen de
controler que cette lettre n'est pas attribué a un autre périphérique
ou autre lecteur réseau.
A moin que je puisse lancer cette connection sans lui attribué de lettre spécifique ...
Merci d'avance.
neewby
Messages postés
39
Date d'inscription
mardi 18 avril 2006
Statut
Membre
Dernière intervention
19 mai 2006
10 mai 2006 à 09:38
10 mai 2006 à 09:38
Tain G du mal ... j'ai même pas donné la function AddConnection ...
Bon je met tout le code ici ... je préviens tout de suite il est pas de moi
Private Declare Function
WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal
lpszNetPath As String, ByVal lpszPassword As String, ByVal
lpszLocalName As String) As Long
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias
"WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As
Long) As Long
Const WN_SUCCESS = 0 ' The function was successful.
Const WN_NET_ERROR = 2 ' An error occurred on the network.
Const WN_BAD_PASSWORD = 6 ' The password was invalid.
Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer
On Local Error GoTo AddConnection_Err
AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
AddConnection_End:
Exit Function
AddConnection_Err:
AddConnection = Err
MsgBox Error$
Resume AddConnection_End
End Function
Function CancelConnection(DriveLetter As String, Force As Integer) As Integer
On Local Error GoTo CancelConnection_Err
CancelConnection = WNetCancelConnection(DriveLetter, Force)
CancelConnection_End:
Exit Function
CancelConnection_Err:
CancelConnection = Err
MsgBox Error$
Resume CancelConnection_End
End Function
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
edition.Show
End Sub
Private Sub Frame1_Click()
Unload Me
edition.Show
End Sub
Public Sub Form_Load()
Dim cn
cn = AddConnection(, , <lettre assignée>)
Bon je met tout le code ici ... je préviens tout de suite il est pas de moi
Private Declare Function
WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal
lpszNetPath As String, ByVal lpszPassword As String, ByVal
lpszLocalName As String) As Long
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias
"WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As
Long) As Long
Const WN_SUCCESS = 0 ' The function was successful.
Const WN_NET_ERROR = 2 ' An error occurred on the network.
Const WN_BAD_PASSWORD = 6 ' The password was invalid.
Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer
On Local Error GoTo AddConnection_Err
AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
AddConnection_End:
Exit Function
AddConnection_Err:
AddConnection = Err
MsgBox Error$
Resume AddConnection_End
End Function
Function CancelConnection(DriveLetter As String, Force As Integer) As Integer
On Local Error GoTo CancelConnection_Err
CancelConnection = WNetCancelConnection(DriveLetter, Force)
CancelConnection_End:
Exit Function
CancelConnection_Err:
CancelConnection = Err
MsgBox Error$
Resume CancelConnection_End
End Function
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
edition.Show
End Sub
Private Sub Frame1_Click()
Unload Me
edition.Show
End Sub
Public Sub Form_Load()
Dim cn
cn = AddConnection(, , <lettre assignée>)