vb6.0
文章平均质量分 56
superhzq
这个作者很懒,什么都没留下…
展开
-
在对DATAGRID赋ado记录集rsData时出现的错误
vb6中datagrid控件,在部分WIN98机器上(可能原因不是出现在操作系统上,如vb的 SP 等方面),在对DATAGRID赋ado记录集rsData,此时记录集内记录数如果为零,且是第二次查询时会出现如下错误Set DBGrid1.DataSource = rsData一番折腾后才发现是datagrid1.splits.add 1 搞的鬼.在第二次查询时应该先datagrid1.s原创 2004-08-30 14:46:00 · 719 阅读 · 0 评论 -
导出ADO记录集至文本的一段代码
指定保存的文件名和路径对话框Private Sub cmdBrowse_Click() With CommonDialog1 .InitDir = "c:/" .fileName = txtFileName.Text .DialogTitle = "保存到文本文件" .Filter = "文本文件 (*.txt)|*.txt|所有文件 (*.*)|*.*" .F原创 2004-10-07 08:07:00 · 750 阅读 · 0 评论 -
记录集FILTER引起的问题
在维护一个旧系统时,一个记录集在打开时出现一些莫明其妙的错误.提示"记录集已打开",此时你把记录集显式关闭再打开也会报错.或提示"找不到指定的集合"此记录集是一个模块级变量.每次打开时都要先判断是不是需要关闭.此细查看全模块中对该记录集进行的操作,发现有使用filter地方,使用后没有及时复原.原来故障出现在这里.对记录集使用filter后应及时复原.哪怕你把记录集关闭后重新打开也是如此.原创 2005-01-07 12:07:00 · 834 阅读 · 0 评论 -
ADO的CursorType注意点
使用 CursorType 属性可指定打开 Recordset 对象时应该使用的游标类型。Recordset 关闭时 CursorType 属性为读/写,而 Recordset 打开时该属性为只读。如果将 CursorLocation 属性设置为 adUseClient 则只支持 adUseStatic 的设置。如果设置了不支持的值,不会导致错误,将使用最接近支持的 CursorType。如果原创 2005-01-12 08:56:00 · 1130 阅读 · 0 评论 -
VB中运用PARAMETER调用存储过程的一段代码
Dim cn As ADODB.Connection Dim rsAdo As ADODB.Recordset Dim cmdAdo As ADODB.Command Dim prmAdo As ADODB.Parameter dim strParaName as string Set cn = New ADODB.Connection Set原创 2005-01-12 16:08:00 · 1117 阅读 · 0 评论 -
使用VB关闭显示器的一段代码
Option ExplicitPrivate Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg _ As Long, ByVal wParam As Long, ByVal lParam As Long) _ As Long Con原创 2005-02-24 11:58:00 · 1716 阅读 · 0 评论 -
vb6调用水晶报表9.2的一段代码
必须引用ado及crystal report9 activex designer design time library(internal)使用控件 crystal report viewer contral Dim strsql As String Dim capp As New CRAXDRT.Application Dim carp As New CRAXDRT原创 2005-03-07 14:58:00 · 1220 阅读 · 0 评论 -
vb6实现程序延时的几种方法
VB6在开发发贴机时,提交数据要用到延时程序,让程延时和等待.从网上找了三种方法,三种方法以最后一种最好用.第一种如果不DOEVENTS的话,会使人感觉程序无反应一样有以下方法:1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口声明:Private Dec转载 2010-05-02 16:29:00 · 1943 阅读 · 0 评论