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 啊。。。郁闷 代码我也看了下 感觉没啥错误
在 工程-部件-设计 添加数据库的部件。
可以了 也没改什么东西 唉
分给你了
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......
