用vb实现

VB6.0+Access数据库-ADOData

密码要在《所有》选项里的第6行中的《Jet

OLEDB:Database

Password》设置

把你的密码输入到他的值中

，就可以了

Do

While

Not

Adodc2.Recordset.EOF

'扫描删除

Adodc2.Recordset.Delete

Adodc2.Recordset.MoveNext

Loop

2、命令行 *** 作方式：

通过命令行 *** 作连接数据源

、打开数据源、数据绑定到控件。 *** 作如下：

2.1引用ADOData控件到工程中，并添加到窗体上。

2.2设置ADOData控件连接数据库：

数据库连接通常在窗体载入时完成，即在Form_Load()窗体载入事件中 *** 作。

VB6.0+Access数据库-ADOData

Private

Sub

Form_Load()

'首先连接数据库

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source=D:\VB2实验\学生信息管理系统\学生管理.mdbPersist

Security

Info=False"

'打开数据表

Adodc1.RecordSource

=

"学生基本信息表"

‘刷新数据显示

Adodc1.Refresh

‘以下为数据绑定，并显示

Text1.Text

=

Adodc1.Recordset.Fields(“学号").Value

……

End

Sub

VB6.0+Access数据库-ADOData

说明：连接数据库代码中使用了绝对地址，这种方法在地址变化时会产生错误，因此建议改为下面方式：

Adodc1.ConnectionString

=

“Provider=Microsoft.Jet.OLEDB.4.0Data

Source=

&

"

App.Path

&

"\学生管理.mdbPersist

Security

Info=False"

'打开数据表

Adodc1.RecordSource

=

"学生基本信息表"

注：App.Path表示为当前地址，即运行工程或程序时的地址。

VB6.0+Access数据库-记录 *** 作

记录 *** 作：

1、当前记录：是记录集在被访问的记录，我们可以通过Recordset对像的四个方法 *** 作

1.1、MoveFirst把第一条记录设为当前记录

格式：Ado控件名.Recordset.MoveFirst

例：Adodc1.Recordset.MoveFirst

1.2、MoveLast把最后一条记录设为当前记录

格式：Ado控件名.Recordset.MoveLast

例：Adodc1.Recordset.MoveLast

VB6.0+Access数据库-记录 *** 作

1.3、MoveNext把下一条记录设为当前记录

格式：Ado控件名.Recordset.MoveNext

注：当记录为最后一个时EOF属性变为True如再向下移动指针出错。因此用下面代码防止出错

例：If

Adodc1.Recordset.EOF=False

Then

Adodc1.Recordset.MoveNext

End

If

1.4、MovePrevious把上一条记录设为当前记录

格式：Ado控件名.Recordset.MovePrevious

注：当记录为第一个时BOF属性变为True如再向上移动指针出错。因此用下面代码防止出错

例：If

Adodc1.Recordset.BOF=False

Then

Adodc1.Recordset.MovePrevious

End

If

VB6.0+Access数据库-记录 *** 作

2、追加记录

使用ADO控件的AddNew方法添加一条空记录，系统将保存并把当前记录指针移到新记录上。

格式：

ADO控件名.Recorset.AddNew

例：在Adodc1控件连接数据表中添加一条空记录

Adodc1.Recordset.AddNew

注：此时如要使用文本框或相关控件输入信息，应先把当前文本框中数据清空。

VB6.0+Access数据库-记录 *** 作

3、保存记录

当在文本框（或相关）控件中输入信息后，使用下面方法保存数据：

‘把文本框中的数据存字段中

Adodc1.Recordset.Fields("学号").Value

=

Text1.Text

Adodc1.Recordset.Fields("姓名").Value

=

Text2.Text

……

Adodc1.Recordset.Update

注：在程序编写过程中，此方法用来进行数据保存，多用在添加记录后。也可在当前记录修改后保存修改值

VB6.0+Access数据库-记录 *** 作

4、删除记录

当前记录要删除时，可使用ADO控件的Delete方法完成。

*** 作：

使用移动记录指针方法（如下一条、上一条）命令把记录指针移动到要删除记录上，运行下面语句。

Adodc1.Recordset.Delete

注：记录删除后窗体上还是在显示与删除记录，可刷新一次数据库，并重新显示。方法如下。

Adodc1.Refresh

’刷新数据库存

显示记录语句略

VB6.0+Access数据库-记录 *** 作

5、查找记录

ADO控件可以使用Find方法根据条件寻找满足条件的记录，并把记录指针指向此记录做为当前记录。

例：查找姓名为李四的人

Adodc1.Recordset.Find

"姓名

=

'李四'"

显示语句略

VB6.0+Access数据库-记录 *** 作

6、关闭记录集

当数据记录访问结束时，可使用下面语句关闭记录集。

Adodc1.Recordset.Close

注：在退出按钮中使用时，还应在后面加上Unload

Me语句

1、首先确认你日志是否启用了mysql>show variables like 'log_bin'。

2、如果启用了，即ON，那日志文件就在mysql的安装目录的data目录下。

3、怎样知道当前的日志mysql>show master status。

4、看二进制日志文件用mysqlbinlog，shell>mysqlbinlog mail-bin.000001或者shell>mysqlbinlog mail-bin.000001 | tail，Windows 下用类似的。

MySQL的日志 *** 作：

1、首先，登陆mysql后，执行sql语句：show variables like 'log_bin'。

2、#错误日志log-errol开启方式：在my.ini的[mysqld]选项下：添加代码：log-error=E:\log-error.txt。

记录内容：主要是记录启动、运行或停止mysqld时出现的致命性问题，都是系统级的错误记录。

3、#查询日志：log，开启方式：在my.ini的[mysqld]选项下：添加代码：log=E:/mysql_log.txt。

4、#二进制日志：log-bin，开启方式：在my.ini的[mysqld]选项下：添加代码：log-bin=E:/mysql_log_bin，记录内容：主要是记录所有的更改数据的语句，可使用mysqlbinlog命令恢复数据。

该表和数据的问题：

改数据都是要写redo 日志的，无论是dml还是ddl，都会记录到redo日志，把 *** 作过的redo日志翻译过来就可以了。

接下来是如何使用logminer：

1 创建DBMS_LOGMNR包

以SYS用户执行下面四个脚本

A：$ORACLE_HOME/rdbms/admin/dbmslm.sql ，用来创建DBMS_LOGMNR包

SQL>@ $ORACLE_HOME/rdbms/admin/dbmslm.sql

程序包已创建。

授权成功。

B：$ORACLE_HOME/rdbms/admin/dbmslmd.sql. 用来创建数据字典文件。

SQL>@ $ORACLE_HOME/rdbms/admin/dbmslmd.sql

程序包已创建。

2 修改参数文件，指定分析数据的存放位置

添加UTL_FILE_DIR=\home\oracle\logminer

修改命令为：

SQL>alter system set UTL_FILE_DIR = '/home/oracle/logminer' scope = spfile

SQL>shutdown immediate

SQL>startup

3 创建数据字典文件

以SYS用户运行以下命令：

SQL>EXECUTE dbms_logmnr_d.build(dictionary_filename => 'sqltrace.ora',dictionary_location => ' /home/oracle/logminer')

4 建立日志分析表

执行以下命令：

第1个日志文件需要以dbms_lognr.new的方式添加，从第2个开始用dbms_logmnr.addfile方式添加

SQL>exec dbms_logmnr.add_logfile(options =>dbms_logmnr.new, logfilename =>‘redo文件的绝对路径’)

SQL>exec dbms_logmnr.add_logfile(options =>dbms_logmnr.addfile, logfilename =>‘redo文件的绝对路径’)

还可以分析以归档的离线重做日志文件，当然这要求数据库运行在归档模式。

5 启动logminer进行分析

执行以下命令：

SQL >exec dbms_logmnr.start_logmnr(options =>'/home/oracle/logminer/sqltrace.ora', starttime =>to_date(‘20071030 09:00:00’,’yyyymmdd hh24:mi:ss’), endtime =>to_date(‘20071031 09:00:00’,’yyyymmdd hh24:mi:ss’))

6 查看日志分析的结果

执行以下命令：

SQL>select username, sql_redo, sql_undo from v$logmnr_contents where username = ‘test’ and peration = ‘delete’

7 关闭LOGMINER

执行命令：

SQL>exec dbms_logmnr.end_logmnr

---