當前位置:首頁 » 操作系統 » 易語言資料庫源碼

易語言資料庫源碼

發布時間: 2022-09-19 16:32:33

A. 易語言寫入edb資料庫時沒反應,源碼如圖

判斷條件不對,應該是判斷資料庫和讀寫,這樣哪裡出錯就會很清晰。按照你的圖我做了一個簡單的注冊(帶資料庫),你可以參考一下。

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版本的話,是無法靜態編譯的!

熱點內容
內置存儲卡可以拆嗎 發布:2025-05-18 04:16:35 瀏覽:336
編譯原理課時設置 發布:2025-05-18 04:13:28 瀏覽:378
linux中進入ip地址伺服器 發布:2025-05-18 04:11:21 瀏覽:612
java用什麼軟體寫 發布:2025-05-18 03:56:19 瀏覽:32
linux配置vim編譯c 發布:2025-05-18 03:55:07 瀏覽:107
砸百鬼腳本 發布:2025-05-18 03:53:34 瀏覽:944
安卓手機如何拍視頻和蘋果一樣 發布:2025-05-18 03:40:47 瀏覽:741
為什麼安卓手機連不上蘋果7熱點 發布:2025-05-18 03:40:13 瀏覽:803
網卡訪問 發布:2025-05-18 03:35:04 瀏覽:511
接收和發送伺服器地址 發布:2025-05-18 03:33:48 瀏覽:372