菜鸟的数据库入门

核心提示：一个小例子，在编程之前，菜鸟的数据库入门，请选择“工程”-“引用”确定引用“microsoftDAO3.51Objectlibrary”dimdbasdatabasedimrsasrecordsetPRivatesubform1_load()Setdb=OpenDatabase(App.Path "\TTT.

一个小例子，在编程之前，请选择“工程”-“引用”
确定引用“microsoftDAO3.51Objectlibrary”
dimdbasdatabase
dimrsasrecordset

PRivatesubform1_load()
Setdb=OpenDatabase(App.Path "\TTT.mdb")'（）内是你的数据库所在位置
Setrs=db.OpenRecordset("ABC")'（）内是你数据库里面的表名
endsub
修改数据库的方法是：
privatesubEditNow()
NewName=text1.text
NewP=text2.text
withrs
.edit
!名字=Lcase(newname)'“名字”是你表中的项目，（newname）内是你根据你的代码改变的值
!密码=Lcase(newp)'同上
.update
endwith
endsub
建立是用rs.addnew
呵呵，方法就是这样，希望会对菜鸟有帮助！->