操作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");
}