Prikazi cijelu temu 26.09.2013 19:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: stored procedure Kako?
Tvoj Query sto si naveo ima jos procedura koje nisi dao pa sam ja napravio jednu srored proceduru kao primjer pa se nadam da ce ti pomoci da napravis ono sto zelis.
Ovu tored proceduru postavi u svoju bazu MsSQL.
PreuzmiIzvorni kôd (SQL):
  1. CREATE PROCEDURE ArtikalBR @ID INT
  2. AS
  3. SELECT  
  4. ID_Artikal,
  5. Artikal_Sifra,
  6. Artikal_Ime,
  7. Artikal_Prodazna_cena,
  8. Artikal_DDV,
  9. (Artikal_Prodazna_cena*Artikal_DDV) AS CENA
  10. FROM tblArtikli
  11. WHERE ID_Artikal=@id
  12. GO

Ovo ide u VB.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function RSArtikla(IDArt As Integer)
  2.      
  3. Dim Kon As New ADODB.Connection
  4. Dim Rs As New ADODB.Recordset
  5. Dim SQL As String
  6. Dim strUserName As String, strPassWord As String, strDatabase As String, strServer As String
  7.  
  8.  
  9.     strUserName = "Ime"
  10.     strPassWord = "Sifra"
  11.     strDatabase = "Baza"
  12.     strServer = "ImeTvogServera"
  13.    
  14.         Kon.CursorLocation = adUseClient
  15.         Kon.Open "Provider=MSDASQL; DRIVER=Sql Server; SERVER=" & strServer & "; DATABASE=" _
  16.         & strDatabase & "; UID=" & strUserName & "; PWD=" & strPassWord & ";"
  17.        
  18.         Set Rs = New ADODB.Recordset
  19.         SQL = "EXECUTE ArtikalBR " & IDArt
  20.         Rs.Open SQL, Kon, adOpenKeyset
  21.         MsgBox Rs!Artikal_Ime & "----" & Rs!CENA
  22.         Kon.Close    
  23.     End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.