VB操作数据库的问题
我先定义了两个全局变量
Public PCN As New ADODB.Connection
Public REC As New ADODB.Recordset
连接数据库
conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 'sa';password='';Initial Catalog='Door';Data Source="
PCN.Open conn
查询按扭代码
REC.CursorLocation = adUseClient
REC.Open "select * from users", PCN
Set VSFlexGrid1.DataSource = REC
REC.Close
增加记录按扭代码
If Not REC.State = adStateClosed Then
REC.Close
End If
REC.CursorLocation = adUseClient
REC.Open "Insert into Users values('111', 'ning', '3', 0, 'sddsd ')", PCN
'如果放开下面代码，就会出现对象关闭时，不允许操作
'REC.Close
问题：
1。为什么查询之后，close没有问题。而在增加记录后，不能执行close，不然会出错。我感觉recordset用完之后，应该close才对。
2。我对这段代码不太了解，也是在网上找的。谁能帮我解释一下，应该怎么写最完美？
REC.CursorLocation = adUseClient'这个属性有什么用，还有哪些属性要设置？
If Not REC.State = adStateClosed Then REC.Close’这句话好像没什么用？我调试时，看到这段代码好像并没有执行。
REC.Open "select * from users", PCN’这句话后面的参数是干什么的，我在网上看到还有其它写法，哪些是有用的，哪些是没用的？
3。PCN.Execute ("select * from users")
这句话也能执行，但是它跟recordset的open语句有什么区别？怎么遍历它返回的记录？
注：小弟是初学。请多指教。
增加用：
pcn.execute &quo
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
