Connexion BDD Access via Internet [Résolu]

neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention - 9 mai 2006 à 11:35 - Dernière réponse : neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention
- 10 mai 2006 à 11:50
Bonjour,



J'ai plusieurs questions, dans le cadre de mon projet, il m'est demandé
de créer un logiciel manipulant une base de données Access 2000 a
l'aide de Visual Basic 6 (sp6) .



On me demande de mettre cette application en réseau, j'ai donc 2 possibilités :

- Réseau local auquel cas la modification est moindre sur mon
programme, sauf que la boite ou je suis ne possède pas de réseau local
...

- Connection a une base de données sur Internet.



Pour le moment je me suis donc attaqué a cette 2e solution ... le
problème est que j'arrive pas a me connecter a cette base de donées ...

J'ai trouver pas mal d'info
(http://www.vbfrance.com/forum.v2.aspx?ID=71455) mais j'ai pas bien
compris comment faire une Connection String.



De plus étant donnée que mon programme nécessite une connection quasi
constante a la base de donnée, qu'en plus de cela l'accès aux données
est assez long en raison de la taille des données traités .. je me
demande si passer par le net n'est pas un ralentissement trop important
pour l'application ...



En bref j'aimerais savoir ca :

- Quelqu'un peut m'expliquer clairement comment marche une connection a une BDD Access 2000 via le net

- Ce mode d'accès a la BDD n'est il pas trop "lent" pour mon application ?
Afficher la suite 

4 réponses

neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention - 10 mai 2006 à 11:50
+3
Utile
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 )
Cette réponse vous a-t-elle aidé ?  
neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention - 9 mai 2006 à 15:08
0
Utile
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.
neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention - 9 mai 2006 à 16:43
0
Utile
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.
neewby 39 Messages postés mardi 18 avril 2006Date d'inscription 19 mai 2006 Dernière intervention - 10 mai 2006 à 09:38
0
Utile
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>)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.