Mas Hian,
Kebetulan RASQL/B yang ada ngga lengkap, file NG-nya ngga ada tuh...
----- Original Message -----
From: "Hianoto Santoso" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 08, 2000 7:31 AM
Subject: Re: [MIKRODATA] Penggunaan Btrieve
> 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.
>
>
------------------------------------------------------------------------
[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.
