|
|
主题: 数据库问题大探讨
|
D计划－混沌
职务：管理员
等级：6
金币：15.2
发贴：3528
|
#12000/12/27 23:47:08
我以前都用的是OPENEXE
(今天有个家伙对我说,"还是得用VB吧",气死我了)
让LOVE DI的同志头抬的更高
|
荣誉版主
职务：普通成员
等级：1
金币：0.0
发贴：82
|
#22000/12/28 0:56:20
数据库没什么困难的，也并不是什么高深的东西，如何配合内容才是关键，做多媒体完全可以自己编写，就算是几十万行查找也没什么困难，我曾做过。TEXT本身就是数据，如果变通灵活的运用，配合加密方式，就是标准的数据库，更为灵活，它应该具有快速的查找、计算等能力，如果我编个通用的text数据库对象脚本（父脚本），可能解决一些需要解决的问题。希望有那些功能呢。
|
D计划－混沌
职务：管理员
等级：6
金币：15.2
发贴：3528
|
#32000/12/28 9:28:56
text的数据库我也有一些初步了解,加密怎么加呢,建议lingo小组成果的最后发布采取一种此版本
居然有父脚本,万分感激
简单一点如读,加,删,检索,不敢浪费您太多时间
像阁下此等高手能不能将其作成behavie,
主要是dbf和sql相关的,多媒体主要还是用来演示,管理终究弱了点
编辑历史:[这消息被54zq编辑过(编辑时间2000-12-28 09:48:23)]
|
dexn
职务：普通成员
等级：1
金币：1.0
发贴：157
|
#42000/12/28 10:23:34
哦！用text处理上万的数据查询等操作？对我这个小菜真是新鲜事，大虾可否指点一二？
|
yanhq
职务：普通成员
等级：1
金币：0.0
发贴：35
|
#52000/12/28 13:27:39
我曾试着写过一点点，下面我贴上来，供大家参考，希望大家多提意见。
里面有最基本的creat(creatDB)，insert(addDB)，select(selectDB)，delete(deleteDB)和
update(updateDB)几个功能。
-- datebase--
--parent script --
property pDBname
property pDBziduan,pDBnr,pDBid
on new me,DBname
if DBname <> void then
pDBname = DBname
end if
return me
end
on testDB me
alert "DBname="&pDBname&" DBziduan="&pDBziduan
end testDB
on creatDB me,DBname,DBziduan
if DBname <> void and DBziduan <> void then
pDBname = DBname
pDBziduan = DBziduan
oldnumber = the number of members of castLib "Datebase"
oldnumber = oldnumber+1
new(#text,member(oldnumber,"Datebase"))
member(oldnumber,"Datebase").name = string(pDBname)
oldnumber = oldnumber+1
new(#text,member(oldnumber,"Datebase"))
member(oldnumber,"Datebase").name = string(pDBname)&"_type"
if pDBziduan[1][1] <> "id" then
pDBziduan.addat(1,["id","int"])
end if
writeDB = ""
repeat with n = 1 to pDBziduan.count
writeDB = writeDB&pDBziduan[n][1]&" "
member(pDBname&"_type","Datebase").line[n] = pDBziduan[n][2]
end repeat
member(pDBname,"Datebase").text = writeDB
else
return false
end if
end creatDB
on addDB me,DBname,DBnr
pDBname = DBname
pDBnr = DBnr
oldDBlinenum = member(pDBname,"Datebase").line.count
writeDB = ""
repeat with n = 1 to pDBnr.count
writeDB = writeDB&pDBnr[n]&" "
end repeat
member(pDBname,"Datebase").line[oldDBlinenum+1] = writeDB
end addDB
on selectDB me,DBname,DBid
pDBname = DBname
pDBid = DBid
readDB = member(pDBname,"Datebase").line[pDBid+1]
templist = []
return readDB
end selectDB
on deleteDB me,DBname,DBid
pDBname = DBname
pDBid = DBid
delete member(pDBname,"Datebase").line[DBid+1]
end deleteDB
on updateDB me,DBname,DBnr
pDBname = DBname
pDBnr = DBnr
oldDBlinenum = integer(DBnr[1])
writeDB = ""
repeat with n = 1 to pDBnr.count
writeDB = writeDB&pDBnr[n]&" "
end repeat
member(pDBname,"Datebase").line[oldDBlinenum+1] = writeDB
end updateDB
|
D计划－混沌
职务：管理员
等级：6
金币：15.2
发贴：3528
|
#62000/12/29 0:48:45
文本数据库大概就有用list和文本中加特标来实现,总的说来还是有特殊标记的文本
如果数据偏大(例:高达100m)以上的数据估计管理比较困难,要不那些玩数据的哥们就的去跳楼了
谁有ffxtra,v12或其他有关数据库xtra(无限制的)emailmeone
|
