用vb 封装ADO的自定义类？
哪位高人做过用vb 封装ADO的自定义类？
给个实用的例子，我马上给分
Public Function ExecRS(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs As ADODB.Recordset
Set tmpRs = New ADODB.Recordset
If Not pAsync Then
tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adCmdText
Else
bCompleteExec = False
tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adAsyncExecute
Do While Not bCompleteExec
DoEvents
Loop
End If
Set ExecRS = tmpRs
Set tmpRs = Nothing
End Function
哎!
谢谢
使用ADO对象操作数据库的函数：http://download.csdn.net/source/1498324
呵呵，1楼也会给代码了
给lz个简单明了的
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection, connstring As String
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
connstring = "provider=Microsof
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
