当前位置：首页 > 实用文档 > 其他范文> 如何实现数据的自动录入数据库教程

如何实现数据的自动录入数据库教程

时间：2023-01-31 07:34:47 其他范文收藏本文下载本文

如何实现数据的自动录入数据库教程（锦集8篇）由网友“梧桐”投稿提供，以下是小编帮大家整理后的如何实现数据的自动录入数据库教程，欢迎大家收藏分享。

如何实现数据的自动录入数据库教程

篇1：如何实现数据的自动录入数据库教程

数据

用户录入数据时经常会遇到大量重复数据，即录入下一条记录的某个字段时，其值与上一条记录同字段的值相同，

如何实现数据的自动录入数据库教程

。如果编些程序自动录入相同值会大大提高录入速度。具体实现方法如下：一、程序中主要用到的函数1、FileOpen 功能：以指定的读写模式打开指定的文件，同时返回文件的句柄。2、FileWrite() 功能：从指定文件读取数据。3、FileClose() 功能：关闭先前用FileOpen()函数打开的文件。4、settext() 功能：得到当前行和列之上的编辑框中的值。5、gettext() 功能：替换在DataWindow控件或DataStore对象的当前行列的编辑框控件中的文本。6、send() 功能：向窗口发送指定的消息并立即执行相应的事件处理程序。7、describe() 功能：返回DataWindow对象或Datastore对象中的其它对象的属性值。以上函数在有关Pb的函数书中均可以找到，这里不再详述，但要注意后面两个函数的使用方法。二、具体实现方法1、建立window具体控件名称如图1所示。 2、定义实例变量数组 string is_value[] 和 integer if_File（存放打开文件的句柄）string is_columncount3、在window的Open事件中编写如下代码int iif_File = FileOpen(“Sys.ini”,LineMode!, Read!, LockRead!)is_columncount = dw_input.Describe(“DataWindow.Column.Count”) //取得DataWindow对象的总列数for i = 1 to integer(is_columncount)FileRead(if_File, is_value[i])nextFileClose(if_File)dw_input.Scrolltorow(dw_input.rowcount()) //将光标设置到最后行列dw_input.setcolumn(integer(is_columncount)) 在window 的Close事件中编写如下代码int iif_File = FileOpen(“Sys.ini”,LineMode!, Write!, LockWrite!, Replace!)for i = 1 to integer(is_columncount)FileWrite(if_File, is_value[i])nextFileClose(if_File)4、给Datawindow control自定义一个回车键事件：Event name: ue_keyenter Event ID: pbm_dwnprocessenter 5、在Datawindow control的ue_keyenter事件中写入以下代码is_value[this.getcolumn()] = this.gettext()Send(Handle(this),256,9,Long(0,0))this.settext(is_value[this.getcolumn()])return 1在Datawindow control的constructor事件中写入以下代码this.Settransobject(sqlca)this.retrieve()6、给cb_append自定义一个回车事件Event name: ue_keydown Event ID: pbm_keydown在cb_append的clicked事件中写入以下代码dw_input.Setfocus()dw_input.ScrollToRow(dw_input.InsertRow(0)) //追加一空记录并指向新记录dw_input.SetColumn(1) //指向公寓名列dw_input.Settext(is_value[1])在cb_append的ue_pbm_keydown事件中写入以下代码if keydown(keyenter!) thenthis.Triggerevent(clicked!)end if※ 注意各个控件的tab order的顺序，以上步骤只是简单的实现快速录入，如果遇到具体情况还应该做更详细的编码。

篇2：Excel教程：实现数据最快速录入

新学期开始，学校要对上学期在德、智、体各方面表现出色的学生进行奖励，教务主任把各班的学生推荐表交给了我，让我用Excel整理并打印出来交学校审核，我心想这还不是件简单的事情?一个一个输入到电脑里，再排序、排版不就行了。说起来简单，可干起来就快不了了。表格项目很多，光录入一张表格的数据就得用几分钟，可是有一百多份表格呢!我遇事喜欢琢磨，总想看看有没有可以“偷懒”的地方，只有巧干才能提高工作效率嘛!

对照表格我发现，很多表格项目如“性别”、“所属年级”、“是否团员”等项目，其填写的内容都是相同的几个值，能不能像上网时填写网页表单那样，将这些内容做成下拉式菜单，这样这些项目录入时就可以不需输入而可以直接选择，不就能大大提高录入速度了吗?下面就以录入“所属年级”这一表格项目为例，介绍一下具体实现的过程。

