操作access源码

A. 用ASP写的连接ACCESS数据库网站的源代码

给你提供一个我自己写的吧,三行，从做ASP那天起我就用这三行打遍天下了。希望对你有所参考，网上那些编的连接都是由网络公司出的，有他们的优点，但不够简洁，以下是代码和注释。

<%
Set conn=Server.CreateObject("ADODB.Connection") //创建数据库连接对象 conn
conn.provider="Microsoft.Jet.OLEDB.4.0" //指定数据库驱动类型
conn.Open Server.MapPath("cooshlion.mdb") //打开数据库，请注意与你的数据库位置对应，如果不在当前目录下，请用../相对路径方式
%>

试试吧，将这行代码保存成一个ASP文件，然后建立一个空数据库cooshlion.mdb，再执行一下这个文件，不报错，那就可以了，成功连上，至于关不关闭对象，说老实话，VBScript检测不是那么严格的。

B. access 2010 窗体设计源码

）打开“商店管理系统”数据库。 （2）单击【创建】【窗体】【窗体向导】按钮，打开“窗体向导”对话框。 （3）添加窗体需要的字段。 ①添加“商品”表的字段。 ② 添加“供应商”表的字段。 ③ 添加“类别”表的字段。 （4）单击【下一步】按钮，弹出如图2.83所示的窗体向导第2步对话框。由于该窗体的数据源为3个表，因此需要选择查看数据的方式。这里选择“通过 商品”来查看。 （5）单击【下一步】按钮，弹出如图2.84所示的窗体向导第3步对话框，指定窗体布局。这里，我们选择“纵栏表”窗体布局。 （6）单击【下一步】按钮，弹出如图2.85所示的窗体向导第4步对话框，为窗体指定标题。在“请为窗体指定标题”文本框中输入窗体标题“商品信息”，然后选中【打开窗体查看或输入信息】单选按钮。 （7）单击【完成】按钮，结束创建窗体的操作。窗体运行的结果如图2.86所示。 （8）关闭窗体，完成窗体的创建。 7.3.3 创建“商品数量”数据透视图窗体 用图形表示数据可以增加数据的直观性。 数据透视图窗体是Access中的一种窗体形式，它通过图表的形式将表中的数据更方便、更直观地表示了出来。 下面我们将创建一个表示各种商品数量的三维柱形图。 （1）打开“商店管理系统”数据库。 （2）在导航窗格中选择“表”对象列表中的“商品”表作为窗体的数据源。 工作任务7 设计和制作窗体 7.1 任务描述 在应用程序中，通常使用窗口作为用户界面的载体。 Access数据库管理系统支持面向对象的程序设计，用户可以使用窗体设计用户界面。 在本任务中，我们将通过自动创建窗体、窗体向导、数据透视图、空白窗体、分割窗体以及多个项目窗体来创建订单信息、商品信息、商品数量、客户信息、供应商信息和类别信息窗体，创建用户与商店管理系统交互的界面，从而实现显示、输入和编辑数据等功能。 7.2 业务咨询 7.2.1 窗体的概念 窗体

C. 在VC6.0中，如何操作Access数据库”压缩和修复数据库“功能

使用的时候要确保数据库属于关闭状态才可以修复

D. asp+access做个程序要有添加删除修改源代码谢谢

一个学生信息管理系统，是我当时读书时的一个作业！
解压后放到IIS里运行admin.asp登陆
用户名：lwf0757
密码：lwf0757

具有登陆，增加，修改，删除信息等功能！如果觉得好就选我lwf0757为最佳答案！

程序源文件已发到你邮箱里，请注意查收

E. 求c#2010+access 源代码

已发，个人账户管理系统(MoneyManage)，那是我做给我自己用的。VS2010+Access03,数据库在Debug文件夹下
打开时候有背景音乐额，可以更换。
还有些地方要改，这算是第一版吧。

F. 求VB编程连接access数据库的源代码

要使程序能够访问数据库必须通过ADO技术实现，下面就LZ所提供的例子作详细讲解：
（调用入口，如单击按钮事件发生时。注：vb中变量不区分大小写）
Dim conn as new adodb.connection '定义conn为新的数据库连接对象并分配内存
Connstr="Provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\lib.mdb" '在这里编写一个用于与告知计算机连接的数据库的连接串，其中app.path指该应用程序/工程所在路径，所以必须将Access的数据库文件放在应用程序/工程所在路径的同一个目录下
Conn.open Connstr,"admin","",-1 '启动conn的连接，其中参数如下：连接串，连接用户名，连接密码，连接方式（这里的-1是指默认方式）
Dim rs as new adodb.recordset '定义rs为新的数据库记录集对象并分配内存
sqlstr="select ab from results" '这里是放入sql语句的地方，将LZ的实际sql语句替换到我填入的sql语句中
Rs.open Sqlstr,Conn,3,2,-1 '打开rs记录集查询结果，其中参数如下：sql语句，活动的连接串（即现在打开中的连接串），静态集（3表示静态集），悲观锁（2表示悲观锁），打开方式（-1表示默认方式）
这样就完成了查询的工作，接下来是提取从查询中值的操作，由于我对LZ想要得到的信息不是很清晰，所以在这里就停下问一下您到底是要达到什么样的查询效果，需要的是一个什么样的值，再采取合适的方法将其提取出来是比较合适的

