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 1134
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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.