1.设置序列的有效值

这里所指的“序列”即某字段(如“所属年级”)内可能会填写的内容，这些内容是固定的，一般个数不会太多。首先选定“所属年级”字段所在的列 (除了字段名称)，单击“数据”菜单中的“有效性”命令，弹出“数据有效性”对话框，选中“设置”选项卡，在“允许”下拉菜单中选择“序列”，在数据“来源”中输入“初一,初二,初三,高一,高二,高三”(一定要在英文状态下输入逗号作为分隔符!)，其他设置按系统默认不变(如图1)，

图1设置序列的有效值

2.设置输入提示信息

输入提示信息可以使录入过程更加清晰明了。具体制作步骤是：在图1中单击“输入信息”选项卡，选中“选定单元格时显示输入信息”复选框，在“输入信息”框内输入“请选择该生所属年级!”(如图2)。设置完成后，单击[确定]按钮。

图2设置输入提示信息

3.数据的录入

在以上设置完成之后就可以对所有学生的年级进行选择录入了，若要录入某学生的“所属年级”，只需单击单元格右侧的下拉菜单(如图3)，选择该生所属的年级就可以了。

图3数据的录入

其他许多表格项目的录入也可以进行类似的设置，以提高录入效率。

篇3：实现Oracle异地数据自动备份方案数据库

相关命令文中主要用到三个命令，这里先单独介绍一下： export: 将数据库中数据备份成一个二进制系统文件，它有三种模式: 用户模式、表模式、整个数据库模式，还可分为三种备份类型：完全型、积累型、增量型。本文以整个数据库模式下的完全型为例说明。expor

篇4：Excel录入数据自动添加计量单位

我们在单元格中进行数据录入时，经常需要添加一些单位，例如金额单位元、分数单位元。如果频繁的重复录入这些单位显的比较麻烦，其实我们可以使用自定义格式来实现自动添加计量单位。

将需要自动添加计量单位的单元格选中，然后打开“格式”菜单下的“单元格”命令。将打开的单元格格式窗口切换到“数字”标签，在“分类”列表中选择“自定义”，在“类型”中选择对应的数据格式，并在选中的数据类型的格式文本后添加上相应的计量单位，例如元、分等(图1)，

设置好之后单击“确定”按钮，这样在经过格式设置的单元格里录入数据时，将会自动添加预设的单位。

图1 Excel录入数据自动添加计量单位

篇5：如何实现100％的动态数据管道(二)数据库教程

动态|数据

主要思路解决了,下面开始写详细设计(以Sybase ASE数据库为例,其他各位扩展):

1.建立中间层表vdt_columns,这个表的属性用于构建管道中的列资料.

执行类似的代码生成:

ls_sql = “create table vdt_columns (”

ls_sql +=“uid int null ,”

ls_sql +=“upkey varchar(1) null ,”

ls_sql +=“udmid int null,”

ls_sql +=“udmname varchar(30) null,”

ls_sql +=“unulls varchar(1) null ,”

ls_sql +=“uwidth int null ,”

ls_sql +=“uscale int null,”

ls_sql +=“uname varchar(30) null,”

ls_sql +=“udefault varchar(255) null,”

ls_sql +=“ucheck varchar(255) null,”

ls_sql +=“uidentity int null”

ls_sql +=“)”

EXECUTE IMMEDIATE :ls_sql using SrcSqlca;

2.构建其他相关的可能用到中间层视图:

系统对象视图:

ls_sql = 'create view vdt_objects (uid,uuid,uname,utype) as'+&

' select id,uid,name,(case type when~'TR~' then ~'T~' else type end) from sysobjects'

EXECUTE IMMEDIATE :ls_sql using SrcSqlca;

系统表视图:

ls_sql = 'create view vdt_tables (uid,uuid,uname)as'+&

' select id,uid,name from sysobjects where type = ~'U~''

EXECUTE IMMEDIATE :ls_sql using SrcSqlca;

3.初始化vdt_columns 表.

insert vdt_columns

select sc.id,so.name,sc.colid,'N',sc.type,

(case when (select count(*) from systypes st where sc.type=st.type and sc.usertype=st.usertype)=0 then (select max(st.name) from systypes st where sc.type=st.type) else (select st.name from systypes st where sc.type=st.type and sc.usertype=st.usertype) end),

