Name : cSQL.cls

Var :
	- cdbsSql : the database
	-cdbsRecordSet : result of a request.
	-cindex : number of the current element.


Function : 
	- Connexion : database connection. type : boolean.
	- Exec_Requete : execute request. type : Integer.
	- GetData : return current data. type : variant.
	- Getrow : return total row of request result. type : integer.
	- MoveNext : go to next lign of request result. type : boolean.
	- Modif_Mdp : change password of database. type boolean.

Ex : 

Dim Database as new cSql
Dim nbresult as integer

if database.Connexion("database.sql","") then
  if database.Exec_Requete("select NAME from PEOPLE",false) <> -1 then
    nbresult = database.GetRow
    if nbresult > 0 then
      msgbox "we have " & nbresult & " result"
      do
	msgbox database.getdata
      while database.MoveNext
    else
      msgbox "we have 0 result"
    endif
  else
    msgbox "Execution failed"
  end if		
else
  msgbox "Connection failed"
end if