FIVEODBC

FIVEODBC

Postby Silvio » Tue Nov 08, 2005 12:14 pm

I make tests but it not run
I can Sho w a mdb files on listbox but i cannot edit or insert a record
I read Fiveodbc but there is not a test program
Some can explain me how can I insert a record into Mdb file with xharbour and fivewin
regards
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby Antonio Linares » Thu Nov 10, 2005 8:54 am

Silvio,

If you mean the FiveODBC RDD, then it is just available for 16 bits. For 32 bits you may use ADO.

Please do a search at news://news.fivetechsoft.com for ADO.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42117
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Silvio » Thu Nov 10, 2005 8:12 pm

thanks
Code: Select all  Expand view  RUN
// prova con ADO


#include "Fivewin.ch"


Function Main()

Local oRS,oLbx


      oRS = CREATEOBJECT( "ADODB.Recordset" )
      oRS:Open( "SELECT * FROM Prodotti ORDER BY Codice","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ecom.mdb",0,3 )


// Creo il list box e i bottoni


        DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 TITLE "Gestione Prodotti"
         @ 0,  1 SAY " &Prodotti"  OF oDlg






         @ 1, 1 LISTBOX oLbx FIELDS  oRS:Fields( "Codice" ):value,;
                                     oRS:Fields( "Prodotto" ):Value,;
                                     oRS:Fields( "Categoria" ):Value,;
                                     oRS:Fields( "Scategoria" ):Value ;
                             HEADER "Codice", "Prodotto","Categoria","Scategoria" ;
                             SIZE 284, 137 OF oDlg


   @ 9,  1 BUTTON "&Nuovo"    OF oDlg  SIZE 40, 12
   @ 9,  8 BUTTON "&Modifica" OF oDlg  SIZE 40, 12
   @ 9, 15 BUTTON "&Cancella" OF oDlg  SIZE 40, 12
   @ 9, 22 BUTTON "&Ricerca" OF oDlg  SIZE 40, 12
   @ 9, 29 BUTTON "&Stampa"  OF oDlg  SIZE 40, 12
   @ 9, 40 BUTTON "&Uscita"   OF oDlg ACTION oDlg:End()         SIZE 40, 12

   ACTIVATE DIALOG oDlg



    oRS:Close()
    RETURN NIL


It not run why ?
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests