VB程序员博客

我一个sql查询出5条记录。
有5个label，我想分别将5条记录放入这5个label中，该如何实现呢！label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)

1 楼 修改一下

label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)
rs.movenext

rs.open"select top 5 * from table",cn,adopenkeyset,adlockoptimistic

while not rs.eof
label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)
wend

运行时报错。要求一个当前的记录！rs.open"select top 5 * from table",cn,adopenkeyset,adlockoptimistic

if rs.recordcount = 5 then
  label1.caption=rs.fields(0)
  rs.movenext
  label2.caption=rs.fields(0)
  rs.movenext
  label3.caption=rs.fields(0)
  rs.movenext
  label4.caption=rs.fields(0)
  rs.movenext
  label15.caption=rs.fields(0)
  rs.movenext
end if 建议使用控件数组

我一个sql查询出5条记录。
有5个label，我想分别将5条记录放入这5个label中，该如何实现呢！label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)

1 楼 修改一下

label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)
rs.movenext

rs.open"select top 5 * from table",cn,adopenkeyset,adlockoptimistic

while not rs.eof
label1.caption=rs.fields(0)
rs.movenext
label2.caption=rs.fields(0)
rs.movenext
label3.caption=rs.fields(0)
rs.movenext
label4.caption=rs.fields(0)
rs.movenext
label15.caption=rs.fields(0)
wend

运行时报错。要求一个当前的记录！rs.open"select top 5 * from table",cn,adopenkeyset,adlockoptimistic

if rs.recordcount = 5 then
  label1.caption=rs.fields(0)
  rs.movenext
  label2.caption=rs.fields(0)
  rs.movenext
  label3.caption=rs.fields(0)
  rs.movenext
  label4.caption=rs.fields(0)
  rs.movenext
  label15.caption=rs.fields(0)
  rs.movenext
end if 建议使用控件数组

想请教一下各位：
 我在form_load里的时候设定了 set dtpicker.datarouse=adodc1
  dapicker.datafileds="日期"
为什么我做了个关闭的按钮 点关闭的时候里面设定 if adodc1.recordset.recordcount=0 then
  set dtpicker.datarouse=nothing
  dtpicker.datafields=""
结果会报错？实时错误545 不能绑定到字段或数据成员“日期”不清楚怎么办，不过为什么dtp要绑定。
select，以后 value = 不就行了吗。

用VB写的程序，当同时运行多个副本时，如何使某些变量的值可以共享？或者说多个副本共享同一个变量。

请问如何实现？

当然通过文件可以共享，有没有其它简单的办法？数据库注册表读写内存副本对副本嵌入式开发<
设置共享内存区域谢谢各位老大！

我就是想有几个变量，不管程序运行几次，都是同一个变量。

数据库、注册表、嵌入式开发是不是都太麻烦了。内存共享不知道操作起来麻烦不。
难道就没有个类似静态变量什么的简单点的方法了？<
<
用全局原子行不行呢，就是GlobalAddAtom那些API管道、共享内存、消息、套接字、邮槽…，GOOGLE一下进程间通信。不想用数据库也可以用文件，就在 App.Path 目录下固定一个文件用来保存共享数据。
唯一要注意的是同时读写的冲突问题，不过文件系统有现成的加锁功能：
VB 的 Open 语句中，写文件用 Lock Read Write，读文件用 Lock Write。 谢谢各位的回复。
我先试试。

也试试：
http://topic.csdn.net/u/20100322/14/6216bc15-27c1-4aea-b915-a3cb14a2011a.html还有：是不是这类问题VC很简单可以实现？虽然没有满意答案，还是感谢各位！

VB收到串口发来的大量数据，处理后有两个用途：一是动态的显示在DATAGRID里面；二是存入ACCESS，并且导入到Excel模板
模板见附件

我想问的是怎样把Access中的9张表导入到Excel模板中？用多少模板？如果有更好的方案，怎样实现呢？大恩大德，来世再报了自己顶一下读取Access中的数据，往Excel对应模板填就行怎么填呢，给段代码吧！！没有一个例子可供参考，我是搞电子的，第一次写程序你来世再报了
俺们来世再给你做

我已经成功的截取到IP数据包和TCP数据包
但是能从这些数据包解析出URL地址吗
如果能该怎么做啊

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

我已经成功的截取到IP数据包和TCP数据包
但是能从这些数据包解析出URL地址吗
如果能该怎么做啊

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

我已经成功的截取到IP数据包和TCP数据包
但是能从这些数据包解析出URL地址吗
如果能该怎么做啊

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

如需要阅读该回复，请登录或注册

Dim strSQL As String
  Dim cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  rs.LockType = adLockOptimistic
  rs.CursorType = adOpenKeyset
  cnn.CursorLocation = adUseClient
  cnn.ConnectionString = connstr
  cnn.Open
  rs.Open "SELECT 姓名,学好,总分,课程 FROM ZERO_TAB", cnn
  If Not rs.EOF Then
  Set Datagrid.DataSource = rs
  End If
请教如何实现按照总分在DATAGRID里面按照降序排列？并且把排列的前10位的课程改成“计算机”（10这个数据是在TEXT2里面，有可能不是10），非前10的不用管？？谢谢

如需要阅读该回复，请登录或注册

玩得不一般的高，你的分都是这么来的？

是数据库，文本文件，excel还是其它的方法好，请大侠指导一下，顺便给了例子让我学习一下VSFlexGrid 有savegrid/loadgrid功能，是csv格式文件。数据表型的数据导出成csv再导入excel很方便啊，本机装了excel的话还可直接连着导啊将整个表选中,然后保存由.clip属性获得的内容即可本想写一些代码，一看这里好像已经有了，不妨试下吧：）
http://topic.csdn.net/t/20031205/12/2530905.html
datagird用什么办法能比较容易的导到excel中去 VB / 数据库(包含打印，安装，报表) - CSDN社区 community.csdn.net可以把数据先存储在结构数组中，这个结构就是一条记录。这样需要再次调用时，就可以从内存中读取，这样的好处是读出速度快，缺点是，如果数据量很大的话，会很耗内存。楼主可以采用折中的方法，先存在内存，数据达到一定的量时存入数据库楼上的是不是都是指的vb里面的msflexgrid啊，我怎么没有在msdn里面找到vsflexgrid的savegrid和loadgrid，我也想一存就能成csv，但是我还不怎么会用.clip属性，在这个程序里面要存到word里面还是一个个数据读出然后粘贴到word里面的。有会的人来帮忙教一下。还没有人继续回答吗？