2、如果已经有excel形式的，在access文件栏用“获取外部数据(导入表)”即可，没有的话建立一个表。字段名自己根据需要定。
3、用sql语句（或在查询的设计视图中）建立需要的查询。
4、建立一个界面窗体，来管理或调用查询（可以用“宏”、也可用VBA)，再建立需要格式的报表。
其它的，根据实际需要而定。
对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能..... 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=F:\library\1.mdbJet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Closeasp.net连接Access数据库例子<%@ Import Namespace="System.Data" %> <%@ Import NameSpace="System.Data.OleDb" %> <script laguage="VB" runat="server"> Dim myConnection As OleDbConnection Dim myCommand As OleDbCommandsub page_load(sender as Object,e as EventArgs)'1.连接数据库dim dbname as stringdbname=server.mappath("authors.mdb")myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0DATA Source="&dbname )myConnection.Open()la1.text="Connection Opened!" '2.添加记录myCommand = New OleDbCommand( "Insert INTO Authors(Authors,country) Values('Simson','usa')", myConnection )myCommand.ExecuteNonQuery()la2.text="New Record Inserted!" '3 更新数据(Access) myCommand = New OleDbCommand( "UPDATE Authors SET Authors='Bennett' WHERE Authors = 'Simson'", myConnection )myCommand.ExecuteNonQuery()la3.text="Record Updated!" '4 删除数据（access） myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = 'David'", myConnection )myCommand.ExecuteNonQuery()la4.text="Record Deleted!" '5 使用DateGrid显示数据 myCommand = New OleDbCommand( "select * FROM Authors", myConnection )MyDataGrid.DataSource=myCommand.Executereader()MyDataGrid.DataBind() end sub <html>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）