OVH Cloud OVH Cloud

De VB 6.0 à Vb.Net

4 réponses
Avatar
Muller Guy
Bonjour,
Je travaille depuis plusieurs années sur VB 6.0 et Sql Serveur

Lorsque que je commence un projet sous VB6,0 je choisi "Projet de données"
Le dataEnvironnement le sert de lien avec mon serveur Sql.

Sur ce dernier, je créée des procédures stockées avec des paramaètres...

Lors de la programation sous VB, j'insère la Ps dans l'objet Data et je
récupère ce dernier dans le code avec un AdoRecordset

Par exemple :
data.PsAdresse lClient
set rs = data.rspsAdresse

text1.text = rs("SOCIETE")
RS.CLOSE
Je souhaite faire la même chose sous VB.net, j'y comprends rien et je
m'énerve....

Comment faire pour récupérer des procédures stockées ainsi que des
paramètres.

Merci à tous de votre soutien.
Muller Guy

4 réponses

Avatar
Yassine loudad
http://faqvbnet.developpez.com/?page­onet
--
Fildomen : 1 + 1 = 10
"Muller Guy" a écrit dans le message de news:

Bonjour,
Je travaille depuis plusieurs années sur VB 6.0 et Sql Serveur

Lorsque que je commence un projet sous VB6,0 je choisi "Projet de données"
Le dataEnvironnement le sert de lien avec mon serveur Sql.

Sur ce dernier, je créée des procédures stockées avec des paramaètres...

Lors de la programation sous VB, j'insère la Ps dans l'objet Data et je
récupère ce dernier dans le code avec un AdoRecordset

Par exemple :
data.PsAdresse lClient
set rs = data.rspsAdresse

text1.text = rs("SOCIETE")
RS.CLOSE
Je souhaite faire la même chose sous VB.net, j'y comprends rien et je
m'énerve....

Comment faire pour récupérer des procédures stockées ainsi que des
paramètres.

Merci à tous de votre soutien.
Muller Guy




Avatar
P.H
Il y à ici un cours en français très complet pour migrer de VB6 à VB.NET :
http://bidou.developpez.com/tutoriels/dotnet/migration/

Deux autres tutoriels sur ce sujet :
http://dotnet.developpez.com/articles/migration/

et http://dotnet.developpez.com/tutoriels/migration/vb6_vers_dotnet/
Avatar
S. B
Salut,

Voila comment je fais pour exécuter des procs stockées depuis VB.Net avec
SQL Server 2000

Private Sub AffIndicateurPeriode(ByVal dteIndicateur As Date)

'*** Gestion des erreurs ***



Dim cmdPBM As New System.Data.SqlClient.SqlCommand <-Command contenant ma
proc stockée

Dim ConPBM As New SqlConnection(G_Application.DbInfo.GetConnectionStr) <-
une connextion sur la serveur à partir d'une connexion existante de l'appli

<SNIP>

'Instanciation de la proc stockée et définition de la collection des params
(j'ai pas trouvé mieux, pour avoir cette collec préinitialisée par le client
SQL comment en VB6)

'PS je fais le ADD et le set des propriétés dans la même ligne, ca ne se
fait probablement pas trop en terme de lisibilité mais je le fais quand même

With cmdPBM

.Connection = ConPBM

ConPBM.Open()

.CommandText = SP_RECUP_PROD_MENSUELLE

.CommandType = CommandType.StoredProcedure

.Parameters.Add("@RefContrat", SqlDbType.Decimal)

.Parameters.Add("@DtePeriode", SqlDbType.DateTime)

.Parameters.Add("@PB", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@PN", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@JS", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@CR", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@CRR", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@FACT", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@PRP", SqlDbType.Float).Direction =
ParameterDirection.Output

.Parameters.Add("@DPA", SqlDbType.Float).Direction =
ParameterDirection.Output

End With

<SNIP>

'Passage des params à la proc stockée


cmdPBM.Parameters(0).Value = contID

cmdPBM.Parameters(1).Value = dteIndicateur

'cmdPBM.ExecuteReader.Close()

cmdPBM.ExecuteNonQuery() <-Exécution de la proc stockée sans récupération
d'un dataset vu que dans mon cas je ne travailles qu'avec les valeurs de
retour

' Mais tu peux aussi bien utiliser un .ExecuteReader pour balayer une table
de résultats en retour



Bon courage

"Muller Guy" a écrit dans le message de news:

Bonjour,
Je travaille depuis plusieurs années sur VB 6.0 et Sql Serveur

Lorsque que je commence un projet sous VB6,0 je choisi "Projet de données"
Le dataEnvironnement le sert de lien avec mon serveur Sql.

Sur ce dernier, je créée des procédures stockées avec des paramaètres...

Lors de la programation sous VB, j'insère la Ps dans l'objet Data et je
récupère ce dernier dans le code avec un AdoRecordset

Par exemple :
data.PsAdresse lClient
set rs = data.rspsAdresse

text1.text = rs("SOCIETE")
RS.CLOSE
Je souhaite faire la même chose sous VB.net, j'y comprends rien et je
m'énerve....

Comment faire pour récupérer des procédures stockées ainsi que des
paramètres.

Merci à tous de votre soutien.
Muller Guy




Avatar
Sébastien
Salut,

j'ai developper un logiciel qui te génère automatiquement sous visual basic
les fonctions, avec leur type, a partire des fonction qui ce trouve sur le
serveur sql... mais je n'es pas de doc encore, si tu est interesser regarde
la www.database2code.com dans la zone de telechargement,
ensuite une fois le code généré c dans nsProcedure que tu trouvera la liste
des procedures générées, il te restera plus cas t'en servire.

a++
seb

"Muller Guy" a écrit dans le message de news:

Bonjour,
Je travaille depuis plusieurs années sur VB 6.0 et Sql Serveur

Lorsque que je commence un projet sous VB6,0 je choisi "Projet de données"
Le dataEnvironnement le sert de lien avec mon serveur Sql.

Sur ce dernier, je créée des procédures stockées avec des paramaètres...

Lors de la programation sous VB, j'insère la Ps dans l'objet Data et je
récupère ce dernier dans le code avec un AdoRecordset

Par exemple :
data.PsAdresse lClient
set rs = data.rspsAdresse

text1.text = rs("SOCIETE")
RS.CLOSE
Je souhaite faire la même chose sous VB.net, j'y comprends rien et je
m'énerve....

Comment faire pour récupérer des procédures stockées ainsi que des
paramètres.

Merci à tous de votre soutien.
Muller Guy