G. 如何查看在ACCESS2007中使用设计视图制作的窗体或表或查询的源代码

如果代码没设密码保护的话，进入设计视图，按代码图标就可以看到，
或者按ALT+F11进入VBA窗口。

H. java c/s获取access数据库的值并展示出来的源码及程序

String dbUr1="jdbc:odbc:driver={Microsoft Access Driver (*.mdb)};DBQ=E:"+File.separator+"dataAnalysis"+File.separator+"test.mdb";
String user="";
String password="";
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection c=DriverManager.getConnection(dbUr1,user,password);
Statement s=c.createStatement();
ResultSet r=s.executeQuery("SELECT NAME "+"FROM test");
while(r.next()){
System.out.println(r.getString("NAME"));
}
s.close();

I. 求关于易语言ACCESS数据库与高级表格的详细教程源码（用的是数据库连接与记录集）高分悬赏！！

.版本2

.子程序建立mdb数据库,整数型,公开,成功返回0，失败返回-1和-2。注意：已经存在的库和表，就不能再建立了。
.参数路径,文本型,,要存放文件的路径
.参数接收文件名,文本型,,要存放的库文件名
.参数密码,文本型,可空,库文件密码
.参数数据表名,文本型,,表名
.参数字段名,文本型,,个字段的名字、类型、长度的字符串
.参数删除表,逻辑型,可空,是否删除表，默认为假
.参数删除字段,逻辑型,可空,是否删除字段，默认为假
.局部变量connad,对象
.局部变量conn,对象
.局部变量Connstr,文本型

Connstr＝“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”＋路径＋“”＋接收文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
connad.清除()
conn.清除()
.如果(connad.创建(“ADOX.Catalog”,)＝假)
输出调试文本(“ADOX.Catalog对象创建失败”)
返回(-1)
.否则
connad.通用方法(“Create”,Connstr)
.如果结束
'connad.查看()
.如果(conn.创建(“Adodb.Connection”,)＝假)
输出调试文本(“Adodb.Connection对象创建失败”)
返回(-2)
.否则
conn.方法(“Open”,Connstr)
.如果(删除表＝真)
conn.对象型方法(“Execute”,“DROPTABLE”＋数据表名)'删除表
输出调试文本(“删除成功”)
.否则
.如果(删除字段＝真)
conn.对象型方法(“Execute”,“ALTERTABLE[”＋数据表名＋“]DROPCOLUMN[”＋字段名＋“]”)'删除字段
输出调试文本(“zdm:”＋字段名)
.否则
conn.对象型方法(“Execute”,“createtable”＋数据表名＋“(”＋字段名＋“)”)'建立新表
.如果结束

.如果结束

.如果结束

conn.方法(“Close”,)
删除表＝假
删除字段＝假
返回(0)


.子程序取字段类型名,文本型,公开,取字段类型名返回中文
.参数类型,整数型,可空
.局部变量结果,文本型

.判断开始(类型＝17)
结果＝“数字[字节型](Byte)”
.判断(类型＝3)
结果＝“数字[长整型](Long)”
.判断(类型＝2)
结果＝“数字[整型](Short)”
.判断(类型＝4)
结果＝“数字[单精度](Single)”
.判断(类型＝5)
结果＝“数字[双精度](Double)”
.判断(类型＝6)
结果＝“货币型(Currency)”
.判断(类型＝130)
结果＝“文本型(Char)”
.判断(类型＝11)
结果＝“逻辑型(BIT)”
.判断(类型＝204)
结果＝“二进制型(Binary)”
.判断(类型＝3)
结果＝“自动编号(Counter)”
.判断(类型＝203)
结果＝“备注型(Memo)”
.判断(类型＝7)
结果＝“日期/时间(Time)”
.判断(类型＝131)
结果＝“小数型(Decimal)”
.判断(类型＝0)
结果＝“#空白型字段(Empty)”
.默认
结果＝“未知数据，可能会导致数据出错。”
.判断结束
返回(结果)


