学会了方便的挂接VB和SQL的数据库！

好吧，先建一个公共模块，内容如下：

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代码体力劳动者身份的人心中，这个可是真正节省了不少的时间。欢迎高手提出更简便高明的方法！