相信许多狐友,包括一些老手,做系统是从内部表开始的,写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编辑过]
加好友 
发短信
Post By：2013/6/29 18:49:00 [显示全部帖子]
[本帖被加为精华]
