VB的select问题

发布网友发布时间：2024-01-16 09:36

共4个回答

热心网友时间：2024-01-16 13:30

你你先数据库的数据提取到一个字符串变量，然后变量的字符串分拆年，月，日然后你定义还一个新变量，这变量添加字符串的时候你添加这个样子的
riqi="2008" &&"年"&&"11"&&"月"&&"日"
这样的话一定达到你的目的
但是这个不是最好的方法
最好的方法是，你改变数据库，表的日期存储字段的属性改编为长日期，这个是最好的方法

热心网友时间：2024-01-16 13:30

combo1.additem-combo2.additem是神马东西？
若是combo1.text -combo2.text:
ss = "select 你需要的列名 from data where year(date)=" & combo1.text & " and month(date)=" & combo2.text
或：
ss = "select 你需要的列名 from data where year(date) & month(date)=" & combo1.text & combo2.text
若date为文本类型：
s=combo1.text & "-" & combo2.text
ss = "select 你需要的列名 from data where left(date," & len(s) & ") ='" & s & "'"
或用like
ss = "select 你需要的列名 from data where date like '%" & combo1.text & "-" & combo2.text & "%'"
如果运行有误，去掉语句中的%追问select * from data where year(date)= combo1.text and month(date)=combo2.text 就可以.只是调试时提示对象不支持该属性....

追答rs.open "select * from data where year(date)=" & combo1.text & " and month(date)=" & combo2.text
如果不行，将date修改为[date]，至于对象不支持该属性，应该与该SQL语句无关。

热心网友时间：2024-01-16 13:30

Private Sub Form_Load()
Picture1.Cls
Picture1.DrawWidth = 1 'DrawWidth返回或设置图形方法输出的线宽。
Picture1.AutoRedraw = True
Picture1.BackColor = QBColor(0) 'QBColor:用来表示所对应颜色值的 RGB 颜色码，参数：1~15
Picture1.Scale (-1500, 1500)-(1500, -1500) 'Scale用以定义 Form、PictureBox 或 Printer 的坐标系统，参数：左上-右下
Picture1.Scale (0, 1500)-(1500, -1500) 'Scale用以定义 Form、PictureBox 或 Printer 的坐标系统，参数：左上-右下
Picture1.Line (-1500, 0)-(1500, 0), QBColor(15) '画水平线
End Sub

热心网友时间：2024-01-16 13:31

取出来值然后取前七位不就可以了来自：求助得到的回答