Comment faire tourner mon programme VB en réseau avec ma base SQL Server2000

Question

Pb : Comment faire tourner mon programme VB en réseau avec ma base 
SQL Server2000.



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Bonjour,


J’ai développée un programme sous VB6 qui tourne bien en monoposte avec Base SQL Server mais le malheur que je n’arrive pas à le faire tourner en réseau.

cs_ghuysmans99 · Answer

T'as dû te gourer dans la chaîne de connexion !
Pourrais-tu nous la montrer ?
_______________________________________________________________________
Bah ouais faut réfléchir dans la vie ... le problème c'est que je ne fais pas ça souvent 
VB.NETis good ...VB6is better

code_vb_source · Answer

Ma connexion dans mon programme VB6 à ma base SQL est comme suit:

   servername =”Nom_serveur”<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>






    uname = ""






    pass = ""






    dbc = "ma_base"






    cnn.ConnectionString = ""






    cnn.Provider = "MSDASQL;Driver={SQL Server};SERVER=" &    servername & ";user    id=" & uname & ";Password=" & pass & ";Database=" & dbc & ""






    
cnn.Open

(avec Public cnn As ADODB.Connection)

cs_ghuysmans99 · Answer

Mets plutôt ça :
Dim CnnServer As String, CnnDB As String, CnnUserName As String, CnnPw As StringCnnServer "nomserveur": CnnDB "dbserveur": CnnUserName = "utilisateur": CnnPw = "motdepasse"
Cnn.ConnectionString = "Driver={SQL Server};Server=" & CnnServer & ";Database=" & CnnDB & ";Uid=" & CnnUserName & ";Pwd=" & CnnPw & ";"
On Error Resume Next
Cnn.Open
If Err Then
 MsgBox "Impossible d'ouvrir la base de données MSSQL !", vbExclamation, "Erreur"
End If
Err.Clear
On Error GoTo 0 , ----
[code.aspx?ID=41455 Colorisation syntaxique par  Renfield]
_______________________________________________________________________
Bah ouais faut réfléchir dans la vie ... le problème c'est que je ne fais pas ça souvent 
VB.NET  is good ...VB6  is better

code_vb_source · Answer

merci pour ton écoute, je vais essayer avec ce code.
selem

code_vb_source · Answer

Selem,


J’ai essayée avec le code que tu m’as envoyé, avec mon poste le programme se lance normalement avec un autre poste en réseau je reçois les 2 messages suivants :


"Impossible d'ouvrir la base de données MSSQL !" et "Erreur d’exécution 3709 : Impossible utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte"


Existe t’il une configuration nécessaire en SQLServer.

cs_loulou69 · Answer

Sur Windows, il faut que les postes installent les composants DAC
http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&displaylang=en

code_vb_source · Answer

j'ai suivi les etapes de ce site et j'ai installée  "MDAC_TYP.EXE" (Wiondows XP SP2) mais j'ai toujours le même message d'erreur.
C'est un grand problème pour mon travail, aidez moi SVP.

LIBRE_MAX · Answer

Salut,
comment peut on faire un Resume Next et tester sur l' erreur juste après ?
On Error Goto err_open
Avant d' ouvrir tester si elle ne l' est pas déjà

Exit Sub
err_open;
MsgBox Err.Description

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

cs_ghuysmans99 · Answer

@ [auteur/LIBREMAX/1050148.aspx LIBRE_MAX] : Mon code est tout à fait correct ... Je l'utilise dans tous les programmes que je fais ayant un rapport avec les bases de données ! Et en plus, ce ne serait pas plutôt err_open<gras>: ?
_______________________________________________________________________
Bah ouais faut réfléchir dans la vie ... le problème c'est qu'on ne fais pas ça souvent 
VB.NET is good ... VB6 is better !

Comment faire tourner mon programme VB en réseau avec ma base SQL Server2000

9 réponses

Votre réponse

Discussions similaires