Builder.cz - Informacni server o programovani

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.

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

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

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