用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
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
