VB6.0 da oracle procedure çağırma CURSOR sorunu

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB6.0 da oracle procedure çağırma CURSOR sorunu

Bu konudaki kullanıcılar: 1 misafir

2
Cevap 1136
Tıklama 0
Öne Çıkarma

1. sayfa

VB6.0 da oracle procedure çağırma CURSOR sorunu

Cevap Yaz

66wzx

14 yıl

Çavuş

Konu Sahibi

Merhaba,
Aşağıdaki kod 0 kayıt getiriyor. Nedeni galiba SP de cursor olmadığı için olabilir dendi.
Fatkat ben cursor olmadan çağrılan SP bilmiyorum . Bu konuda yardım edebilecek bir arkadas var mı.

Teşekkür ederim.

Oracon.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = Oracon
cmd.CommandType = adCmdStoredProc

With cmd
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 50, "DYALIN")
.Parameters.Append .CreateParameter("p_requestno", adVarChar, adParamOutput, 50)
.Parameters.Append .CreateParameter("p_consumerno", adVarChar, adParamOutput, 50)

End With

If Oracon.State Then
cmd.Properties("PLSQLRSet") = True
cmd.CommandType = adCmdText
cmd.CommandText = "{CALL EASY.PR_COLLECTIONLIST(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}"
Set recset = cmd.Execute
MsgBox "deger1: " & recset.Fields.Count
End If
If Not recset Is Nothing Then

If Not recset.BOF And Not recset.EOF Then
Do Until recset.EOF
MsgBox "deger1: " & recset.Fields(0).Value & vbCrLf & "deger2: " & recset.Fields(1).Value & vbCrLf & "Kull.: " & strUser
recset.MoveNext
Loop
recset.Close
Set recset = Nothing
End If
End If

< Bu mesaj bu kişi tarafından değiştirildi 66wzx -- 3 Nisan 2011; 18:04:35 >

1. sayfa