Konu: SQLMORERESULTS()
selamlar;
"Invalid call issued while executing a SQLMORERESULTS() sequence."
SQLDISCONNECT( m.Lnhandle) satırında bu hatayı veriyor.
Do c:\wagner\araclar.prg
*Set Classlib To c:\wagner\Class\makesql Additive
Local Lcpartno,Lcfil,LcSonRevNo,Lnhandle1,Lnhandle
m.Lnhandle=wkabaglan()
Lcpartno=Alltrim(malzeme_kartcursor.wka_partno)
Lcfil="wka_partno='"+Lcpartno+"'"
If Used('gkontbas')
Use In 'gkontbas'
Endif
Lcx=Createobject('makesql.makecursor',m.Lnhandle,,Lcfil,.T.,'gkontbas','gkontbas','guid')
If Reccount("gkontbas")=0
Insert Into gkontbas (wka_partno,aciklama,revno) ;
Values (malzeme_kartcursor.wka_partno,malzeme_kartcursor.turkce,0)
If Empty(gkontbas.talimatlar)
Replace gkontbas.talimatlar With "Frekansı NAP olarak tanımlanmış olan ölçüler için I044 Numune Alma Talimatı kullanılacaktır."
Endif
Endif
SQLDISCONNECT( m.Lnhandle)
m.Lnhandle1=wkabaglan()
Calculate Max(gkontbas.revno) To LcSonRevNo
Lcfil=Lcfil+" and srevno="+Alltrim(Str(LcSonRevNo))
If Used('gkontsatir')
Use In 'gkontsatir'
Endif
Lcx=Createobject('makesql.makecursor',m.Lnhandle1,,Lcfil,.T.,'gkontsatir','gkontsatir','guid')
SQLDISCONNECT( m.Lnhandle1)
Select 'GKONTBAS'
Go Bott
Select gkontsatir
Go Top
Thisform.Refresh
Thisform.grdGkontsatir.RecordSource='gkontsatir'
Thisform.grdGkontsatir.Refresh
Ekleme
SQLDISCONNECT( m.Handle ) aşağıdaki kod dada aynı hatayı bu satırda veriyor.
LOCAL sCon
sCon= "driver=sql native client;server=sql;trusted_connection=yes;database=wka2000"
* Adim 1: Baglan
handle = SQLSTRINGCONNECT(m.sCon)
? m.handle
* Adim 2: SQL
lcSQL = "select * from gkontbas"
? SQLEXEC(m.handle, m.lcSQL, "SonucCursor")
* Adim 3: Baglantiyi kes
SQLDISCONNECT( m.Handle )