'N',(case when prec is not null then isnull(sc.prec,0) else sc.length end),

sc.scale,sc.name,substring(sy.text,9,char_length(sy.text) -8),“0”,(case when sc.status=128 then 1 else 0 end)

from syscolumns sc,sysobjects so ,syscomments sy

where sc.id*=so.id and sc.cdefault*=sy.id

using SrcSqlca;

在Sybase中,确定主键列比较麻烦:

declare cur_vdtcolumns cursor for

select distinct utname from vdt_columns

using SrcSqlca;

open cur_vdtcolumns;

fetch cur_vdtcolumns into :ls_utname;

do while SrcSqlca.sqlcode=0

wait(true)

ls_nulls='';ls_pkey=''

of_getnull_ase(ls_utname,ls_nulls)

of_getpk_ase(ls_utname,ls_pkey)

if len(ls_pkey)>0 then

update vdt_columns

set upkey = 'Y',unulls='N'

where CHARINDEX(uname,:ls_pkey)>0

and utname = :ls_utname

using SrcSqlca;

end if

fetch cur_vdtcolumns into :ls_utname;

loop

end if

其中of_getpk_ase用于确定某列是否是主键.

/*Out of date*/

Long Ll_Cnt

int Li_keycnt,Li_indexid,Li_indstat,Li_indstat2

String Ls_keys,Ls_ThisKey

int Li_i

If Not IsValid(SrcSqlca) Then return -1

Select Count(*) Into :Ll_Cnt From sysobjects Where name = :as_tablename Using SrcSqlca;

If Ll_Cnt <= 0 Then

return -2

End if

DECLARE curs_sysindexes CURSOR FOR

SELECT keycnt, indid, status, status2

FROM sysindexes

WHERE id = object_id(:as_tablename) AND indid >0 Using SrcSqlca;

OPEN curs_sysindexes ;

FETCH curs_sysindexes INTO :Li_keycnt, :Li_indexid, :Li_indstat, :Li_indstat2;

do while (SrcSqlca.Sqlcode = 0)

If Mod(int(Li_indstat2/2),2) = 1 Then

IF Mod(int(Li_indstat/2048),2) = 1 Then //主键

Ls_Keys = ''

Li_i = 1

do while Li_i <=Li_keycnt

Select distinct index_col(:as_tablename, :Li_indexid, :Li_i) into :Ls_ThisKey

From vdt_columns Using SrcSqlca;

If Isnull(Ls_ThisKey) Then

Exit

Else

If Li_i >1 Then Ls_keys += ','

Ls_Keys += Ls_ThisKey

End if

Li_i ++

loop

End if

FETCH curs_sysindexes INTO :Li_keycnt, :Li_indexid, :Li_indstat, :Li_indstat2;

loop

CLOSE curs_sysindexes;

as_keys=Ls_keys

return 1

经过以上的步骤,中间层的数据就基本获得了,根据这些数据,基本上能够无误差的传输绝大部分表.构建了中间层,为以后的不同数据库的扩展打下了一个良好的基础.

不同的数据库,构造中间层的语法各有不同,但是中间层的表(视图)的结构是一样的,这样程序中处理的方法也统一了.

待续...

篇6：如何实现100％的动态数据管道(三)数据库教程

动态|数据

下面看看,如何根据中间层的数据,构建管道语法:

1.首先建立一个数据窗口对象:d_vdtcolumns

SQL语法是:

SELECT vdt_columns.utid,

vdt_columns.uid,

vdt_columns.upkey,

vdt_columns.udmid,

vdt_columns.udmname,

vdt_columns.unulls,

vdt_columns.uwidth,

vdt_columns.uscale,

vdt_columns.uname,

vdt_columns.udefault,

vdt_columns.ucheck,

vdt_columns.utname,

vdt_columns.uidentity

FROM vdt_columns

WHERE utname = :as_tname

2.准备工作就绪,下面就是主战场了,开始构建数据管道.

考虑到一个管道对象可以传输多个任务,建立一个对象nvo_pipetransattrib保存传输需要的语法:

它包含了一下的instance变量:

string is_objectname //表名

string is_syntax //管道语法

string is_sconnect='zw',is_dconnect='daixf' //源数据库连接和目的数据库连接

