appel de procédures stockées SQL Server depuis VB

Question

Bonjour!

J'ai écrit des procédures stockées sous SQL Server 6.5, je les ai placé dans un répertoire au format .sql.
Comment faire pour les appeler depuis une application VB (je voudrais que ces procédures stockées puissent s'exécuter en cliquant sur un bouton de mon application VB).

Merci de m'éclaircir!

Cordialement.

biohazard · Answer

Précisions: je travaille sous VB 5.0.
J'utilise une connection ODBC avec un objet Data.
Mes procédures stockées ne renvoient aucune ligne (ce sont des update...set).

sweeping · Answer

Voici ce que j'utilise
dans le form load:
Private Sub Form_Load()

With gcon
     .ConnectionString = "DSN=nom de la DSN"
     .Open
End With
Set gcmd.ActiveConnection = gcon
End Sub

dans un module:Public gcon As New ADODB.Connection
Public gcmd As New Command

dans la form ou tu veux lancer la proc:
Private Sub lancer_Click()
Dim rs As New ADODB.Recordset
Dim inf, sup As Integer

sSQL = "nom_procedure " & param & ", " & param & ";"

gcmd.CommandText = sSQL
Set rs = gcmd.Execute

biohazard · Answer

Merci!

cs_DJE · Answer

Salut

Je vois que tu connais SQL et VB6
Alors tu pourras peut etre m'aider

J'ai un ADODC qui pointe sur ma base de DONNEES SQL7.0 et sur la procedure stockee de mon choix, un DATAGRID qui pointe sur ADODC

Si j'execute mon prog et si la procedure stockee n'a pas de parametre c'est OK
Mais s'il est en a un ou le placer

Merci

cyberice67 · Answer

Moi j'suis sur .net, la syntaxe dessus pour passer des parametres est la suivante : (si t'arrive a en tir&#233; qqch..) :





    <WebMethod()> Public Function
AjouteUnCompte(ByVal Pseudo As String, ByVal Pass As String, ByVal NomP
As String, ByVal PrenP As String, ByVal Sexe As String, ByVal Classe As
String, ByVal AutoriseLucretia As Integer) As Boolean



        Dim cmdset As New SqlClient.SqlCommand

        cmdset.Connection = cnn

        cmdset.CommandType = CommandType.StoredProcedure

        cmdset.CommandText = "AjoutCompte"

        cnn.Open()



        cmdset.Parameters.Add("@pseudo", SqlDbType.VarChar).Value = Pseudo

        cmdset.Parameters.Add("@pass", SqlDbType.VarChar).Value = Pass

        cmdset.Parameters.Add("@nomp", SqlDbType.VarChar).Value = NomP

        cmdset.Parameters.Add("@prenp", SqlDbType.VarChar).Value = PrenP

        cmdset.Parameters.Add("@sexe", SqlDbType.VarChar).Value = Sexe

        cmdset.Parameters.Add("@classe", SqlDbType.VarChar).Value = Classe

       
cmdset.Parameters.Add("@autoriselucretia", SqlDbType.VarChar).Value =
AutoriseLucretia

        cmdset.ExecuteNonQuery()



        AjouteUnCompte = True



    End Function











Correspondant &#224; la proc stock&#233;e :





create procedure AjoutCompte

    @pseudo  varchar(20),      

    @pass    varchar(20),      

    @nomp    varchar(20),     

    @prenp   varchar(20),      

    @sexe    varchar(20),     

    @classe  varchar(20),     

    @AutoriseLucretia int

as



    insert into Compte values (@pseudo,@pass,@nomp,@prenp,@sexe,@classe,@autoriselucretia)

go








Cyberice

Appel de procédures stockées SQL Server depuis VB

5 réponses

Discussions similaires