如何在excel里用vba编程制作一个简单的数据库

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.Oledb.4.0Persist Security Info = Falseextended properties='Excel 8.0HDR=YESIMEX=0'Data Source=“各科成绩表.xls"

If conn.State = adStateOpen Then

sSql = "select * from [sheet1$] where 姓名 like '" &str1 &"' and 成绩 like '" &str2 &"'

rs.Open sSql, conn, 1, 1

If rs.BOF And rs.EOF Then

。。。。。。

首先用VBA控件画好窗体，连接成绩表，再执行相应的 *** 作。。。

新建一个数据库有两种方法:一种是创建一个空数据库，即建立一个没有表、查询、窗体和报表等内容的数据库:另一种方法是使用Access中提供的数据库模板创建数据库，即通过对向导所提出的选项和不同选择来设计窗体、查询和报表等，从而建立一个完整的数据库。下面将使用第一种方法建立数据库。(1)在人c~窗口中单击【文件】菜单.在下拉菜单中选择【新建】项，将得到如图6.1所示的【新建】对话框。(2)单击【空数据库】图标，即会显示“文件新建数据库”对话框，如图6.2所示。图6.1【折建】对话框(3)在【文件名】文本框中输入要保存数据库的文件夹及新建的数据库名，如"C: est.mdb"，然后单击【创建】按钮，即可创建一个名为“test"的数据库，如图6.3所示。

---