关于SQL查询语句 如上,我想将表格中“代码”列中前三位为“000”的所有行全部找出来,用SQL怎么写啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 select * from table where [代码] like '000%' Private Sub Cmd1_Click() Dim i As Integer Dim s As String recset.Close '关闭记录集 s = "select * from 股票 where [代码] like '000%'" Set recset = db.OpenRecordset(s) '打开记录集 Form1.MSHFlexGrid1.FormatString = "^序号|< 代 码 |< 名 称|<价 格|>货 币 资 金|>长 期 负 债|> 总 股 本 |>流 通 股 本|>净现金价值(总)|>净现金价值(流)|>倍 数|>备 注" Form1.MSHFlexGrid1.rows = 1 For i = 1 To Form1.MSHFlexGrid1.rows - 1 Form1.MSHFlexGrid1.TextMatrix(i, 0) = i Next i = 0 With recset Do While Not .EOF i = i + 1 Form1.MSHFlexGrid1.TextMatrix(i, 1) = !代码 Form1.MSHFlexGrid1.TextMatrix(i, 2) = !名称 Form1.MSHFlexGrid1.TextMatrix(i, 3) = !价格 Form1.MSHFlexGrid1.TextMatrix(i, 4) = !货币资金 Form1.MSHFlexGrid1.TextMatrix(i, 5) = !长期负债 Form1.MSHFlexGrid1.TextMatrix(i, 6) = !总股本 Form1.MSHFlexGrid1.TextMatrix(i, 7) = !流通股本 Form1.MSHFlexGrid1.TextMatrix(i, 8) = !净现金价值总 Form1.MSHFlexGrid1.TextMatrix(i, 9) = !净现金价值流 Form1.MSHFlexGrid1.TextMatrix(i, 10) = !倍数 Form1.MSHFlexGrid1.TextMatrix(i, 11) = !备注 .MoveNext Loop End With Unload MeEnd Sub那上面的代码为什么用不起来呢,哪边有问题啊? MSHFlexGrid1填充数据有多种方式,你早贴出你的代码别人知道这么填充的才能对症下药是吧? DAO用:select * from 股票 where [代码] like '000*' Set MSHFlexGrid1.DataSource=recset MSHFlexGrid1.rows =recset.RecordCount s = "select * from 股票 where left([代码],3)='000'" Mshflexgrid的行数不够,所以提示下标越界,建议你还是用msflexgrid替代mshflexgrid吧,直接set msflexgrid.datasource=recset 就可以了,Form1.MSHFlexGrid1.FormatString…………Unload Me这一段代码全部都可以删掉。 呵呵,我就是从msflexgrid换成mshflexgrid的,又要换过来啊 听说mshflexgrid功能强大,所以就用了,以后再换麻烦 换的话一点都不麻烦mshflexgrid就是外观好看一些但对于初学者来说使用起来很麻烦另外mshflexgrid不能编辑 mshflexgrid和msflexgrid基本是一样的,只不过mshflexgrid可以与ADO的Recordset对象绑定而msflexgrid可以与DAO的RecordSet对象绑定,所以用ADO的基本都选用mshflexgrid用DAO的基本都选用msflexgrid,既然你用的是DAO那就应该选择msflexgrid而不是mshflexgrid mshflexgrid可以与ADO的Recordset对象绑定=VB6使用的东西msflexgrid可以与DAO的RecordSet对象绑定=VB5使用的东西. mshflexgrid,msflexgrid以上控件還不會用,學習中; 关于AlphaBlend覆盖 VB中如何将 关于.exe进程内组件 请问如何防止外部创建的程序部件忙呢? ActiveX 部件不能创建对象 如何将十进制转换位二进制? smartvsd.vxd是用来读磁盘序列号的文件,我将它拷贝到System\Iosubsys目录下,需要重启才能有效。怎样才能不用重启就生效呢? 关于update的问题 VB timer事件与 oncomm事件谁的优先级高? vb调用matlab编译的dll问题,用vb进行调用,在自己电脑上能运行成功,为什么到别人电脑上不能运行 请教一个ASCII码相互转换的问题…… vb获取窗口的name属性
Private Sub Cmd1_Click()
Dim i As Integer
Dim s As String
recset.Close '关闭记录集
s = "select * from 股票 where [代码] like '000%'" Set recset = db.OpenRecordset(s) '打开记录集
Form1.MSHFlexGrid1.FormatString = "^序号|< 代 码 |< 名 称|<价 格|>货 币 资 金|>长 期 负 债|> 总 股 本 |>流 通 股 本|>净现金价值(总)|>净现金价值(流)|>倍 数|>备 注"
Form1.MSHFlexGrid1.rows = 1
For i = 1 To Form1.MSHFlexGrid1.rows - 1
Form1.MSHFlexGrid1.TextMatrix(i, 0) = i
Next
i = 0
With recset
Do While Not .EOF
i = i + 1
Form1.MSHFlexGrid1.TextMatrix(i, 1) = !代码
Form1.MSHFlexGrid1.TextMatrix(i, 2) = !名称
Form1.MSHFlexGrid1.TextMatrix(i, 3) = !价格
Form1.MSHFlexGrid1.TextMatrix(i, 4) = !货币资金
Form1.MSHFlexGrid1.TextMatrix(i, 5) = !长期负债
Form1.MSHFlexGrid1.TextMatrix(i, 6) = !总股本
Form1.MSHFlexGrid1.TextMatrix(i, 7) = !流通股本
Form1.MSHFlexGrid1.TextMatrix(i, 8) = !净现金价值总
Form1.MSHFlexGrid1.TextMatrix(i, 9) = !净现金价值流
Form1.MSHFlexGrid1.TextMatrix(i, 10) = !倍数
Form1.MSHFlexGrid1.TextMatrix(i, 11) = !备注
.MoveNext
Loop
End With
Unload MeEnd Sub
那上面的代码为什么用不起来呢,哪边有问题啊?
是吧?
select * from 股票 where [代码] like '000*'
Form1.MSHFlexGrid1.FormatString
…………
Unload Me
这一段代码全部都可以删掉。
mshflexgrid就是外观好看一些
但对于初学者来说使用起来很麻烦
另外mshflexgrid不能编辑
msflexgrid可以与DAO的RecordSet对象绑定=VB5使用的东西.
以上控件還不會用,
學習中;