ACCESSVBA编程入门.ppt

练习 写出vb java等价控件语句p192 文本框 文本区 按钮 选项框 组合框 选项 CommandButton Caption等价javaButton 保存 ComboBox Value等价javaChoice ComboBox AddItem 新鲜 等价java选项框 addItem 新鲜 单选按钮组 OptionButton Value等价javaCheckbox 父 选项按钮组 false Caption TextBox Text等价javaTextField 18 TextBox Text MultiLine True 等价javaTextArea 3 25 列表框 列表项 ListBox AddItem 红色 等价java列表框 add 红色 Label Caption等价javaLabel 总金额 标签 复选按钮 Checkbox Value等价javaCheckbox 本10元 Caption ListBox Value等价javaList 2 false 练习 写出VB控件操作语句p192 选项框 组合框 文本框 Text CInt 文本框 Text 1 文本框 Text ComboBox1 Value IfOptionButton1 Value TrueThen文本框 Text OptionButton1 Caption 单选按钮组 Else文本框 Text OptionButton2 CaptionEndIf t Label1 Caption TextBox2 Text TextBox2 Text 文本框 Text 文本框 Text ListBox1 Value IfCheckBox1 Value TrueThen文本框 Text CheckBox1 CaptionEndIf Label1 Caption 文本框 Text 文本框 Text t 练习 VB写出文件与文本框语句p192 文本框 TextBox1 Text TextBox1 Text inputdate 磁盘文件 E txt Open E txt ForOutputAs 1 Print 1 TextBox1 Text Close1 LoopClose 1 Open E txt ForInputAs 1 inputdate Input 1 1 DoWhileNotEOF 1 Open文件名ForInput Output AppendAs 文件号 1 列表框用于显示多个选项并从中选择 只能单选 示例 做两个使用列表框和两个按钮 用AddItem RemoveItem和SetFocus方法以及ListIndex和ListCount属性来添加和删除ListBox的内容 要使用这个例子 需把示例编码复制到某窗体的 该窗体要包含 列表框 DimEntryCountAsSingle通用 声明 部分 PrivateSubUserForm Initialize EntryCount 0EndSub PrivateSubCommandButton1 Click EntryCount EntryCount 1ListBox1 AddItem EntryCount Selection EndSub PrivateSubCommandButton2 Click ListBox1 setFocusListBox2 AddItem ListBox1 Text useradd 确认ListBox包含列表项IfListBox1 ListCount 1Then 如果没有选中的内容 用上一次的列表项 IfListBox1 ListIndex 1ThenListBox1 ListIndex ListBox1 ListCount 1EndIfListBox1 RemoveItem ListBox1 ListIndex EndIfEndSub AAA 列表框 DimMyArray 6 3 数组含有ListBox的列值 PrivateSubUserForm Initialize DimiAsSingleListBox21 ColumnCount 3 这个列表框包含三个数据列 加载整数值MyArrayFori 0To5MyArray i 0 iMyArray i 1 RndMyArray i 2 RndNexti 加载ListBox1ListBox21 List MyArrayEntryCount 0EndSubPrivateSubCommandButton1 Click EntryCount EntryCount 1ListBox1 AddItem EntryCount Selection EndSub PrivateSubCommandButton3 Click 确认ListBox包含列表项IfListBox2 ListCount 1Then 如果没有选中的内容 用上一次的列表项 IfListBox2 ListIndex 1ThenListBox2 ListIndex ListBox2 ListCount 1EndIfListBox1 AddItem ListBox2 Text useraddListBox2 RemoveItem ListBox2 ListIndex EndIfEndSub PrivateSubCommandButton2 Click ListBox1 setFocusListBox2 AddItem ListBox1 Text useradd 确认ListBox包含列表项IfListBox1 ListCount 1Then 如果没有选中的内容 用上一次的列表项 IfListBox1 ListIndex 1ThenListBox1 ListIndex ListBox1 ListCount 1EndIfListBox1 RemoveItem ListBox1 ListIndex EndIfEndSub AAA 组合框 列表框 PrivateSubCommandButton1 Click ListBox1 AddItem sd ListBox1 AddItem 1d ListBox1 AddItem 2d ListBox1 AddItem 3d ListBox1 AddItem 4d ComboBox1 AddItem b1 ComboBox1 AddItem b2 ComboBox1 AddItem b3 ComboBox1 AddItem b4 ComboBox1 AddItem b5 ComboBox1 AddItem b6 ComboBox1 AddItem b7 ComboBox1 AddItem b8 EndSub AAA 组合框 列表框 PrivateSubComboBox100 DblClick ByValCancelAsMSForms ReturnBoolean ComboBox100 AddItem b1 ComboBox100 AddItem b2 ComboBox100 AddItem b3 ComboBox100 AddItem b4 ComboBox100 AddItem b5 ComboBox100 AddItem b6 ComboBox100 AddItem b7 EndSub PrivateSubListBox100 DblClick ByValCancelAsMSForms ReturnBoolean ListBox100 AddItem sd ListBox100 AddItem 1d ListBox100 AddItem 2d ListBox100 AddItem 3d ListBox100 AddItem 4d EndSub AAA 滚动条 微调控件 输入网址 输入网址 WebBrowser1 Navigate2 TextBox1 text 建立试题库 第一步 使用ACCESS建立试题库function chr mdb 内含表chr内建立rubric字段 试题标题 option1 option4 预设4个选择项字段 提示 使用ACCESS版本必须低于ADO类的版本 即能被ADO识别 第二步 设置ppt启用宏 打开ppt 设置工具 宏 安全性为中或低 然后关闭后重新启动PPT 第三步 在幻灯片内添加必须控件 在当前幻灯片 打开VB工具栏 使用自定义工具栏添加 新建一个label或textbox控件 用于放置试题题目 新建4个checkbox控件 用于放置试题选项 新建1个commandbutton控件 用于启动VBA命令 调用ACCESS库 第四步 导入ADO类 使用菜单工具 引入命令 vba 引入MicrosoftActiveXDataobjects2 5library类 第五步 在声明内声明connection recordset对象实例 并赋给相应变量 PublicdbconnectAsNewADODB ConnectionPublicrsAsNewADODB RecordsetPrivateSubCommandButton1 Click 若连接对象已经建立 关闭它Ifdbconnect State adStateOpenAndNotIsEmpty adStateOpen Thendbconnect Close 指定用于连接的提供者的名称 我理解为数据源的设备驱动程序dbconnect Provider microsoft jet oledb 4 0 access97ois3 51 通过传递详细的字符串来指定数据源 这里取用了相对路径调用dbconnect ConnectionString data function chr mdb 建立连接dbconnect Open 若记录集已经打开关闭它Ifrs State adStateOpenAndNotIsEmpty adStateOpen Thenrs Close 按用户要求打开记录集 open的具体用法请查阅帮助rs Open chr dbconnect adOpenDynamic adLockOptimistic chr是表名 包含function chr mdb里 结果为全部字段的记录集 进入后做练习 回来判卷 WIN文件操作 functioncompute obj obj