机器控制/过程控制
优化/集成/管理
!!!!!!!vb实时错误424 要求对象.有分跪求帮忙啊!!!!!!!!!
悬赏分：50 - 解决时间： 20:08:45
好心人帮帮忙!!!!!!!
Private Sub Cmd_BackUp_Click()
Cmd_BackUp.Enabled = False
Me.MousePointer = 11
If Text1.Text = && Then
MsgBox &请您选择数据库备份的路径!&, 64, &提示信息&
Dim connter As Integer
Dim sql, workarea(6) As String
ProgressBar1.Visible = True
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = &initial value& & connter
ProgressBar1.Value = connter
StrCnn.Open &Provider=Microsoft.Jet.OLEDB.3.51;Data Source=& & App.Path & &\khgl.Persist Security Info=False&
sql = &backup DATABASE db_CService TO disk='& & Text1.Text & &'&
StrCnn.Execute (sql) '执行SQL语句
StrCnn.Close
Next connter
ProgressBar1.Value = ProgressBar1.Min
MsgBox &数据库备份成功!!&, 64, &提示信息&
Cmd_BackUp.Enabled = True
Me.MousePointer = 0
Private Sub Cmd_cancel_Click()
frm_main.Show
Private Sub Cmd_Select_Click()
CommonDialog1.Filter = &备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.*&
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
程序的这句话有毛病StrCnn.Open &Provider=Microsoft.Jet.OLEDB.3.51;Data Source=& & App.Path & &\khgl.Persist Security Info=False&
提问者：尖尾雨燕 -
一、在“工程”->“引用”中，钩选"Microsoft ActiveX Data Objects 2.0 Library"，或更高版本。
二、在Cmd_BackUp_Click中加入StrCnn的定义：
Dim StrCnn As New ADODB.Connection
回答者：一、在“工程”->“引用”中，钩选"Mi -10-29 17:00:10
其他回答&&&&共 3 条&&&&
10-29 16:45:5410-29 16:50:2810-30 10:08:05
对最佳答案的评论:
评论字数200字以内
北京市光机电产业基地尖子班大厦A座301室&&&&&&电话：010-&&&传真：010-
Copyright (C) &
. All rights reserved.利用VB6.0做一个实时显示数据的表格
[问题点数：20分]
本版专家分：0
CSDN今日推荐
本版专家分：0
本版专家分：34697
本版专家分：0
本版专家分：498
本版专家分：17332
本版专家分：0
匿名用户不能发表回复！
其他相关推荐
通过设置interval和ajax，来实现页面数据的更新，亮点是只更新一个
listview实现表格效果，表格线，带假数据，直接可以使用！
见博客:http://blog.csdn.net/baidu_nod/article/details/
Android图表控件MPAndroidChart——曲线图LineChart（多条曲线）动态添加数据日 09:00:16阅读数：10212发现最新的MPAndroidChart和以前版本的使用有一些差距，就写下了现在新版的使用方法相关文章：Android图表控件MPAndroidChart的简单介绍（MPAndroidChart3.0）Android图表控件MPAndroid...
自己最近做了一个关于VB.NET开发的串口调试程序，实现了和下位机DSP的通信，并且实现了实时画图功能，DSP把整形数据（占4个byte）,左移后通过DMA方式先发高位，接收后用位段方式转化为整型。同时接受两路数据并以streamwrite的形式自动保存到.txt文件中。
Dim bvMaternal As BitVector32
Dim bvFetal As BitVecto
最近在学习java swing包里面的JTable类，然后就想把JTable和jdbc结合起来做一个例子，使用JTable显示数据库中的表的内容。经过一番努力，终于成功了，呵呵。主要是获得数据表的记录数和字段数比较麻烦，因为ResultSet里面没有直接的方法，需要使用sql语句：&select count(*) from table&来取得记录数。
下面就是我写的例子，数据
VB制作度传感器上位机，通过DS18B20温度传感器采集温度，可以实时的显示当前温度。
华丽的HTML5图表 可展示实时数据
18,771 人浏览
HTML5在图表应用中也十分广泛，比起以前的网页图表，HTML5图表制作更便捷，功能更强大。这款HTML5图表插件外观十分华丽和专业，在数据展示方面也很有优势，图表不仅支持多维数据展示，而且支持区域选择数据功能，利用该HTML5图表可以更加方便地管理你的数据。
在线演示源码下
利用表格技术使得上传的文件为表格显示数据一目了然，利用数据库作为数据的导入和导出
VB6.0 读写excel表格/dat文件并保存最近偶尔写了点VB - - 1.Excel读写GlobalLists: Dim xlsApp As Object
Dim xlsWB1 As Object
Dim xlsWS1 As ObjectForm:Private Sub writeDataToExcel()
Set xlsApp = CreateObject(&Excel.Applic实时错误：‘424’；要求对象 是什么意思啊？ VB初学者【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,641贴子：
实时错误：‘424’；要求对象 是什么意思啊？ VB初学者收藏
Private&Sub&Form_Load()
&Load&xskh
&xskh.Show&1
End&Sub&
运行后：
实时错误：‘424’
要求对象
谢谢帮帮忙！
xskh对象不存在，也就是说，没有一个Name为xskh的窗口
错误&424&是没引用需要的对像或对像不存在
非常感谢:)
呵呵，已解决，谢谢:)
我还是没懂。
Load&xskh&语句用于加载一个窗口或控件，如果xskh不存在，则不能加载，所以出现这样的错误。
快试试吧，可以对自己使用挽尊卡咯~◆◆
我也碰到同样的问题，但我明明有这个名字的 form而且以前启动也正常过后来不知道动了什么地方就不行了，可是原始语句和 userform1 这个名字，我从没修改过的为什么还报这个错呢？谢谢回答哦
快试试吧，可以对自己使用挽尊卡咯~◆◆
我现在也遇到了同样的问题，很郁闷
Dim a$(), x&&&&& a = Split(Text1.Text, ",")&&&&& For Each x In a&&&&&&&&&& Picture1.Print Tab(6 * (i Mod 10) + 1);&&&&& Next x那这个又是怎么回是?拜托各位帮忙解决一下,感激不尽
FoxTable 2017,更低难度,10倍效率,可编译,完美融合B/S和C/S优势,快速开发数据管理软件
Private Sub Form_Load()'设置窗体尺寸Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2'调整边框来适合选项控件fraSettings.Move tabSettings.ClientLeft, tabSettings.ClientTop'确定边框位于多数控件的顶部fraSettings.ZOrder'载入当前的属性设置LoadPropertySettingsEnd Sub运行后显示实时错误，要求对象。跪求各位大神帮忙。
Private Sub Command1_Click()Mp3Play.Open = (&C:\Music.mp3&)Mp3Play.playEnd Sub求解424
登录百度帐号请问MSHFlexGrid控件如何实时刷新数据?
[问题点数：20分]
本版专家分：0
结帖率 18.18%
CSDN今日推荐
本版专家分：45916
2008年5月 VB大版内专家分月排行榜第三
本版专家分：0
本版专家分：34697
本版专家分：0
本版专家分：204
2005年10月 MS-SQL Server大版内专家分月排行榜第三
本版专家分：114
本版专家分：0
本版专家分：0
本版专家分：6785
本版专家分：45916
2008年5月 VB大版内专家分月排行榜第三
本版专家分：0
本版专家分：45916
2008年5月 VB大版内专家分月排行榜第三
本版专家分：72
匿名用户不能发表回复！
其他相关推荐
实现列宽根据内容容量自动调节大小。效果如图:
如果实现这样的效果：自我感觉在模块里添加自动调节的代码，然后在窗体里调用比较方便。
模块代码部分：
Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIn
加强型的表格MSHFlexGrid控件,可以设置单元格类型,
有编辑框,下拉框,下拉列表框,按钮等,
支持鼠标滚轮,
带有源码,可以说以经是一个成品了.
有兴趣的可以下载使用学习,及测试.
代码如下:With MSHFlexGrid1
For i = 0 To .Cols - 1
.CellAlignment = flexAlignCenterCenter
.Row = 1End With
做机房收费系统不免要遇到这个问题，那就是删除MSHFlexGrid控件里指定的记录，这也是前几天我一直纠结的一个问题，不知道该怎么做，现在学会了，我要把它记录下来，因为这是我的成长记录，呵呵。
我们不仅要删除MSHFlexGrid控件中指定的记录，还要删除数据库里所对应的记录。
那么首先删除MSHFlexGrid控件中指定的记录该怎么做，查了查百度，是这样写的：
Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))End SubPrivate Sub Form_Load() Dim i As LongWith MSHFlexGrid1.FixedCols = 0.Cols = 4
如果您的表格控件是使用的mshflexgrid的话，可以使用该控件，进行直接输出打印。效果不错。
在敲机房时，遇到这样一个问题，要删除MSHFlexGrid控件中某行的记录，在选择之前，做的就是先选中要删除的行。下面是我在操作是遇到的问题.
一.操作方法
1.属性中设置（三者缺一不可）
右击该MSHFlexGrid控件，选择属性，设置其中的属性，如下：
相应的代码：
Private Sub some_Click()
'定义变量
Dim txtSQL As String
Dim MsgText As String
Dim Online_mrc As ADODB.Recordset
Dim mrc1 As ADODB.Recordset
Dim txtStr As String
在机房收费系统中,很多窗体都用到了mshflexgrid 控件,而且还有部分的用到了mshflexgrid
选中某行信 息并改变颜色,在这里我介绍两种我知道的方法:
用代码使其选中某行信息并改变其颜色,这个方法唯一不足的就是只能选中一行的信息,如果想要选中多行就不行了.
hflexgrid_EnterCell()
前几天敲机房的时候，敲到查询内容的时候，需要添加查询控件，但是有MSFlexgrid和MSHFlexgrid两种，接下来我就不知道该怎么办了，该添加哪个好呢，于是我就问了一下度娘，下面是我整理出来的结果。
简单地说,MSFlexGrid和MSHFlexGrid之间的区别：MSFlexGrid 是老版本的,不能用ADO；MSHFlexGrid是新版本的,可以用ADO的层次显示,而且还能做合Access denied | share.freesion.com used Cloudflare to restrict access
Please enable cookies.
What happened?
The owner of this website (share.freesion.com) has banned your access based on your browser's signature (446f6c88e201989b-ua98).}