vb 一个问题 - VB / 基础类
Option Explicit
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
'Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关
Public Sub connect()
'连接数据库的代码段
Set conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读）
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\renshi.mdb;Persist Security Info=False"
conn.Open
'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨
Debug.Print Rs.State
End Sub
Rs.State 总是0 唉。 老连接不成功。。。
总是为0 啊。。。郁闷 代码我也看了下 感觉没啥错误
在 工程-部件-设计 添加数据库的部件。
可以了 也没改什么东西 唉
分给你了
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
