Mas Ano,
Error tsb muncul untuk FUNC dan LINE yang mana yah ??
RNUSE() Anda bertujuan untuk convert bilamana masih ada
file berext .dbf
Saya menduga error terjadi saat:
use (db) via "RQBRDD" alias (al) exclusive
Apakah function n_bsetstru() dapat menciptakan file BTrieve ??
Tolong saya dikirimin hanya file NG RaSQL/B via japri saja,
soalnya saya malah tidak pernah pakai RaSQL/B.
Rgds,
Hian
----- Original Message -----
From: Ano Budiana <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 07, 2000 19:23
Subject: Re: [MIKRODATA] Penggunaan Btrieve
> Mas Hian,
>
> Saya menggunakan clipper5.2 dan sekarang sudah berhasil meng-compile dan
> link-nya juga. tetapi sewaktu di run masih muncul error 'Workarea not in
> use!'
> Kira-kira salahnya dimana lagi ya?
>
> Oh ya, saya compile dengan perintah sbb:
> clipper test6
> rtlink fi test6,rqb52 lib rqb52,rsqlb52,horiz52,super5
>
> dan programnya sbb:
>
> #INCLUDE "RQB.CH"
> clear screen
> n_xlogin()
> sele 0
> rnuse("prodmast", Nil, Nil, .T.)
> copy to testing
>
>
> ********************************
> func RASQLUSE
>
> ********************************
> function RNUSE(db, def, al, lnew, lshared, lreadonly, nindex, ntime)
>
> local narea, narea1:= Select(), ntry:= 0, adbf, i
> n_xdefext(".DAT")
> if (ntime = Nil)
> ntime:= 360
> endif
> if (nindex = Nil)
> nindex:= 0
> endif
> if (lshared = Nil)
> lshared:= .T.
> endif
> if (lreadonly = Nil)
> lreadonly:= .F.
> endif
> if (lnew = Nil)
> lnew:= .F.
> endif
> if (db = Nil)
> msg(30, "TIDAK ADA NAMA FILE UNTUK DIBUKA")
> return .F.
> *elseif (ISCHARACTER(db))
> if ("." $ db)
> db:= Left(db, At(".", db) - 1)
> endif
> else
> return .F.
> endif
> if (al = Nil) && .OR. !(ISCHARACTER(al)))
> al:= db
> if ("\" $ al)
> al:= SubStr(al, rat("\", al) + 1, Len(al) - rat("\", al))
> endif
> endif
> if (def = Nil)
> if (file(db + ".DBF"))
> if ((narea:= Select(db)) == 0)
> use (db) via "DBFNTX" alias _BARU new shared readonly
> do while (neterr())
> msg(10, "TUNGGU FILE SEDANG DIPAKAI ")
> use (db) via "DBFNTX" alias _BARU new shared readonly
> if (ntime > 0)
> ntry++
> endif
> if (ntime > ntry)
> select (narea1)
> return .F.
> endif
> enddo
> adbf:= dbstruct()
> close
> else
> select (narea)
> return .T.
> endif
> def:= ""
> for i:= 1 to Len(adbf)
> def:= def + padr(adbf[i][1], 20)
> def:= def + iif(adbf[i][2] = "N", "NP", iif(adbf[i][2] = ;
> "D", "D ", "C "))
> if (adbf[i][2] = "N")
> if (adbf[i][4] == 0)
> def:= def + Str(Int(adbf[i][3] / 2) + 1, 5)
> elseif (adbf[i][3] - adbf[i][4] % 2 == 0)
> def:= def + Str(Int(adbf[i][3] / 2) - 1, 5)
> else
> def:= def + Str(Int(adbf[i][3] / 2) + 1, 5)
> endif
> else
> def:= def + Str(iif(adbf[i][2] = "D", 4, adbf[i][3]), ;
> 5)
> endif
> def:= def + "."
> def:= def + Transform(adbf[i][4], "@Z 99")
> def:= def + " ;"
> next
> select (narea1)
> else
> msg(30, "STRUKTUR DATA TIDAK ADA")
> return .F.
> endif
> endif
> n_bsetstru(def)
> use (db) via "RQBRDD" alias (al) exclusive
> do while ((i:= n_xerror()) > 0)
> if (ntime > 0)
> ntry++
> endif
> msg(10, "ERROR No.:" + Str(i))
> if (ntime < ntry)
> close databases
> n_xlogout()
> quit
> return .F.
> endif
> n_bsetstru(def)
> use (db) via "RQBRDD" alias (al) exclusive
> enddo
> return .T.
>
> * EOF
>
>
>
>
>
> ----- Original Message -----
> From: "Hianoto Santoso" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, June 07, 2000 4:29 PM
> Subject: Re: [MIKRODATA] Penggunaan Btrieve
>
>
> > Disini terlihat bahwa Anda menggunakan module yang dicompile dgn
> > Clipper versi berbeda.
> > RaSQL/B Anda dicompile dengan 5.2x dan pastikan Anda juga meng-
> > gunakan Clipper 5.2x yang sama (masalah a,b,c,d,e ndak papa).
> >
> > Untuk melihat versi Clipper, Anda bisa ketik CLIPPER /CREDITS,
> > tapi kalo ndak kelihatan, bisa dengan CLIPPER MBUH, mangsudnya
> > kita mau compile dengan source code yang tidak ada, kecuali Anda
> > punya file MBUH.PRG lho :)
> >
> > Regards,
> > Hian
> >
> >
> > > Saya udah punya library RASQL/B -nya, tetapi setelah saya coba link
> > ternyata
> > > masih ada error, kira-kira ada yang tahu ngga salah dimana ya? atau
> masih
> > > ada library yang kurang?
> > >
> > > perintah link yang saya lakukan sbb:
> > >
> > > RTLINK FI TEST1 LIB RQB52,RSQLB52,HORIZ52,CLIPPER
> > >
> > > dan keluar error message sbb:
> > >
> > > .RTLink for Clipper Dynamic Overlay Linker / Pre-Linker Version
3.14B
> > > (C) Copyright Pocket Soft Inc., 1988-1991. All Rights Reserved.
> > >
> > >
> > > UNDEFINED SYMBOL(S) AFTER LIBRARY SEARCH:
> > > SYMBOL FIRST REFERENCE
> > > ------ ---------------
> > > 'CLIPPER520' TEST1.OBJ
> > > '_DEFAULT_DBDRIVER' RQB52.LIB
> > > '__xvfree' HORIZ52.LIB
> > > '__xvunwire' HORIZ52.LIB
> > > '__xvlockcount' HORIZ52.LIB
> > > '__xvwire' HORIZ52.LIB
> > > '__xvalloc' HORIZ52.LIB
> > > '__xvlock' HORIZ52.LIB
> > > '__xvrealloc' HORIZ52.LIB
> > > '__xvsize' HORIZ52.LIB
> > > '__xvunlock' HORIZ52.LIB
> > > '__fsClose' EXTEND.LIB
> > > '__fsRead' EXTEND.LIB
> > > '__fsSeek' EXTEND.LIB
> > > '__fsOpen' EXTEND.LIB
> > > '__fsWrite' EXTEND.LIB
> > > '__fsCreate' EXTEND.LIB
> > >
> > > warning wrt0022: .EXE may not execute properly -- undefined symbols
> > > 209K
> > > 1 warning message(s)
> > >
> >
> >
> >
> > ------------------------------------------------------------------------
> > [EMAIL PROTECTED] - Mailing List (milis) MIKRODATA
> >
> > Post message: [EMAIL PROTECTED]
> > Subscribe : [EMAIL PROTECTED]
> > Unsubscribe : [EMAIL PROTECTED]
> > Website : http://mikrodata.co.id
> > FTPsite : ftp.mikrodata.co.id
> > Archives : http://www.mail-archive.com/forum%40mikrodata.co.id/
> >
> > Milis ini menjadi kontribusi rubrik Konsultasi, Klinik Virus, Opini IT,
> > Klinik Linux, dan Antar Pembaca di MIKRODATA, Info Komputer,
> > Detikcom (i-Net), KOMPAS Cyber Media (KCM), dan AntiVirus Media.
> >
> >
>
>
> ------------------------------------------------------------------------
> [EMAIL PROTECTED] - Mailing List (milis) MIKRODATA
>
> Post message: [EMAIL PROTECTED]
> Subscribe : [EMAIL PROTECTED]
> Unsubscribe : [EMAIL PROTECTED]
> Website : http://mikrodata.co.id
> FTPsite : ftp.mikrodata.co.id
> Archives : http://www.mail-archive.com/forum%40mikrodata.co.id/
>
> Milis ini menjadi kontribusi rubrik Konsultasi, Klinik Virus, Opini IT,
> Klinik Linux, dan Antar Pembaca di MIKRODATA, Info Komputer,
> Detikcom (i-Net), KOMPAS Cyber Media (KCM), dan AntiVirus Media.
------------------------------------------------------------------------
[EMAIL PROTECTED] - Mailing List (milis) MIKRODATA
Post message: [EMAIL PROTECTED]
Subscribe : [EMAIL PROTECTED]
Unsubscribe : [EMAIL PROTECTED]
Website : http://mikrodata.co.id
FTPsite : ftp.mikrodata.co.id
Archives : http://www.mail-archive.com/forum%40mikrodata.co.id/
Milis ini menjadi kontribusi rubrik Konsultasi, Klinik Virus, Opini IT,
Klinik Linux, dan Antar Pembaca di MIKRODATA, Info Komputer,
Detikcom (i-Net), KOMPAS Cyber Media (KCM), dan AntiVirus Media.
