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
// 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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 58 guests