vbaccess代碼下載

㈠ Access VB 參考txt全集下載

Access VB 參考 txt全集小說附沒則滲件已上傳到網路枯脊網盤，點擊免費下載：

㈡ 求一套vb+access的進銷存管理軟體源代碼

本次畢業設計的題目是進銷存管理系統，要求利用Visual Basic完成管理平台設計，構造所用的類庫；使用Access資料庫存儲數據，限野核亂沖單機使用。 企業的物資供應管理往往是很復雜，繁瑣的，由於掌握的物資種類眾多，訂貨，管理，發放的渠道各有差異，各個企業之間的管理體制不盡相同，各類統計計劃報表繁多，因此物資管理必須實現計算機化，而且頌陪掘必須根據企業的具體情況制定便提高工作效率，
下載地址
http://download.pudn.com/downloads108/doc/17869297VB-access_lib_mange.doc.rar

㈢ 求VB編程連接access資料庫的源代碼

'定義一個名為Db1的數據集
Public Db1 As ADODB.Connection
'初始化數據集
Set Db1 = New ADODB.Connection
'刷新初始數據
Db1.CursorLocation = adUseClient
'連接版資料庫語句權
Db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Results.mdb;Jet OLEDB:Database Password=;"
'查詢語句
RS.Open " select avg(ab) from Results where ab >= 1 and ab =< 3 , Db1, adOpenStatic, adLockOptimistic

㈣ VB關於ACCESS的程序代碼

在VB菜單→過程→引用→對象庫 "Microsoft ActiveX Data Objects 2.5 Library"
'定義
Private Sub Command1_Click()
Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
dim conn As New ADODB.Connection
dim Rs As New ADODB.Recordset
dim sql As string
conn.Open connStr & "【我的資料庫路徑及文件.mdb】"
sql = "SELECT * FROM 你的表單名稱"
Rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not Rs.State = adStateOpen Then '確定資料庫能順利打開後，才省略這個判斷
MsgBox "資料庫沒有開啟。檢查資料庫的鏈接是哪兒出問題！"
exit sub
End If
『資料庫能開啟才會繼續往下一行運行
Rs.MoveLast: Rs.MoveFirst
『這一行只是檢查Rs是不是正常運行，整體代碼完成後可以移除
MsgBox "記錄集總共筆數：" & Rs.RecordCount

『 資料庫確定能正常開啟了，想繼續操作新增、更新、刪除...都行

'開始新增一筆數據
'Rs.AddNew
'.......賦值代碼
'.......賦值代碼.
『Rs.Update
'Rs.Refresh
End Sub

㈤ VB連接ACCESS資料庫代碼，（oledb的）要完整！

dim db as new adodb.connection
dim connstr as string
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\My Files\我的系統開發\物流數據及生產用數據提取\物流資料庫.mdb;Persist Security Info=False"
db.open connstr
然後就進行相應的處理就可以了。。。
另外：
F:\My Files\我的系統開發\物流數據及生產用數據提取\物流資料庫.mdb 為你的資料庫存放的位置。

㈥ 醫葯連鎖店java程序

基於asp語言的測試項目

學生信息管理系統的設計與實現

基於ASP.NET的社區人口管理系統

基於ASP.NET的課程教學網站設計

公司會議網站

C高校工資管理系統

C在線點歌系統

《資料庫原理》精品課程網站設計

教師住房管理系統

《計算機網路》學習網站的設計與實現

《模式識別》精品課程網站的設計與實現

asp個人博客

asp網上書店

微型計算機學習網站的設計與實現

成績分析系統的設計與實現

寵物管理系統

基於3G通信的視頻醫葯系統設計

基於web的圖書館圖書信息查詢系統

離散數學網上教學系統

企業進銷存管理系統分析與設計

人力資源管理信息系統

學生作業管理系統

社區論壇

在線課題系統

《資料庫技術及應用》精品課程建設網站

職業中介信息管理系統

自來水收費管理系統

會員制漫畫店(連鎖)管理系統

基於CSCW的大學生就業平台

基於WEB方式的視頻監控系統設計與開發

旅遊網站

健康網站的設計與實現

