S
Scott.Winkeler
Guest
You can read and write using the System.Data.OleDB.*. class. Here is a small example of a procedure to write to an access db table. /* *************************** Definitions ************************** */ DEFINE VARIABLE Conn AS CLASS System.Data.OleDb.OleDbConnection NO-UNDO. DEFINE VARIABLE Cmd AS CLASS System.Data.OleDb.OleDbCommand NO-UNDO. DEFINE VARIABLE Adapter AS CLASS System.Data.OleDb.OleDbDataAdapter NO-UNDO. DEFINE VARIABLE Reader AS CLASS System.Data.OleDb.OleDbDataReader NO-UNDO. DEFINE VARIABLE Writer AS CLASS System.Data.OleDb.OleDbTransaction NO-UNDO. DEFINE VARIABLE chrPicPath AS CHARACTER NO-UNDO. DEFINE VARIABLE chrQuery AS CHARACTER NO-UNDO. /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */ FOR EACH emp-mstr NO-LOCK where emp-mstr.psoftid <> ?. ASSIGN chrPicPath = "I:\Personnel\Employee Pictures\" + string(emp-Mstr.psoftid,'999999') + ".jpg" chrQuery = "Insert into Employee ([EmpID],[PSoftID],[FName],[PrefFName],[LName],[DeptID],[NasEmp],[PicPath],[CSC-Member],[FAT-Member],[FC-Member],[FRT-Member],[TMatics],[Active]) values (" + string(emp-mstr.empid) + "," + string(emp-mstr.psoftid) + ",'" + emp-mstr.fname + "','" + emp-mstr.Preffname + "','" + emp-mstr.lname + "'," + string(emp-mstr.deptid) + "," + string(emp-mstr.nasemp) + ",'" + chrPicPath + "'," + string(emp-mstr.csc-member) + "," + string(emp-mstr.fat-member) + "," + string(emp-mstr.fc-member) + "," + string(emp-mstr.frt-member) + "," + string(emp-mstr.tmatics) + "," + string(emp-mstr.active) + ");". Conn = NEW System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=H:\Zebra_Cardstudio\nascote.mdb;"). Conn:Open(). Writer = Conn:BeginTransaction(System.Data.IsolationLevel:Unspecified). Cmd = NEW System.Data.OleDb.OleDBCommand(chrQuery,conn,Writer). Cmd:CommandText = chrQuery. Cmd:ExecuteNonQuery(). Writer:Commit(). Conn:Close(). END.
Continue reading...
Continue reading...