程序和数据库连接

<!-- gte="" mso="" 9=""><![endif]--><!-- gte="" mso="" 9=""><![endif]-->
<!-- gte="" mso="" 10=""><style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:普通表格; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-qformat:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.5pt; mso-bidi-font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-font-kerning:1.0pt;} </style><![endif]-->![endif]-->!-->![endif]-->!-->![endif]-->!-->

程序连接数据库并且处理数据库中的数据：

一，（1），首先要安装数据库sql或者其他的数据库（Access数据库）

（2），安装好数据库后要在数据库中填入数据，建立表，

（3），然后就是在程序中引用ado，（Activex Data Objects 2.5 Library）

(4),因为ado是通过ODBC建立连接的所以要配置，ODBC的dsn文件

二，所有的外部数据建立好之后就是代码

（1），首先定义一个连接和一个记录集

Dimcnn as connectiongstring

Dimrst as ADODB.rcordset

(2),实例化连接

Setcnn=new connectionstring

(3),打开连接，就是如果是sql数据库就要给出dsn文件，用户名和密码

Cnn.open“filedsn=andy.dsn;uid=sa;pwd=123”

(3)执行sql语句

Cnn.execute “insert,delete,update” 这样就改变了数据库中的数据

三，如果要返回记录集，查询数据

(1),定义声明连接和记录集

Dim cnn as connectionstring

Dimrst as ADODB.recordset

（2），实例化，连接和记录集

Setcnn =new connectionstring

Setrst =new ADODB.recordset

(3),打开连接，数据库

Cnn.open “filedsn=andy.dsn;uid=sa;pwd=123”

（4），打开记录集，返回符合条件的数据

Rst.open “select * fromstudent ”,cnn,adopentkeyset,adlockoptimistic

(5)将搜所到的记录集，返回给一个变量

Dim mrc as ADODB.recordset

Set mrc=new adodb.recordset

Mrc=rst

<!--![endif]----><!--!----><!--![endif]----><!--!----><!--![endif]----><!--!---->