易語言資料庫源碼
判斷條件不對,應該是判斷資料庫和讀寫,這樣哪裡出錯就會很清晰。按照你的圖我做了一個簡單的注冊(帶資料庫),你可以參考一下。
B. 易語言給資料庫某個欄位累加數字源碼
先讀出欄位的源數值,然後累加再寫入
記錄集注冊帳號.讀文本 (「point」, 原始數值變數)
記錄集注冊帳號.寫文本 (「point」,到文本(到數值(透明標簽12.標題)+到數值(原始數值變數)) )
C. 我在易語言官網下載了個源碼裡面有幾種格式的文件,比如edb,edt,fnr,fne等,這些是怎麼生
「e」是易源碼格式
打開易語言,「保存」就有了
「edb」是易語言資料庫文件,一個小巧的資料庫
使用「創建()」函數可以生成
.版本 2
.子程序 __啟動窗口_創建完畢
.局部變數 欄位信息, 欄位信息, , "3"欄位信息 [1].名稱 = 「名字」
欄位信息 [1].類型 = #文本型
欄位信息 [1].最大文本長度 = 20
欄位信息 [2].名稱 = 「數量」
欄位信息 [2].類型 = #整數型
欄位信息 [3].名稱 = 「編號」
欄位信息 [3].類型 = #整數型
創建 (取運行目錄 () + 「e資料庫.edb」, 欄位信息)「edt」是edb的數據擴展,用於儲存位元組集欄位數據
使用「創建()」函數創建包含「位元組集型」的欄位可以生成
.版本 2
.局部變數 欄位信息, 欄位信息, , "3"
欄位信息 [1].名稱 = 「名字」
欄位信息 [1].類型 = #文本型
欄位信息 [1].最大文本長度 = 20
欄位信息 [2].名稱 = 「數量」
欄位信息 [2].類型 = #整數型
欄位信息 [3].名稱 = 「圖片」
欄位信息 [3].類型 = #位元組集型
創建 (取運行目錄 () + 「e資料庫2.edb」, 欄位信息)「fnr、fne」是易語言支持庫,相當於DLL吧,用於支持易語言IDE調用,如圖中的函數都要依賴支持庫!
使用其它編程語言或易語言新建「Windows動態鏈接庫」工程可以創建,由於這個對於我來說不太容易,就不示範了,具體可到易官方論壇找常式!
D. 追加60+,求易語言的資料庫結構編輯器的源碼
易語言自帶的一點都不好用,樓主自己寫個吧,看你的問題相比對易資料庫已經很了解了,而且易資料庫直接支持用代碼創建刪除的,樓主加油吧
E. 求易語言edb資料庫的源碼常式
F. 在易語言中 帶有資料庫 的源碼怎麼編譯
選擇一 動態創建資料庫 選擇二 把資料庫添加到資源裡面 用 寫到文件() 生成 選擇三編譯是添加資料庫文件
G. 求關於易語言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)
.變數循環尾()
.判斷結束
密碼=結果文本
關閉文件(文件號)
返回(真)H. 帶有 易語言資料庫的源碼 怎麼編譯 用靜態編譯 編譯完完資料庫怎麼弄
選擇一 動態創建資料庫
選擇二 把資料庫添加到資源裡面 用 寫到文件() 生成
選擇三 編譯是添加資料庫文件I. 易語言源碼是什麼
就是 文件名.e的文件 用這個文件 可以修改程序的功能 界面等 把它改寫成你自己的程序 如果你想學習易語言推薦去赤血學院 學習一下 哪裡成套的視頻教程 可以讓你快速入門。
J. 帶有 易語言資料庫的源碼 怎麼編譯 用靜態編譯 編譯完完資料庫怎麼弄
如果實在找不到,哪就用先前的易語言版本如:4.13以前的,使用獨立編譯,因為5.11版本的有的不存在這種靜態支持庫,就好像易皮膚,如果採用5.11版本的話,是無法靜態編譯的!