browse in xbase - for SQL - how can it be easiest done
Moderator: Moderatoren
- engindenizoglu
- Cut&Paste-Entwickler
- Beiträge: 41
- Registriert: Mi, 08. Nov 2017 20:58
- Wohnort: ISTANBUL
browse in xbase - for SQL - how can it be easiest done
Below i have showed a sample code for browsing a dbf file and selecting the right record.
Is there a sample prg which can browse from a SQL DATABANK (the name of the sql databank can be IPADRES ; field names ; NR, TANIM ;
(a similar sample like below) ?
Or a similar method of browsing and selecting a record from a SQL DATABANK (in xbase 2.0).
---------------------------- browse program ; the dbf file has 2 fields NR and TANIM ---------------------
******* DBF FILE *****************
SELECT 8
USE IP-ADRES SHARED
IF NETERR()=.T.
CLOSE ALL
RETURN
ENDIF
***********************************
GO TOP
APPBROWSE INTO oBrowse ;
for SUBSTR(CINS,1,1)="P";
TITLE "select the record" ;
FONT "14.MS Sans Serif";
POSITION CENTER, CENTER ;
SIZE 55,40 PERCENT;
APPFIELD ALLTRIM(NR) INTO oBROWSE CAPTION "NO";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPFIELD ALLTRIM(TANIM) INTO oBROWSE CAPTION "ANA TANIM";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPDISPLAY oBrowse MODELESS // Display Application Parts
KEYBOARD CHR(13)
DO WHILE nEvent <> xbeP_Close // Process events
nEvent := AppEvent( @mp1, @mp2, @obj )
obj:handleEvent( nEvent, mp1, mp2 )
IF NEVENT=1048609 /* MOUSE SOL TIKLA */
EXIT
ENDIF
IF NEVENT=1048977 /* ENTER to exit */
EXIT
ENDIF
IF NEVENT=1048628 .or. NEVENT=1048632 /* ESCAPE or mouse click to exit */
obrowse:DESTROY()
CLOSE ALL
RETURN
ENDIF
ENDDO
obrowse:DESTROY()
-----------------------------------------------------------------------------------------------------------------------------------------------------
İyi çalışmalar\Regards
Engin René D.
Is there a sample prg which can browse from a SQL DATABANK (the name of the sql databank can be IPADRES ; field names ; NR, TANIM ;
(a similar sample like below) ?
Or a similar method of browsing and selecting a record from a SQL DATABANK (in xbase 2.0).
---------------------------- browse program ; the dbf file has 2 fields NR and TANIM ---------------------
******* DBF FILE *****************
SELECT 8
USE IP-ADRES SHARED
IF NETERR()=.T.
CLOSE ALL
RETURN
ENDIF
***********************************
GO TOP
APPBROWSE INTO oBrowse ;
for SUBSTR(CINS,1,1)="P";
TITLE "select the record" ;
FONT "14.MS Sans Serif";
POSITION CENTER, CENTER ;
SIZE 55,40 PERCENT;
APPFIELD ALLTRIM(NR) INTO oBROWSE CAPTION "NO";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPFIELD ALLTRIM(TANIM) INTO oBROWSE CAPTION "ANA TANIM";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPDISPLAY oBrowse MODELESS // Display Application Parts
KEYBOARD CHR(13)
DO WHILE nEvent <> xbeP_Close // Process events
nEvent := AppEvent( @mp1, @mp2, @obj )
obj:handleEvent( nEvent, mp1, mp2 )
IF NEVENT=1048609 /* MOUSE SOL TIKLA */
EXIT
ENDIF
IF NEVENT=1048977 /* ENTER to exit */
EXIT
ENDIF
IF NEVENT=1048628 .or. NEVENT=1048632 /* ESCAPE or mouse click to exit */
obrowse:DESTROY()
CLOSE ALL
RETURN
ENDIF
ENDDO
obrowse:DESTROY()
-----------------------------------------------------------------------------------------------------------------------------------------------------
İyi çalışmalar\Regards
Engin René D.
ENGIN RENE D.
LARA ltd
http:\\www.laraelectromechanical.com
LARA ltd
http:\\www.laraelectromechanical.com
-
- Der Entwickler von "Deep Thought"
- Beiträge: 2839
- Registriert: Fr, 08. Feb 2008 21:29
- Hat sich bedankt: 104 Mal
- Danksagung erhalten: 13 Mal
Re: browse in xbase - for SQL - how can it be easiest done
Good morning -
you should start by making yourself familiar with the "normal" XbpBrowse() class. The APPBROWSE command is quite old (I would like to say "outdated") and assumes that you work with a "normal" Clipper-style workarea.
For a starter, you can copy the first example from the Xbase++ documentation and run it using the debugger.
Going back to your question:
Instead of accessing a fields' data with workarea->fieldname you need to use oData:fieldget("fieldname"), where oData is the DataSet() that you created using SQLExpress. You also need to change/rewrite the DbSkipper() function to work on your dataset.
I'll try to find an example in my programs and post it here.
you should start by making yourself familiar with the "normal" XbpBrowse() class. The APPBROWSE command is quite old (I would like to say "outdated") and assumes that you work with a "normal" Clipper-style workarea.
For a starter, you can copy the first example from the Xbase++ documentation and run it using the debugger.
Going back to your question:
Instead of accessing a fields' data with workarea->fieldname you need to use oData:fieldget("fieldname"), where oData is the DataSet() that you created using SQLExpress. You also need to change/rewrite the DbSkipper() function to work on your dataset.
I'll try to find an example in my programs and post it here.
Liebe Grüsse aus der Eifel,
Georg S. Lorrig
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.
Georg S. Lorrig
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.
- AUGE_OHR
- Marvin
- Beiträge: 12931
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: browse in xbase - for SQL - how can it be easiest done
as i remember Engin want to use M$SQL Server but that is not include in Xbase++ v2.x
Xbase++ have PgDBE for PostgreSQL only
SQLExpress using ODBC can access M$SQL but there is no ISAM Emulator like in PgDBE
download SQLExpress from https://www.xb2.net/sqlxpp/index.htm
have a look at those Sample if you understand it.
Xbase++ have PgDBE for PostgreSQL only
SQLExpress using ODBC can access M$SQL but there is no ISAM Emulator like in PgDBE
download SQLExpress from https://www.xb2.net/sqlxpp/index.htm
have a look at those Sample if you understand it.
gruss by OHR
Jimmy
Jimmy
- engindenizoglu
- Cut&Paste-Entwickler
- Beiträge: 41
- Registriert: Mi, 08. Nov 2017 20:58
- Wohnort: ISTANBUL
Re: browse in xbase - for SQL - how can it be easiest done
I do use SQL EXPRESS and XBASE 2.0.
ENGIN RENE D.
LARA ltd
http:\\www.laraelectromechanical.com
LARA ltd
http:\\www.laraelectromechanical.com
- AUGE_OHR
- Marvin
- Beiträge: 12931
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: browse in xbase - for SQL - how can it be easiest done
i guess SQLExpress have a lot of Sample.
Boris have also a Forum at www.xbwin.com -> forum -> SQLexpress so i recommend to ask there.
Boris have also a Forum at www.xbwin.com -> forum -> SQLexpress so i recommend to ask there.
gruss by OHR
Jimmy
Jimmy
- engindenizoglu
- Cut&Paste-Entwickler
- Beiträge: 41
- Registriert: Mi, 08. Nov 2017 20:58
- Wohnort: ISTANBUL
Re: browse in xbase - for SQL - how can it be easiest done
I asked Boris about it he said its not related about sql rather about xbase alaska programming language.
Does anyone have a samples in xbase about browsing and selecting a record ?
Does anyone have a samples in xbase about browsing and selecting a record ?
ENGIN RENE D.
LARA ltd
http:\\www.laraelectromechanical.com
LARA ltd
http:\\www.laraelectromechanical.com
- Tom
- Der Entwickler von "Deep Thought"
- Beiträge: 9459
- Registriert: Do, 22. Sep 2005 23:11
- Wohnort: Berlin
- Hat sich bedankt: 111 Mal
- Danksagung erhalten: 374 Mal
- Kontaktdaten:
Re: browse in xbase - for SQL - how can it be easiest done
You may take a look at Roger Donnay's eXpress++ - there is a free trial, and the framework - including source - doesn't cost much. It has several samples for SQL-browsing in almost all situations. www.donnay-software.com
Herzlich,
Tom
Tom