新聞管理系統設計與實現

工會信息發布系統的設計與開發

模式識別與智能研究所網站

互聯網計費系統

C畢業生信息管理就業招聘系統

體育用品在線商店系統

網站群信息管理系統

員工績效考核系統

學生檔案信息管理C

基於ASP.NET技術的動態IT培訓網站的設計與實現

《軟體測試技術》精品課程網站的建設與開發

網上二手房交易系統設計與實現

ASP131企業進銷存管理系統

ASPC語言教學系統+論文

ASP（交友錄）

asp+SQLServer網上書店系統＋論文

ASP+sql精品在線試題庫設計+論文

ASP+SQL圖書管理系統＋論文

<dir>asp+sql玉林旅遊管理系統+論文＋答辯PPT＋開題報告＋屏幕錄相

ASPAC軟體信息發布系統

ASPAC學生論壇

asp辦公系統

ASP畢業設計選題管理系統(asp+sql)

asp畢業生信息管理系統源碼+論文+開題+文獻+外文翻譯

ASP產品銷售

ASP窗簾網站平台

200ASP電子商務系統

ASP電子政務檔案管理系統+論文

ASP服裝銷售系統論文+答辯PPT+源代碼+翻譯+開題報告漏圓盯+任務書+實習報告)

20ASP關於奧運網站專題

ASP基於WEB的辦公自動化管理系統+可執行源代碼+論文

ASP家教信息管理系統

asp教師檔案管理系統+論文

asp教師信息管理系統

ASP教學互動系統

asp酒店房間預約系統設計

ASP客戶關系管理系統ASP+SQL+可執行文件+論文

asp旅遊信息管理系統

ASP企業進銷存管理系統ASP+SQL+可執行文件+論文

ASP企業物流返和管理

ASP企業物流平台的設計與實現論文+源程序可執行+ASP+ACCESS資料庫

ASP求職招聘網站設計(ASP)

ASP人才招聘系統

asp人力資源管理系統ASP+SQL+論文+源程序可執行

asp上網導航(論文+源碼)

ASP售後服務管理系統

ASP同學錄

ASP同學錄asp+sql

ASP投票系統

asp圖書出售圖書發行系統

ASP圖書管理系統

asp圖書管理系統+論文＋開題＋PPT

asp圖書管理系統+論文＋開題＋PPT.rar

ASP網路辦公系統

ASP網路辦公系統(源碼加論文)

ASP網路購物系統

