>System.Data.OleDb.OleDbEnumerator o = new System.Data.OleDb.OleDbEnumerator(); >System.Data.DataTable dt = o.GetElements(); > >string s = ""; >for (int i = 0; i < dt.Rows.Count; i++) >{ > for (int j = 0; j < dt.Columns.Count; j++) > { > s += dt.Rows[i][j].ToString() + " "; > } > s += Environment.NewLine; >} >MessageBox.Show(s); >>
? OdbcDriverExists("sql server") && case doesn't matter Function OdbcDriverExists(tcDriver) LOCAL lcSaveProc, oOdbcReg as OdbcReg LOCAL ARRAY aDriver[1] && array to hold driver info if driver exists lcSaveProc = Set("Procedure") Set Procedure To (HOME(2) + "classes\registry.prg") ** odbc specific registry handling oOdbcReg = CREATEOBJECT("OdbcReg") ** does the requested driver exist? llRetVal = (oOdbcReg.EnumOdbcDrvrs(@aDriver, tcDriver) = 0) Set Procedure to &lcSaveProc Return llRetVal