public shared function myodbcdataset(byval reqsql as string, _
         byval labase as string, byval server as string, _
         byval password as string, byval user as string, _
         byval nomdataset as string) as dataset
    ' connexion à un server mysql
    'avec le driver odbc 3.51 avec requette qui renvoie un dataset
    dim myconstring as string = _
        "driver={mysql odbc 3.51 driver};server=" & server _
        & ";database=" & labase & ";uid=" & user _
        & ";password=" & password & ";option=3;"
　 dim myodbcconnexion as new odbcconnection(myconstring)
    try
        dim ds as new dataset()
        dim cmd as odbcdataadapter = new
        odbcdataadapter(reqsql, myconstring)
        dim mycommand as new odbccommand()
        dim mydatareader as odbcdatareader
        cmd.fill(ds, nomdataset)
        myodbcconnexion.close()
        return ds
    catch myodbcexception as odbcexception
    '
      httpcontext.current.response.write(myodbcexception.tostring)
    catch myexception as exception
    '
      httpcontext.current.response.write(myexception.tostring)
    end try
end function

    //對函數(shù)的調(diào)用

  dim mondatasettemp as dataset = mysql_requettes.myodbcdataset(
               sql,
               constantes.odbcbase,
               constantes.odbcserver,
               constantes.odbcpwd,
               constantes.odbcuser,
               "mondataset")