string is_ptype,is_pcommit,is_errors //管道的几个属性

string is_sname,is_dname //源表名,目的表名

string is_sqlsyntax //管道的SQL语法

建立一个对象,从数据管道对象继承.

开始构造语法:写一个函数.

nvo_pipetransattrib inv_attrib[]

string ls_syntax,ls_sourcesyntax,ls_destsyntax

int li,lj,li_ind,li_find,li_rows,li_identity

string ls_tablename,ls_default,ls_defaultvalue,ls_pbdttype

boolean lb_find

dec ld_uwidth,ld_prec,ld_uscale

string ls_types,ls_dbtype,ls_prikey,ls_name,ls_nulls,ls_msg,ls_title='of_constrpipesyntax()'

nvo_string lnv_string

nvo_datastore lds_vdtcolumns

boolean lb_key

lds_vdtcolumns=create nvo_datastore

lds_vdtcolumns.dataobject='d_vdtcolumns'

lds_vdtcolumns.settransobject(SrcSqlca)

li=1

of_input(inv_attrib[li])

li_find=pos(inv_attrib[li].is_sqlsyntax,'*',1)

if li_find>0 then

lds_vdtcolumns.retrieve(as_tablename)

of_filterimg(lds_vdtcolumns)

li_rows=lds_vdtcolumns.rowcount()

for lj=1 to li_rows

ls_name=lds_vdtcolumns.getitemstring(lj,'uname')

ls_types=lds_vdtcolumns.getitemstring(lj,'udmname')

li_identity = lds_vdtcolumns.getitemnumber(lj,'uidentity')

ls_types=of_getpipedbtype(is_s_dbtype,ls_types)

ls_pbdttype=of_getpbdttype(is_s_dbtype,ls_types)

choose case ls_types

case 'char','varchar','nchar','nvarchar','long varchar'

if ls_types='long varchar' then ls_types='varchar'

ld_uwidth=lds_vdtcolumns.getitemnumber(lj,'uwidth')

ls_dbtype=ls_types+'('+string(int(ld_uwidth))+')'

case 'decimal','numeric'

ld_uwidth=lds_vdtcolumns.getitemnumber(lj,'uwidth')

ld_uscale=lds_vdtcolumns.getitemnumber(lj,'uscale')

if li_identity=1 then

ls_dbtype='identity'+'('+string(int(ld_uwidth))+','+string(int(ld_uscale))+')'

else

ls_dbtype=ls_types+'('+string(int(ld_uwidth))+','+string(int(ld_uscale))+')'

end if

case else

ls_dbtype=ls_types

end choose

ls_prikey=lds_vdtcolumns.getitemstring(lj,'upkey')

if ls_prikey='Y' then

lb_key=true

ls_prikey='key=yes,'

else

ls_prikey=''

end if

ls_nulls=lds_vdtcolumns.getitemstring(lj,'unulls')

if ls_nulls='Y' then

ls_nulls='yes'

else

ls_nulls='no'

end if

ls_default=isnull(lds_vdtcolumns.getitemstring(lj,'udefault'),'')

ls_sourcesyntax+=“COLUMN(type=”+ls_pbdttype+“,name=~”“+ls_name+”~“,dbtype=~”“+ls_dbtype+”~“,”+ls_prikey+“nulls_allowed=”+ls_nulls+“)~r~n”

if ls_default='' then

if li_identity = 1 then

ls_destsyntax+=“COLUMN(type=”+ls_pbdttype+“,name=~”“+ls_name+”~“,dbtype=~”“+ls_dbtype+”~“,”+ls_prikey+“nulls_allowed=”+ls_nulls+“,initial_value=~”exclude~“)~r~n”

else

ls_destsyntax+=“COLUMN(type=”+ls_pbdttype+“,name=~”“+ls_name+”~“,dbtype=~”“+ls_dbtype+”~“,”+ls_prikey+“nulls_allowed=”+ls_nulls+“)~r~n”

end if

else

if li_identity = 1 then

ls_destsyntax+=“COLUMN(type=”+ls_pbdttype+“,name=~”“+ls_name+”~“,dbtype=~”“+ls_dbtype+”~“,”+ls_prikey+“nulls_allowed=”+ls_nulls+“,default_value=~”“+ls_default+”~“,initial_value=~”exclude~“)~r~n”

else

end if