ASP網路硬碟文件資源管理系統(論文+代碼+譯

ASP網上購書

ASP網上購物系統

ASP網上考試系統

asp網上聊天室系統設計與開發帶論文

ASP網上人才管理系統+可執行源代碼+論文

ASP網上售房管理系統

ASP網上書店的

ASP網上貼吧系統

asp網上選課系統+論文

ASP物流系統設計

ASP物資管理系統的設計與實現+可執行源代碼+資料庫+論文

ASP校友錄

ASP新聞管理系統

ASP新聞網程序＋論文

asp信息查詢系統

ASP學生管理

ASP學生信息管理系統

ASP葯店信息管理系統

asp醫葯連鎖店管理系統ASP+源代碼+可執行程序+論文

ASP影片租賃系統

asp員工信息管理系統

ASP原創交友網設計

Asp原創網上書店

ASP原創信息管理系統

ASP在線exam

ASP在線花店系統

ASP在線教育系統

asp在線考試系腔遲統+論文

asp在線學習系統

asp自動化測試工具論文.net

ASP作業提交與批改系統（畢業論文+配套中英文對照翻譯+源代碼+執行結果）

原創教師信息管理系統

asp.net及.net

基於.net技術的校園新聞發布系統全套

asp.netERP系統(畢業設計+論文

asp.net+sql人才網站

Asp.net2.0,C)在線考勤系統研發+論文

ASP.NET報名管理信息系統

ASP.NET電子購物商城系統＋論文

asp.net電子書城系統+論文

asp.net很好的美容院管理系統加論文

ASP.NET通用作業批改系統設計+論文

ASP.NET圖書館管理信息系統

ASP.NET網路考試系統.net

ASP.NET網上書店(源程序+論文+答辯PPT)

ASP.net校友錄畢業設計＋論文

asp.net學生成績管理系統+論文

asp.net學生管理系統

asp.net在線考試統加論文

ASP.NET智能評教系統,內含論文智能教評

asp.net中圖像的檢索技術畢業設計(論文,源碼,任務書,開題報告,答辯ppt)

net郵件收發系統的設計+論文

VB.net+SQL房地產評估系統

vb.net酒店管理系統+論文

VB.NET網吧計費系統軟體

人事管理系統+論文＋答辨PPT

復件(2)delphi列車時刻查詢決策系統課程設計論文+源代碼

復件delphi列車時刻查詢決策系統課程設計論文+源代碼

三層圖書管理系統

商品銷售管理系統(畢業設計)最新版下載

題庫系統與試卷生成

java論壇管理系統，包括論文和程序

java圖書管理系統畢業設計+源碼

Java游戲設計打飛機程序＋論文

java作業管理系統

java五子棋的開發

JAVA論壇管理資料庫開發

jsP+SQL計算機等級考試查詢系統

jsp倉儲管理系統+論文

jsp操作系統課程教學網站的設計與實現論文+源代碼

jsp高校學生考勤管理系統

jsp高校智能排課系統+論文

JSP教學管理系統

JSP考試管理系統

jsp網上購書系統源代碼

jsp網上書店程序＋論文

jsp網上書店系統

jsp物流中心倉儲信息管理系統

jsp學生課績管理系統+論文

JSP作業管理

教學管理系統

PHP+SQL公共課平時成績查詢系統

PHP教材管理系統+論文

PHP課程設計＋論文

SQL資料庫課程設計學生選課

168VBAC房屋銷售管理信息系統

dekphi貿易公司信息管理系統+論文

VBATM自動銀行+論文

VB+ACCESS高校題庫管理系統附原代碼+程序+1萬字論文

VB+Access酒店客房管理系統(源碼+論文).rar(3475

VB065IC卡管理系統001

VB班級管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

VB本科畢業論文-工資管理系統畢業論文+源碼

vb倉庫管理系統（包括可執行程序源碼開題報告答辯稿）

VB超市管理系統+論文

vb超市管理系統+論文

vb超市進銷存管理系統vb+access源代碼+可執行文件+論文+開題報稿+外文翻譯+答辯ppt.rar(768

vb車輛管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

vb地籍登記管理系統vb+access源代碼+論文+開題報告+外文翻譯+答辯ppt

vb電表管理系統vb+access源代碼+可執行程序+論文

VB俄羅斯方塊系統＋論文

VB俄羅斯方塊游戲課程設計

vb高速公路票據管理系統vb+access源代碼+可執行文件+論文+開題報告+外文翻譯+答辯ppt

VB工資管理系統

VB工資管理系統（論文＋開題報告＋源代碼）

VB工資管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

vb公交車查詢系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

VB計算機自動出卷系統vb版（含開題報告＋外文翻譯＋源程序＋可執行程序＋論文正文＋答辯ppt）

VB教師管理系統vb+access含源代碼+可執行程序+論文+開題報告+外文翻譯+答辯稿

vb教師管理系統vb+access含源代碼+可執行程序+論文+開題報告+外文翻譯+答辯稿(2)

VB教務管理系統vb+access源代碼+論文+開題報告+外文翻譯+答辯ppt

vb教學輔助系統VB+access源代碼+可執行文件+論文

VB客房管理系統全套(帶源碼)

vb課程設計醫葯管理系統（VB+SQL)應要求源文件＋代碼＋論文打包上傳

vb庫存管理系統（論文＋開題報告＋源代碼）

VB庫存管理系統2（論文＋開題報告＋源代碼）

VB評語管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

vb企業人事工資管理系統+論文

vb企業人事管理系統

vb企業人事管理信息系統+論文

VB人才管理系統

vb人事工資管理系統畢業設計（論文）

VB人事管理系統

vb人事管理系統（VB畢設成品）畢業論文

VB人事管理系統sql＋論文

vb人事管理源程序+論文

vb人事資源管理系統+論文

vb設備管理系統+論文

vb試題庫自動組卷系統

vb題庫管理系統+論文

vb通訊錄管理信息系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯

vb圖書館管理系統＋論文

vb圖書管理系統

vb圖書管理系統(文檔+源代碼)

vb圖書管理系統vb+access版論文+源代碼+開題報告+外文翻譯+答辯ppt

vb圖書管理系統源代碼論文

vb圖書銷售信息系統+論文

VB文檔管理系統+論文

vb小區物業管理系統

vb校園網交換機節點管理系統＋論文

vb學籍管理系統帶論文

VB學生檔案

vb學生檔案管理系統

vb學生檔案管理系統+論文

VB學生公寓管理系統

vb學生評語生成系統論文

VB學生信息管理系統

vb學生信息管理系統(VB+sql)+畢業論文2萬字

vb學生信息管理系統(代碼+論文+開題報告)

vb葯品庫房管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt

vb一個考試管理系統。帶論文的

VB醫葯管理系統

vb音像製品出租及銷售管理系統

VB員工管理系統

VB原創庫存管理系統開題報告+外文翻譯+論文正文+源代碼+可執行程序

vb原創圖書管理系統)畢業設計+論文

vb源代碼加可執行文件加論文

vb智能排課系統+論文

vb中介管理系統vb+access源代碼+論文+開題報告+外文翻譯+答辯ppt

學生宿舍管理系統

VC++

C++003指紋識別系統

C++課程設計報告(人事管理系統)

VC++003指紋識別系統

VC++06全國天氣信息管理系統

vc++24點游戲的開發和實現

VC++車輛調度

vc++航空檢票系統+論文

vc++航空客運訂票系統+論文

VC++基於校園網的學院教學質量監測評估系統

vc++簡單幾何圖形的識別和編輯系統＋論文

VC++經濟管理出版社期刊書目信息管理系統

vc++區域網的數據包監聽及數據分析畢業論文+源代碼

VC++開發GIS項目程序＋論文

vc++可視化圖像處理系統+論文

vc++庫存管理

vc++圖書館管理系統

vc++網上尋呼QICQ源代碼（附帶論文）

vc++象棋程序+論文

VC++學生成績統計分析系統

vc++醫葯管理系統+論文

vc++用遺傳演算法解決車輛優化調度問題論文+源代碼+任務書

vc++運動會成績管理系統（源碼+論文）

VC+ACCESS開發的酒店管理+論文

vc數據挖掘在客戶關系管理中的

vc中國象棋軟體（程序+源碼+論文）下載

VC做的聊天室＋論文

瀏覽器（論文+源碼）

一個VC++做的手機話費參考程序，有設計報告

vfp現代物流企業管理系統+論文

vfp現代物流企業管理系統＋論文

VF財務管理系統（論文＋開題報告＋源代碼＋答辯PPT）

vf倉庫管理系統（論文+源文件）

VF地稅局工資管理系統（論文＋開題報告＋答辯PPT＋源代碼＋程序清單）

vf簡單的酒店管理源碼+文論

VF教職工信息管理畢業設計

vf教職工信息管理畢業設計+論文

vf路政管理系統（論文＋開題報告＋答辯PPT＋源代碼＋程序清單）

VF企業人事檔案管理系統全套(帶源碼)

vf圖書管理系統（VFP）(包括程序文檔)

VF系統的學生成績管理系統+論文

vf職員信息系統+論文

vf做的學生管理系統+論文

ASP+ACCESS深水藍文學網站

ASP+ACCESS文學網站

ASP+SQL美食網站

ASP人才招聘系統

delphi書店輔助進書系統

JSP028學生學籍管理系統

JSP科研處管理信息系統+論文

JSP學生學籍管理系統

JSP在線學習系統

my美食網站

php+mysql學生成績查詢

PHP學生成績查詢

vb數控加工技術教學素材資源庫的構建

VB文檔管理系統+論文

百瑞通公司網站

報名系統

多媒體課程答疑係統

高校固定資產管理系統

公司辦公信息管理系統

恆華貿易有限公司網站

基於區域網的聊天室系統

科研項目網上申報管理系統

兩個網站

企業電子投票系統

人才網內容管理系統

商品配送中心庫存模擬軟體設計

社區網路（含在線影院）

施甸縣旅遊咨詢網

同校二手電筒子產品交易網

外觀專利圖像檢索平台

網路實驗教學網站

網上教學資源共享系統

小區門戶網站

學科建設

學科建設系統

醫療器械公司網站客戶服務系統設計

政府采購管理信息系統

中國節能環保科技網站

計算機論文

ASP動態網站建設論文.doc

java網路5子棋代碼.doc

工商管理畢業論文

基於Web的網上評教系統.doc

計算機區域網組建與互連畢業設計論文.doc

嵌入式系統開發要素的選擇分析.doc

嵌入式系統在多點溫度控制中的應用.doc

校園網路工程綜合布線方案

人事管理系統

現代物流企業管理系統

企業數據信息管理系統

航空公司管理系統

成本費用計算系統

VCD租借管理系統

畢業生招聘信息的發布與管理系統

賓館客房管理系統

《計算機專業英語》網上教學系統設計與實現

《軟體工程》精品課程教學網站的設計與實現ASP+SQLSever2000

《資料庫原理及應用技術》課程指導平台的開發

《新聞發布系統》

《資訊理論與編碼》在線考試系統

3G的AKA協議中F1至F5的UE端的實現

3G的AKA協議中F1至F5的服務網路端實現

ASP.NET技術在網站開發設計中的研究與開發ASP.NET+SQLSever2000

BBS系統開發與帳戶安全保護的實現

BS結構的城市酒店入住信息管理系統的設計

BS結構下的OA流程可視化的研究與實現

BS結構下的郵件系統設計開發

BS模式的計算機等級考試管理系統的設計與實現ASP.NET+SQLSever2000

C語言教學網站及網上考試系統的設計與實現ASP.NET+SQLSever2000

C語言試題生成與考試系統

Delaunay演算法的實現與應用

Excel條件格式化工具的設計與實現

FTP客戶端的設計與實現

FTP客戶端設計與開發

多種排序演算法動態演示軟體的設計和開發

基於JSP學生成績管理系統軟體的開發

清除履歷表、日誌表、月購買額

多語種視頻音頻播放器的設計與實現

創建會員信息文件

Win32平台下的PE文件病毒的研究及實現

一種多商家網路商店的設計與實現

許可權管理模塊

積分添加和通票回收

網上選課系統的設計與實現

泡泡堂網路游戲的設計與實現

許可權及公共模塊設計與開發

某企業信息管理系統的設計與實現

H2003032045程富超_一種遠程管理Linux系統工具的設計與實現

多語種網路硬碟系統的設計

系統框架設計與開發

小型證券術語解釋及翻譯系統的設計與開發

許可權管理與日誌記錄模塊的設計與開發

考試管理及成績查詢模塊的設計與開發

OA子系統的設計與開發

題庫及試卷管理模塊的設計與開發

考試監控及閱卷模塊的設計與開發

某店積分更新記錄管理

教務平台—學籍管理模塊開發與設計

H2003032197王蕾-基於Java的兩個通用安全模塊的設計與實現

銷售情況，會員卡再發行數據生成

教務信息管理系統的設計與實現

高校學生宿舍管理系統的設計與實現

網路商店銷售管理系統的設計與實現

商品分類，交易狀況統計

IA32邏輯功能模擬實現

Iptables圖形管理工具的設計與實現

Ipv6環境下FTP系統的設計與實現Java+SQLServer2000

IT產品網上物流管理信息系統的設計與實現

J2ME手機游戲的開發-BeckhamGoal

Java打飛機游戲設計

Java多線程與線程安全實踐-基於ri演算法的關聯規則挖掘系統的設計與實現

基於ASP.NET的班級風采網站的設計

基於ASP.NET的公司網站的設計與實現

基於ASP.NET的企業網站的研究與開發ASP.NET+SQLSever2000

基於ASP.NET的網上書店的設計與實現ASP.NET+SQLSever2000

基於ASP.NET的校友錄管理系統的研究與實現ASP.NET+SQLSever2000

基於ASP.NET的學生成績報表系統的設計與實現ASP.NET+SQLSever2000

基於ASP.NET的學生成績管理系統的設計與實現ASP.NET+SQLSever2000

基於ASP.NET的學生成績合成系統的設計與實現ASP.NET+SQLSever2000

基於ASP.NET簡易博客網站的設計與實現

基於ASP.NET教學輔助系統設計與實現

基於ASP的筆記本銷售網站的設計與實現

基於ASP的博客網站設計與實現ASP+Access

基於ASP的反垃圾郵件管理系統的設計

基於ASP的房屋租售信息管理系統的設計

基於ASP的公交查詢系統的設計與實現

基於ASP的淮工學生購物網的設計與實現ASP+SQLSever2000

基於ASP的旅遊網站的設計與實現

基於ASP的某學校校園BBS的設計與實現

基於ASP的企業人事管理系統的設計與實現

基於asp的搜索引擎開發

基於ASP的網路聊天室的設計和實

㈦ 求VB登陸窗口連接ACCESS資料庫的代碼

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open「DSN=實例2DSN」

3、ADOData控制項創建連接

(7)vbaccess代碼下載擴展閱讀

ACCESS資料庫特性

1、access有強大的數據處理、統計分析能力專，利用access的查詢屬功能，可以方便地進行各類匯總、平均等統計。並可靈活設置統計的條件。

2、access用來開發軟體，比如生產管理、銷售管理、庫存管理等各類企業管理軟體，其最大的優點是：易學，非計算機專業的人員，也能學會。

3、在開發一些小型網站WEB應用程序時，用來存儲數據。例如ASP+Access。這些應用程序都利用ASP技術在InternetInformationServices運行．比較復雜的WEB應用程序則使用PHP/MySQL或者ASP/MicrosoftSQLServer。

㈧ 求vb +access用戶管理窗體代碼

我有原程序！這個是模兄代碼：
Option Explicit

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case Is = 0
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
Case Is = 1
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Case Is = 2
Adodc1.Recordset.MoveFirst
Case Is = 3
Adodc1.Recordset.MoveLast
Case Is = 4
If Command1(4).Caption = "保存" Then
Adodc1.Recordset.MoveLast
For i = 0 To 6
Adodc1.Recordset.Fields(i) = Text1(i).Text
Adodc1.Recordset.Update
Next i
Adodc1.Refresh
Command1(4).Caption = "添加碼芹"
For i = 0 To 6
Command1(i).Enabled = True
Next i
Command1(5).Enabled = False
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Update
Else
Adodc1.Recordset.AddNew
Command1(4).Caption = "保存"
For i = 0 To 3
Command1(i).Enabled = False
Next i
Command1(6).Enabled = False
Command1(5).Enabled = True
For i = 0 To 6
Text1(i).Text = ""
Next i
End If
Case Is = 5
Command1(4).Caption = "添加"
For i = 0 To 6
Command1(i).Enabled = True
Next i
Command1(5).Enabled = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Update
Case Is = 6
End
End Select
End Sub

Private Sub Form_Load()
Dim i As Integer
Command1(5).Enabled = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\遲碼畢xsgl.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from xsda"
For i = 0 To 6
Set Text1(i).DataSource = Adodc1
Next i
Text1(0).DataField = "xh"
Text1(1).DataField = "xm"
Text1(2).DataField = "xb"
Text1(3).DataField = "csrq"
Text1(4).DataField = "jg"
Text1(5).DataField = "jtdz"
Text1(6).DataField = "rxcj"
Adodc1.Refresh
End Sub

Private Sub 查詢_Click()
Form2.Show vbModal
End Sub
如果你要原程序還有代碼的話可以加我QQ：921553017

㈨ 求VB用上傳下載FTP，直接讀寫ACCESS的代碼

我使用的是 區域網方式 因為互聯網不安全 用的是區域網方式 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\jswnd-Server\DATA\suopei.mdb;Persist Security Info=False" 沒有密碼的資料庫 如果你是在互聯網上的話 用ftp會好一點的 在網路碧兆棚上的話 ftp登陸不知道會不會設置帳號和密碼 那樣的話 就要改一改代碼了

我用的是區域網共猜亮享的方式 直接修改 不需要下載 而且可以多客戶端悔則同時登陸
ftp也可以直接修改資料庫的 只不過要在連接的代碼中加入 ftp的登陸賬戶 和密碼才能訪問

㈩ 怎麼用VB讀Access資料庫，給點代碼

你一個示例,這個是用戶登錄系統
'准備工作: 資料庫 D:\Mydb.mdb 資料庫中,建數據表:UserInfo,數據表中,建欄位:User,Password,並添加一條記錄
'點工程->引用 選中 Microsoft Activex Data Objects 2.1 Library
'控制項:添加一個文本框,一個命令按鈕

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'請前彎將資料庫名及路徑換成你的實際資料庫名及路徑
Dim UserName As String
Dim Password As String

s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("請輸入用戶名")
Password = InputBox("請輸入用戶密碼")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo請換成你孫判的實際數據表名

Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "沒有找到此用戶"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密碼錯誤"
End If
End If
End If
End Sub
上面的例子實現了查詢
如果是要添加,刪除,更新等操作,只要編寫相應的SQL語句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '執行後,就添加了一條記錄
刪除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '刪除用戶名為aaaa的用戶記錄
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '執行後,修改用戶aaaa的密碼為abcdefg
以上只是示例,在實際使用過程中,可以將一些內容用控制項輸入等方式進行,這樣就有很大的靈活性了

動態創建資料庫

引用 microsoft DAP 3.6 Object Library
Dim myDB As DAO.Database
Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '如果不存在資料庫
Set myDB = OpenDatabase(App.Path + "\111.mdb") '如果存在資料庫
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close

向已經建好的資料庫中添加記錄
建立資料庫a，表名字b,欄位c，文本格式,在窗體上畫一command ,畫一個文本框，這個代碼就是將文本內容寫入資料庫

要先引則悔改用microsoft activeX data object 2.5 library
代碼如下：

Private Sub Command1_Click()
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String

strDk = "DBQ=" & App.Path & "\a.mdb;Driver=;"
cnDk.Open strDk
sql = "insert into b (c) values ('" & text1.text& "')"
cnDk.Execute sql
cnDk.Close
Set cnDk = Nothing
End Sub

在資料庫中添加多條記錄

只要可以進行輸入文本的都可以
改一下這些吧，你單擊一次就提示輸入一次，輸完了自動保存
改後
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = trim(inputbox("請輸入名字"))
Data1.Recordset("password") =val(trim(inputbox("請輸入電話")))
Data1.UpdateRecord
——————————————————————————————
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "張三|"
Data1.Recordset("password") = "fsdfsd"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "李四|"
Data1.Recordset("password") = "fsdf432d"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "王五|"
Data1.Recordset("password") = "f42342d"
Data1.UpdateRecord
MsgBox "adad"

========================================================================================
vb+access 資料庫的記錄的添加與刪除
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command2_Click()
Set rs = cn.Execute("select * from wenzhang where 內容='" & Text1.Text & "'")
If Text1.Text = "" Then
MsgBox ("文章不能為空！")
ElseIf rs.EOF = False Then
MsgBox ("文章不能重復！")
Else
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &

Text1.Text & "')")
MsgBox ("ok")
End If
End Sub
'添加按鈕
Private Sub Command3_Click()
Dim myval As String
Set rs = cn.Execute("select * from wenzhang where 內容='" & Text1.Text & "'")
If rs.EOF Then
myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")
If myval = vbYes Then
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &

Text1.Text & "')")
MsgBox ("保存成功")
Else
Combo1.Text = ""
End If
Else
Text1.Text = ""
Combo1.Text = ""
End If
End Sub
'刪除按鈕
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox ("不能刪除空記錄！")
Else
Dim myval As String
myval = MsgBox("是否刪除文章？", vbInformation + vbYesNo, "提示")
If myval = vbYes Then
Set rs = cn.Execute("delete from wenzhang where 內容 ='" & Text1.Text & "'")
MsgBox ("刪除成功！")
End If
End If
End Sub
'連接資料庫
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\vb.net\temp.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
End Sub