好吧,先建一个公共模块,内容如下:
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=sql服务器名称;uid=用户名;pwd=密码;database=数据库"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
然后在需要调用数据库的窗体里放置如下语句:
Dim mrc As ADODB.Recordset
dim txtsql as string
txtsql=sql语句
Set mrc= exesql(txtsql)
OK,一个包含记录集的mrc‘对象’就建立了!
好吧,我承认这个在很多高手的眼中简直不值得一提,但在我这种VB代码体力劳动者身份的人心中,这个可是真正节省了不少的时间。欢迎高手提出更简便高明的方法!