Flash Remoting加载Access数据库实例

1，在C:Inetpubwwwroot目录中创建一个虚拟目录acc，
打开记事本程序，输入以下代码：
<%@ Page Language="C#" debug="true" %>
<%@ Register TagPrefix="MM" Namespace="FlashGateway" Assembly="flashgateway" %>
<%@ import namespace="System.Data" %>
<%@ import namespace="System.Data.OleDb" %>
<MM:Flash id="Flash" runat="server" />
<script langauge="C#" runat="server">
void Page_Load (Object sender, EventArgs e) {
 // Create an OLE database connection and adapter
 OleDbConnection connection = new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("/acc/data/memberData.mdb"));
 OleDbDataAdapter adapter = new OleDbDataAdapter ("SELECT * FROM riamemberdata ORDER BY id", connection);
 // Fill your DataSet and close your connection
 DataSet dataset = new DataSet();
 adapter.Fill(dataset,"riamemberdata");
 connection.Close();
 // Bind your data to Flash
 Flash.DataSource = dataset.Tables["riamemberdata"];
 Flash.DataBind();
}
</script>
保存为<%@ Page Language="C#" debug="true" %>
<%@ Register TagPrefix="MM" Namespace="FlashGateway" Assembly="flashgateway" %>
<%@ import namespace="System.Data" %>
<%@ import namespace="System.Data.OleDb" %>
<MM:Flash id="Flash" runat="server" />
<script langauge="C#" runat="server">
void Page_Load (Object sender, EventArgs e) {
 // Create an OLE database connection and adapter
 OleDbConnection connection = new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("/acc/data/memberData.mdb"));
 OleDbDataAdapter adapter = new OleDbDataAdapter ("SELECT * FROM riamemberdata ORDER BY id", connection);
 // Fill your DataSet and close your connection
 DataSet dataset = new DataSet();
 adapter.Fill(dataset,"riamemberdata");
 connection.Close();
 // Bind your data to Flash
 Flash.DataSource = dataset.Tables["riamemberdata"];
 Flash.DataBind();
}
</script>
在acc目录下新建一个data文件，里面放access数据库文件，请从笔者网站下载该文件。
Flash端。
拖一个dataGrid组件，实例名称：mydg。
import mx.remoting.Service;
import mx.rpc.RelayResponder;
import mx.remoting.PendingCall;
import mx.rpc.ResultEvent;
import mx.rpc.FaultEvent;
import mx.remoting.RecordSet;
import mx.remoting.debug.NetDebug;
import mx.services.Log;
NetDebug.initialize ();
var mydg:mx.controls.DataGrid;
_global.style.setStyle ("themeColor", "haloBlue");
function getDB_Result (evt:ResultEvent):Void
{
 var rs = RecordSet (evt.result);
 mydg.dataProvider = rs;
}
function getDB_Fault (evt:FaultEvent):Void
{
 trace ("Error: " + evt.fault.faultstring);
}
var gatewayPath = "http://localhost/flashremoting/gateway.aspx";
var service:Service = new Service (gatewayPath, new Log (Log.DEBUG), "acc", null, null);
var mypc:PendingCall = service.getDB ();
mypc.responder = new RelayResponder (this, "getDB_Result", "getDB_Fault");
var ta:mx.controls.TextArea;
ta.editable = false;
ta.text = "文君提示:当您点击DataGrid组件时,此处将动态反映情况您所选择的详细信息.";
ta.color = 0x0000ff;
var dgListener:Object = new Object ();
dgListener.change = function (evt:Object)
{
 ta.text = "";
 var am:Object = mydg.getItemAt (evt.target.selectedIndex);
 ta.text = "名字:" + am.name + "  ID号码:" + am.__ID__ + "  地点:" + am.from + "  会员分类:" + am.member + "  软件分类:" + am.software + "  ICQ号码:" + am.icq + "  电话号码:" + am.phone;
};
mydg.addEventListener ("change", dgListener);
var la:mx.controls.Label;
la.autoSize = "left";
la.html = true;
la.text = "<u><font color="#0000ff"><a href="http://wenjunflash9.net">教程来源于文君工作室飞跃网</a></font></u>";
var lo:mx.controls.Loader;
lo.scaleContent = false;
lo.setSize (566, 83);
lo.contentPath = "f:/av.swf";

测试，最终效果如图：

完整源文件(含ACCESS数据库，ASPX文件)下载：http://wenjunflash.ourthink.cn/samples/acc.rar说明：源文件LOAD组件加载的是一个SWF广告，由于其存在于笔者本机，所以测试时可能找不到该文件，但不影响Flash Remoting的测试