Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



ADODB

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: ADODB

Autor: Maaartin

19:03:30 10.11.2009

A to je algoritmus nebo problem? Bez s tim....
na forum Visual Basic nebo databaze a hlavne tam napis jakou DB pouzivas a zjisti si jestli v ni vubec storky vraci result set.

Citovat příspěvek

 

ADODB

Autor: Diddy

12:09:53 10.11.2009

Pouzivam ve Visual Basic 6 komponentu ADODB pro spojeni s databazi, pri pouziti SQl prikazu Select či Insert bezi vse v poradku, ale kdyz nakombinuji stored proceduru se Selectem tak se nize uvedeny kod nic nevrati. Tento kod pouzivam i pro Select ci Insert a vse je OK. Prosim o radu jak upravit kod, abych mohl pouzivat kombinaci stored proceduru se selectem. Diky.

Dim sSQL
Dim iSTime, iETime
Dim sDateTime
Dim sNameFce
Dim sConnString
Dim oConn
Dim adoCommand,adoRecSet
Dim iError
Dim iIDVyroby

sConnString=ConnectionString
'create connection to database
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = sConnString
oConn.CursorLocation = 3
On Error Resume Next
oConn.Open

If err.Number <> 0 Then
iError=1
HMIRuntime.Trace "Chyba ADODB.Connection" & vbCrLf
End If

sSQL="declare @vysledek Int"+_
"exec @vysledek=uzivatelskaStroredProc param1=xx, param2=xx, ..."+_
"Select @vysledek As vysledek"

'create query for connection
Set adoRecSet = CreateObject("ADODB.Recordset")
Set adoCommand = CreateObject("ADODB.Command")
adoCommand.CommandType = 1
Set adoCommand.ActiveConnection = oConn
adoCommand.CommandText = sSql

'read data using ADO
On Error Resume Next
Set adoRecSet = adoCommand.Execute

If adoCommand.RecordCount =0 Then
HMIRuntime.Trace "Nenacten zadny záznam,SQL dotaz" & vbCrLf
Else
iIDVyroby=adoRecSet.Fields(0).Value
HMIRuntime.Trace "iIDVyroby: " & iIDVyroby & vbCrLf
End If

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: