菜鸟的数据库入门_visualbasic教程

一个小例子，在编程之前，请选择“工程”-“引用”
确定引用“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
呵呵，方法就是这样，希望会对菜鸟有帮助！->