else

return ''

end if

ls_sourcesyntax+=')'

ls_destsyntax+=')'

//generate PIPELINE

//example:

//PIPELINE(source_connect=csfdata,destination_connect=csfdata,type=replace,commit=100,errors=100,keyname=“Bar_x”)

if lb_key then

ls_syntax+='PIPELINE(source_connect='+inv_attrib[li].is_sconnect+',destination_connect='+inv_attrib[li].is_dconnect+',type='+inv_attrib[li].is_ptype+',commit='+inv_attrib[li].is_pcommit+',errors='+inv_attrib[li].is_errors+',keyname=“'+as_tablename+'_x”)~r~n'

else

end if

//generate SOURCE

//example:

//SOURCE(name=“Bar”,COLUMN(type=char,name=“CustomCode”,dbtype=“char(8)”,key=yes,nulls_allowed=no)

ls_syntax+='SOURCE(name=“'+inv_attrib[li].is_sname+'”,'

ls_syntax+=ls_sourcesyntax

//generate RETRIEVE

//example:

//RETRIEVE(statement=“SELECT Bar.CustomCode,Bar.BarCode,Bar.ItemCode,Bar.Metering,Bar.PackSize,Bar.Length,Bar.Width,Bar.High,Bar.Vol,Bar.Weight,Bar.NewPackFlagFROM Bar”)

ls_syntax+='RETRIEVE(statement=“'+inv_attrib[li].is_sqlsyntax+'”)'

//generate DESTINATION

//example:

//DESTINATION(name=“Bar_copy”,

//COLUMN(type=char,name=“CustomCode”,dbtype=“char(8)”,key=yes,nulls_allowed=no,initial_value=“spaces”)

ls_syntax+='DESTINATION(name=“'+inv_attrib[li].is_dname+'”,'

ls_syntax+=ls_destsyntax

return ls_syntax

这个函数的返回值就是构建完成的管道语法了.

其中:初始化的函数:of_input(inv_attrib[li])

是初始化,inv_attrib的函数,初始化的数据主要是用户需要输入的条件,比如管道的type,commit,errors,select语句.

需要说明一下,其中处理了几个特殊的情况的函数.

of_filterimg(lds_vdtcolumns):

过滤掉表中的image列,因为管道不支持image数据传输.

of_getpipedbtype(is_s_dbtype,ls_types):

根据表中列的类型得到管道中数据列的类型,因为他们不是总是一一对应的.

这个可以通过一个extend datawindowobject,并包含有初始数据来实现.

of_getpbdttype(is_s_dbtype,ls_types):

根据表中列的类型得到管道中列的类型,因为他们也不是总是一一对应的.

这个可以通过一个extend datawindowobject,并包含有初始数据来实现.

管道语法构建完成了,就可以执行管道传输了:

this.syntax=得到的语法

li_RC = this.Start(SrcSqlca,DestSqlca,idw_Errors)

If li_RC 1 Then

if not ib_silence then msg(ls_title,“对象传输失败: ” + string(li_rc))

of_addtransmsg(' 对象<'+is_currentobj+'>传输失败：' + string(li_rc) )

return li_RC

rollback ;

else

Commit;

End if

篇7：实现自动安装SQLServer数据库数据库

下面简单介绍一下如何在工程中添加Microsoft SQL Server Desktop Engine （MSDE）的自动安装合并模块MSM： 1. 首先你需要下载MSDE2000的sp3安装包，可以从下面的链接去下载，URL： www.microsoft.com/sql/downloads/2000/sp3.asp 2. 下载完成，

下面简单介绍一下如何在工程中添加Microsoft SQL Server 2000 Desktop Engine （MSDE）的自动安装合并模块MSM：

1. 首先你需要下载MSDE2000的sp3安装包。可以从下面的链接去下载，URL： www.microsoft.com/sql/downloads/2000/sp3.asp

2. 下载完成，你可以安装或者用ZIP解压到本地硬盘，将可以看到：Msi、MSM、Setup这3个目录和setup等文件，其中的MSM文件夹中的东东就是本文要介绍的MSDE2000合并模块。

3. 在你的工程中添加一个安装工程（假设为MySetup1，路径为c：MySetup1），按照正常的步骤添加工程输出（Project Output），选择输出文件（primary output）和内容文件（content files）两项。

