2023年11月23日发(作者：)

1、

不可识别的数据库格式

0

当使用控件和数据库连接时，（数据库格式是），解决：

0

Option Explicit

0

0

Private daoDB36 As Database

Private rs As set

Dim sPath As String

sPath = "e:"

0

0

0

0

0

Set daoDB36 = DBEngine(0).OpenDatabase(sPath)

Set rs = cordset("myset")

Set set = rs

11、对话框

0

0

0

工程—部件—microsoft common dialog control

0

使用指定的方法，CommonDialog控件能够显示下列对话：

0

ShowOpen 显示一个“打开”对话框 ShowSave 显示一个“另存为”对话框

ShowColor 显示一个“颜色”对话框 ShowFont 显示一个“字体”对话框

ShowPrinter 显示一个“打印”或“打印机设置”对话框

ShowHelp

调用Windows帮助引擎显示一个标准的帮助窗口

一、ShowOpen方法的使用

应用程序需要打开文件时使用ShowOpen方法。在使用该方法之前应先设置打开文件所定位的驱动器和目录，

同时设置打开的文件类型。属性如下：

属 性

说 明

DialogTitle

“打开”对话框的窗口标题，类型为字符型(String)

Filter

要打开的文件类型及显示的文件过滤方式，类型为字符型(String)

MaxFileSize

要打开的文件名的最大长度，类型为整型(Integer,最大32K字节，256字节)

Initdir

要打开的文件所在的目录，类型为字符型(String)

Filename

按“确认”后返回的带全路径的文件名，包括后缀，类型为字符型(String)

Filetitle

按“确认”后返回的不带路径的文件名，包括后缀，类型为字符型(String)

注意：在每次使用该方法之前应重新设置Filename属性值，这样当按下“确认”按钮时返回要打开的文件名，按下

“取消”按钮时返回的是重新设置的Filename属性值，否则按下“取消”按钮时返回的是上一次使用该方法时设置的

Filena

me属性值

二、ShowSave方法的使用

应用程序需要将文件换名存盘时使用ShowOpen方法。在使用该方法之前应先设置保存文件的驱动器和目录。

属性如下：

DialogTitle

0

“另存为”对话框的窗口标题，类型为字符型(String)

Filter

要保存的文件类型及显示的文件过滤方式，类型为字符型(String)

Initdir

要保存的文件名所在的目录，类型为字符型(String)

Filename

按“确认”后返回的带全路径的文件名，类型为字符型(String)

Filetitle

按“确认”后返回的不带路径的文件名，类型为字符型(String)

注意：在每次使用该方法之前应重新设置Filename属性值，这样当按下“确认”按钮时返回要打开的文件名，按

下“取消”按钮时返回的是重新设置的Filename属性值，否则按下“取消”按钮时返回的是上一次使用该方法时设置

的File

name属性值。

三、ShowColor方法的使用

当应用程序需要选取某种颜色时使用该对话框。属性如下：

Color

返回所选取的颜色值，类型为长整型(Long Integer)，可以设置其Flags属性以获得某些特性，Flags可以设置如下

值：

cdCClFullOpen

&H2

显示全部的对话框，包括定义自定义颜色部分

CdlCCShowHelpButton

&H8

使对话框显示帮助按钮

CdlCCPreventFullOpen

&H4

使定义自定义颜色命令按钮无效以禁止定义自定义颜色

CdlCCRGBInit

&H1

为对话框设置初始颜色值

四、ShowFont方法

当应用程序需要选取某种字体时使用该对话框。属性如下：

属 性

说 明

FontName

返回所选取的字体名称，类型为字符型(String)

FontBold

返回所选取的字体是否为粗体，类型为逻辑型(Boolean)

FontItalic

返回所选取的字体是否为斜体，类型为逻辑型(Boolean)

FontUnderline

返回所选取的字体是否下划线，类型为逻辑型(Boolean)

FontStrikethru

返回所选取的字体是否删除线，类型为逻辑型(Boolean)

FontSize

返回所选取的字体大小，类型为整型(Integer,最大2160磅)

由于Windows95中的字体有打印字体和屏幕显示字体之分，要使用该对话框，

必须在使用前设置Flags属性来决定选取何种字体。Flags属性必须使用下列值之

一：

Flags属性值

对应的常数

说明

&H3

cdlCFBoth

字体对话框显示所有Windows95可用的屏幕显示字体和打印字体

&H2

cdlCFPrinterFonts

只显示可用的打印字体

&H1

cdlCFSereenFonts

只显示可用的显示字体

如果要选取字体的效果特性，还必加上&H100数值或常量cdlCFEffects，用来指定对话框允许选择删除线，下划

线，以及颜色效果。如果不设置Flags，将会显示一个消息框，提示“系统没有安装字体。”具体见后面举例。

五、ShowPrinter方法

该方法显示一个“打印”或“打印机设置”的标准对话框，究竟显示哪一个由Flags属笥的值来控制。当Flags属性

值为&H40时(对应的常量为cdlPDPrintSetup)，系统显示的是“打印机设置”对话框而不是“打印”对话框。

六、ShowHelp方法

当应用程序需要调用Windows95的API函数来显示帮助时，可以使用该方法打开一个标准的Windows帮助窗口。

使用该方法之前必须设置帮助文件的名称。属性如下：

属 性

说明

HelpCommand

设置帮助的类型，类型为整型(Integer)

HelpFile

设置应用程序的帮助文件名称，后缀为hlp,可以使用Microsoft Help编译器和Microsoft Word创建帮助文件，类型

为字符型(String)

最后举例说明标准对话框的使用。

先建立一个长6000宽4700的窗体，其Caption属性为“标准对话框举例”，StartUpPosition属性选择2-CenterScreen，

然后在窗体上建立一组8个命令按钮的控制数组，Name属性为Command1,Caption属性分别为“打开”，“另存为”，

“

字体”，“打印”，“打印机设置”，“颜色”，“帮助”，“退出”，Index分别为0，1，2，3，4，5，6，7，再建立一组7

个标签的控制灵敏组，Name属性为Labell,Caption属性均为空字符，Index属性分别为0，1，2，3，4，5，6，分

别放

置在Command1的右侧。再将Microsoft Common Dialog控件加入到工具箱中，在窗体上建立一个Commondialog

控件，其Name属性为Commondialog1。在Command1_Click()事件中填写如下代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Title=“打开文件”

me=""

="*.TXT|*.TXT"

r="C:"

en

Labell(0).Caption="选择打开的文件为："+me

Case 1

Title=“文件另存为”

me=""

="*.TXT|*.TXT"

r="C:"

ve

Labell(1).Caption="选择保存的文件为："+me

Case 2

Title=“选择字体”

=cd lCFBoth+cd1cfeffexects

nt

label1(2).Font=me

label1(2).fontbold=rd

Label1(2).fontItalic=alic

Label

0

0

seName = & ""

h

With set

0

.Fields("班级") =

.Fields("学号") =

.Fields("姓名") =

.Fields("性别") =

.Fields("出生日期") =

.Fields("联系电话") =

.Fields("家庭住址") =

.Fields("工作单位") =

.Fields("单位电话") =

.Fields("收费情况") =

.AddNew

0

0

0

0

0

0

.Fields("传呼") =

.Update

End With

0

0

0

0