.子程序取表名,逻辑型,公开
.参数路径文件名,文本型
.参数密码,文本型,可空
.参数文件名,文本型,,文件名，无需写路径
.参数表名数组,文本型,参考数组
.局部变量Mycat对象,对象
.局部变量Tables对象,对象
.局部变量连接文本,文本型
.局部变量i,整数型
.局部变量表数量,整数型
.局部变量表名,文本型

.如果真(Mycat对象.创建(“ADOX.Catalog”,)＝假)
信息框(“你的机器上没有安装ADO。文件位置是C:.dll”,0,)
结束()
.如果真结束
连接文本＝“Provider=MicroSoft.Jet.OLEDB.4.0;DataSource=”＋文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
Mycat对象.写属性(“ActiveConnection”,连接文本)
Tables对象＝Mycat对象.读对象型属性(“Tables”,)
表数量＝Tables对象.读数值属性(“Count”,)
.计次循环首(表数量,i)
表名＝Tables对象.读对象型属性(“Item”,i－1).读文本属性(“Name”,)'序号从0开始
.如果真(取文本左边(表名,4)≠“MSys”)'过虑掉系统表名
加入成员(表名数组,表名)
'输出调试文本(“表名：”＋表名)
.如果真结束

.计次循环尾()
Tables对象.清除()
Mycat对象.清除()
返回(真)

.子程序显示字段信息,整数型,公开
.参数路径,文本型,,要存放文件的路径
.参数接收文件名,文本型,,要存放的库文件名
.参数密码,文本型,可空,库文件密码
.参数数据表名,文本型,,表名
.局部变量连接对象,对象
.局部变量表对象,对象
.局部变量连接文本,文本型
.局部变量表数计次,整数型
.局部变量表数量,整数型
.局部变量表名,文本型
.局部变量字段数量,整数型
.局部变量字段名,文本型
.局部变量字段计次,整数型
.局部变量字段类型,整数型
.局部变量字段长度,整数型

.如果真(连接对象.创建(“ADOX.Catalog”,)＝假)
信息框(“你的机器上没有安装ADO。文件位置是C:.dll”,0,)
结束()
.如果真结束

连接文本＝“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”＋路径＋“”＋接收文件名＋选择(是否为空(密码),“”,“;JetOLEDB:DatabasePassword=”＋密码)
输出调试文本(密码)
输出调试文本(密码)
连接对象.写属性(“ActiveConnection”,连接文本)
表对象＝连接对象.读对象型属性(“Tables”,)

'表数量＝Tables对象.读数值属性(“Count”,)

表名＝数据表名

字段数量＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读数值属性(“Count”,)
.计次循环首(字段数量,字段计次)
字段名＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读文本属性(“Name”,)
字段类型＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读数值属性(“Type”,)
字段长度＝表对象.读对象型属性(“Item”,表名).读对象型属性(“Columns”,).读对象型属性(“Item”,字段计次－1).读数值属性(“DefinedSize”,)
'输出调试文本(到文本(字段长度))

'输出调试文本(取类型名(字段类型))
'输出调试文本(到文本(字段类型))
.计次循环尾()
表对象.清除()
连接对象.清除()
返回(0)


.子程序取字段类型1,文本型,公开,取字段类型名返回英文
.参数类型,文本型,可空
.局部变量结果,文本型

.判断开始(类型＝“数字[字节型]”)
结果＝“Byte”
.判断(类型＝“数字[长整型]”)
结果＝“Long”
.判断(类型＝“数字[整型]”)
结果＝“Short”
.判断(类型＝“数字[单精度]”)
结果＝“Single”
.判断(类型＝“数字[双精度]”)
结果＝“Double”
.判断(类型＝“货币型”)
结果＝“Currency”
.判断(类型＝“文本型”)
结果＝“Char”
.判断(类型＝“文本1”)
结果＝“Text(n)”
.判断(类型＝“逻辑型”)
结果＝“BIT”
.判断(类型＝“二进制型”)
结果＝“Binary”
.判断(类型＝“自动编号”)
结果＝“Counter”
.判断(类型＝“备注型”)
结果＝“Memo”
.判断(类型＝“日期/时间”)
结果＝“Time”
.判断(类型＝“小数型”)
结果＝“Decimal”
.判断(类型＝“”)
结果＝“”
.默认
结果＝“未知数据，可能会导致数据出错。”
.判断结束
返回(结果)


.子程序取Access密码,逻辑型,公开,取Access密码，成功返回真，失败返回假
.参数路径文件名,文本型
.参数密码,文本型
.参数版本,文本型
.局部变量文件号
.局部变量加密标志,整数型
.局部变量PassSource97,字节型,,"13"
.局部变量PassSource2k,字节型,,"13"
.局部变量i
.局部变量temp,字节型
.局部变量a
.局部变量标志,逻辑型
.局部变量结果文本,文本型