4. 添加合并模块（Merge Moudle），选择浏览，指定到你的MSDE的MSM文件夹，选则MSM和msm1033下的所有的文件（REPL.MSM、REPL_RES.MSM、DMO_RES.MSM和DMO.MSM可以不选），打开。

5. 设置安装工程的属性（Properties）中的SearchPath，指定为你的MSM所在路径（这时需要添加两个：pathMSM和pathMSM1033）。

6. 设置关于安装程序的其他属性咱们暂且不提，这是可以对你的安装工程进行编译了，当编译通过后，你可以在c：MySetup1Debug看到你的打包工程MySetup.msi.

7. 这是工程打包告一段落，下面我们需要修改打好的安装包，使它可以在安装完程序后自动安装MSDE的一个实例（假设实例名为：MyServer）。现在我们需要用到MS的一个工具ORCA，下载地址：support.microsoft.com/default.aspx？scid=kb；EN-US；255905安装了orca后就可以利用这个工具对我们的MySetup1.msi进行修改了。

8. 用ORCA打开安装包文件MySetup.msi，找到Property这个table，ADD Row 在Propetry中填入SqlInstanceName，value中填入实例名MyServer.其他的参数请参见：support.microsoft.com/？id=810826和support.microsoft.com/default.aspx？scid=kb；en-us；281983

9. 所有的参数中有关密码的属性，我没有成功，就是SqlSaPwd，这个参数是和SqlSecurityMode一起使用的，但是我一直没有设置成功，密码总是为空的，不知何故！

10. 选择InstallExecuteSequence这个table，找到SetPropSQLMSDEInstalled这个Action，修改206为102；找到RemoveExistingProducts，修改1525为6601.保存，退出！

这时，在没有SQL环境的机器上运行你的安装包，在程序安装完后，会自动安装MSDE的MyServer实例，并在重起机器后，自动启动Sql Server的实例。

前一篇中介绍了如何连同Sql Server的桌面版本一同打包到安装程序的简单步骤，这里还想就自己对于：发布程序到已经有SQL环境的计算机时，自动使用SQL的Osql来恢复指定的数据库到你的SQL Server的Date中。

首先，在c：创建一个临时目录，例如c：TempBD ，拷贝Osql.exe到目录下，拷贝你的数据库备份（TruckDB）到目录下；在目录下分别创建Restore.bat和Restore.txt文件，内容如下：

1. Restore.bat文件内容：

osql -E -S -i C：TempDBRestore.txt

2. Restore.txt文件内容：

use master

if exists （select * from sysdevices where name='TruckDB'）

EXEC sp_dropdevice 'TruckDB'

Else

EXEC sp_addumpdevice 'disk'，'TruckDB'， 'C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB.mdf'

restore database TruckDB

from disk='c：TempDBTruckDB'

with replace

其次，在你的工程中添加一个Installer Class：选中Project主工程，添加Installer Class，名称假定为installer1.选择instller1的代码页，添加下面的代码：

Public Overrides Sub Install（ByVal stateSaver As System.Collections.IDictionary）

'重写install方法

Dim file As System.IO.File

If file.Exists（“C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB_data.mdf”） = True Then Exit Sub

MyBase.Install（stateSaver）

Dim CheckedDir As System.IO.Directory

If CheckedDir.Exists（“C：Program FilesMicrosoft SQL ServerMSSQLData”） = False Then

CheckedDir.CreateDirectory（“C：Program FilesMicrosoft SQL ServerMSSQLData”）

End If

Dim FullPath As String

Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly

Dim strConfigLoc As String

strConfigLoc = Asm.Location

Dim file As System.IO.File

If file.Exists（“C：Program FilesMicrosoft SQL ServerMSSQLDataTruckDB_data.mdf”） = True Then Exit Sub

MyBase.Install（stateSaver）

Dim CheckedDir As System.IO.Directory

If CheckedDir.Exists（“C：Program FilesMicrosoft SQL ServerMSSQLData”） = False Then

CheckedDir.CreateDirectory（“C：Program FilesMicrosoft SQL ServerMSSQLData”）

End If

Dim FullPath As String

Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly（）

Dim strConfigLoc As String

strConfigLoc = Asm.Location

Dim strTemp As String

strTemp = strConfigLoc

'提取安装路径

strTemp = strTemp.Remove（strTemp.LastIndexOf（“”）， Len（strTemp） - strTemp.LastIndexOf（“”））

