求一个数据库处理模块/函数(VB ADO对象)

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:26:49
大家好~小弟初学VB,现在打算做一个小的人事管理系统,练练~~
界面都画好了,到数据库操作时遇到了个问题:
书上的教程都是讲关于一个窗体进行数据库操作的,我的系统有近十个窗体,我不可能在每个窗体上都打开数据库吧.(我想用ADO对象)
我也参考了些资料,但是没有找到合适的,大多是有多年经验的老手写的,看不懂.
来向大家求个解决方法..
谢谢大家~

你可以添加一个模块，然后在里面定义并连接数据库
public conn as adodb.connection

set conn = new adodb.connnection
conn.open "连接字符串"

然后在窗体里面
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SQL语句",conn,1,3

'执行你的操作

set rs = nothing