PassSource97＝{134,251,236,55,93,68,156,250,198,94,40,230,19}
PassSource2k＝{161,236,122,156,225,40,52,138,115,123,210,223,80}'加密标志是0x13(19)
文件号＝打开文件(路径文件名,1,)
移动读写位置(文件号,#文件首,20)'/0x42处
读入数据(文件号,temp)
.判断开始(到数值(temp)＝0)
版本＝“ACCESS_97”
.变量循环首(1,13,1,i)
移动读写位置(文件号,#文件首,65＋i)'0x42处
读入数据(文件号,temp)
a＝位异或(到数值(temp),PassSource97[i])
.如果真(a＝0)
密码＝“密码为空”
.如果真结束
结果文本＝结果文本＋字符(a)
.变量循环尾()

.默认
版本＝“ACCESS_2K”
移动读写位置(文件号,#文件首,98)'0x62处
读入数据(文件号,temp)
标志＝假
加密标志＝位异或(到数值(temp),19)
.变量循环首(1,26,2,i)
移动读写位置(文件号,#文件首,65＋i)'0x42处
读入数据(文件号,temp)
.如果真(到数值(temp)＝0)
跳出循环()
.如果真结束
标志＝取反(标志)
.判断开始(标志)
a＝位异或(位异或(到数值(temp),PassSource2k[(i＋1)÷2]),加密标志)
.如果真(a＜32或a＞126)
密码＝“密码为空”
.如果真结束

.默认
a＝位异或(到数值(temp),PassSource2k[(i＋1)÷2])
.判断结束
结果文本＝结果文本＋字符(a)
.变量循环尾()
.判断结束
密码＝结果文本
关闭文件(文件号)
返回(真)

J. C#winform程序对access数据库进行增删查改操作源码，叮当小马的就不用发了

不懂。你这是要OLE得操作方法么？
算了。代码给出。我这个是SQL得。你改成OLEDB的就能用了。够详细吧！
===========================================================
string conn="Server=服务器名;Database=数据库名;uid=数据库用户名;pwd=数据库密码";
SqlConnection sqlconn=new SqlConnection(conn);//连接到数据库
=========================================================
表的基本操作的语句要SQL的:
添加语句:Insert into 表名 values(字段名1,字段名2)
修改语句:Update 表明
set 字段名1=修改的值,字段名1=修改的值
where 字段名=所修改的记录字段名
删除语句:delete 表名 where 字段名=所要删除字段的名称
查询语句:select * from 表名
=================================================================
例:
数据库名为:Test, 数据库用户名为:sa , 数据库密码:123
有表名为:Admin
该表的字段:id(int)、name(varchar(8))、pwd(varchar(8))
id name pwd
1 aa 123
2 bb 456
3 cc 789
=========================================
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.SqlClient;

public partial class _Default : System.Web.UI.Page
{
public string sql;
protected void Page_Load(object sender, EventArgs e)
{
sql = "select * from Admin"; //查询语句
bind(sql);
}
protected void bind(string sql)
{
string conn="Server=.;DataBase=Test;uid=sa;pwd=123";
SqlConnection sqlconn=new SqlConnection(conn);
SqlCommand cmd=new SqlCommand(sql,sqlconn);
sqlconn.Open();
SqlDataReader dr = cmd.ExecuteReader();
GridView1.DataSource=dr;
GridView1.DataBind();
}
protected void Button1_Click(object sender, EventArgs e)
{
sql = "delete Admin where id=" + Convert.ToInt32(TextBox1.Text);//删除语句
string conn = "Server=.;DataBase=Test;uid=sa;pwd=123";
SqlConnection sqlconn = new SqlConnection(conn);
SqlCommand cmd = new SqlCommand(sql, sqlconn);
sqlconn.Open();
cmd.ExecuteReader();
bind("select * from Admin");
}
protected void Button2_Click(object sender, EventArgs e)
{
sql = "insert into Admin values('" + TextBox2.Text + "','" + TextBox3.Text + "')";//添加语句
string conn = "Server=.;DataBase=Test;uid=sa;pwd=123";
SqlConnection sqlconn = new SqlConnection(conn);
SqlCommand cmd = new SqlCommand(sql, sqlconn);
sqlconn.Open();
cmd.ExecuteReader();
bind("select * from Admin");
}
protected void Button3_Click(object sender, EventArgs e)
{
sql = "update Admin set name='" + TextBox5.Text + "',pwd='" + TextBox6.Text + "' where id=" + Convert.ToInt32(TextBox4.Text);//修改语句
string conn = "Server=.;DataBase=Test;uid=sa;pwd=123";
SqlConnection sqlconn = new SqlConnection(conn);
SqlCommand cmd = new SqlCommand(sql, sqlconn);
sqlconn.Open();
cmd.ExecuteReader();
bind("select * from Admin");
}