专家坐堂-[分享]数据源名称的简单设置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [分享]数据源名称的简单设置

相信许多狐友,包括一些老手,做系统是从内部表开始的,写SQL代码开始也只是考虑内部表(帮助也是这样,最多提醒:如果使用外部数据源，记得设置数据源名称)

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.CommandText = "SELECT * From {订单}"

dt = cmd.ExecuteReader()

Dim jb As new SQLJoinTableBuilder("查询表1","订单")

jb.AddCols("日期", "数量","单价")

Tables("窗口1_Table1").Fill("Select * From {客户}",True)

这本来没有什么不妥,但随着水平的提高及数据量的增加,转为外部数据源是必然的选择!也许有狐友说:加上数据源不就完了!

是要加上数据源,但应该怎如何加上,才能通用及易于维护?

如在收尾阶段才来改的话,只怕也让你头痛不已:一个项目代码少说也有好几百页A4纸,一个更改不易,且容易漏网!

经过试验,我以为这样设置较易维护:

\'一. 设全局变量

Public cmd1 As SQLCommand

Public cns3 As String \'数据源

\'二.AfterOpenProject事件

cns3 = Nothing \'内部表为:Nothing,转为外部表时在此更改即可!

cmd1 = New SQLCommand \'专用为本项目

cmd1.ConnectionName = cns3 \'数据源

\'三.各处需设置数据源的地方

Dim dt As DataTable

cmd1.CommandText = "SELECT * From {订单}"

dt = cmd1.ExecuteReader()

Dim jb As new SQLJoinTableBuilder("查询表1","订单")

jb.ConnectionName = cns3 \'不管3721,写上数据源

jb.AddCols("日期", "数量","单价")

Tables("窗口1_Table1").Fill("Select * From {客户}",cns3,True) \'不管3721,写上数据源

[此贴子已经被作者于2013-6-29 18:53:41编辑过]