'Copy DateBase to computer.

If CreatDIR（strTemp） = False Then

'失败，反安装

Me.Uninstall（stateSaver）

Exit Sub

Else

End If

If InstallDB（strTemp） = False Then

‘失败，反安装

Me.Uninstall（stateSaver）

Exit Sub

Else

End If

‘删除数据库临时文件

DeleteDIR（“c：TempDB”）

DeleteDIR（strTemp + “TempDB”）

End Sub

Public Overrides Sub Uninstall（ByVal stateSaver As System.Collections.Idictionary）

‘执行反安装

‘利用反射提取安装路径

MyBase.Uninstall（stateSaver）

Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly（）

Dim strConfigLoc As String

strConfigLoc = Asm.Location

Dim strTemp As String

strTemp = strConfigLoc

strTemp = strTemp.Remove（strTemp.LastIndexOf（“”）， Len（strTemp） ? strTemp.LastIndexOf（“”））

‘删除数据库文件和临时文件

DeleteDIR（strTemp + “TempDB”）

DeleteDIR（“c：TempDB”）

End Sub

Private Function DeleteDIR（ByVal path As String） As Boolean

‘删除指定的文件夹

Dim dir As System.IO.Directory

If dir.Exists（path） = True Then dir.Delete（path， True）

End Function

Private Function CreatDIR（ByVal path As String） As Boolean

‘创建指定的文件夹

Dim Files As System.IO.File

Dim Dirs As System.IO.Directory

Try

If Dirs.Exists（“c：TempDB”） = False Then Dirs.CreateDirectory（“c：TempDB”）

‘copy Creat DB files

CopyFile（path + “TempDB”， “C：TempDB”）

Return True

Catch

Return False

End Try

End Function

Private Sub CopyFile（ByVal SourceDirName As String， ByVal DestDirName As String）

‘copy指定的文件夹的所有文件到目标文件夹（单层），

Dim dir As System.IO.Directory

Dim File As System.IO.File

Dim sPath， oPath As String

Dim I As Integer

For I = 0 To dir.GetFiles（SourceDirName）。Length ? 1

sPath = dir.GetFiles（SourceDirName）。GetValue（i）。ToString

Path = Microsoft.VisualBasic.Right（sPath， Len（sPath） ? Len（SourceDirName））

File.Copy（sPath， DestDirName + oPath， True）

End Sub

Private Function InstallDB（ByVal path As String） As Boolean

‘安装数据库，调用自动批处理。

'Dim CheckedDir As System.IO.Director

原文转自：www.ltesting.net

篇8：PPT实现数据录入与计算

现在PowerPoint仍然是很多教师制作课件的工具，但是大多数教师在使用PowerPoint时都还是使用它最简单的功能——逐页展示文字或图片，其实将PowerPoint演示文稿与Excel工作表结合起来也可以进行数据的录入和计算，这将大大地方便数理化教师在课堂演示实验时的数据计算，只要将教师或学生的实验数据输入即可获得正确的计算结果.

1. 打开PowerPoint 2002，新建一张幻灯片，设置好背景，

2. 点击“插入→对象”，在出现的选择页中选择新建“Microsoft Excel 工作表”，点击〔确定〕后即在幻灯片中出现Excel的工作界面（如图1），接下来就可以按Excel表格的使用方法进行表格的设计和公式的输入。

3. 调节Excel工作表的边框，直到只露出我们需要的表格（如十行四列）为止，否则旁边多余的行和列将会使表格太小，影响观看。然后用鼠标在幻灯片上单击，退出工作表编辑状态，将鼠标放在表格边框的圆点上调节表格直到我们需要的大小。

4. 双击表格再次进入Excel工作表的工作界面，对表格的背景、边框、字体的颜色进行设置（在Excel中通常都是用白色背景，这里应该考虑到与幻灯片背景的协调。

★ 用Excel列表实现批量录入功能EXCEL基本教程

★ 窗体动态效果的实现数据库教程

★ Excel自动录入性别

★ 新手建站入门教程⑥：FlashFXP详细使用方法

★ WPS表格教程：快速统计学生成绩

★ [教程转载] 用友T6餐饮管理系统如何做预定

★ 如何恢复MYSQL实体文件MYI,MYD到数据库中数据库教程

★ 网页信息表格化提取程序的论文