如,我写的程序中的一节~: 可能有点笨~: Dim mysql As String mysql = "SELECT * from ²¡ÀúÏêÇé where ʱ¼ä=#" & DBGrid1.Text & "# and ²¡ÈËID='" & Pid & "'and py='" & Text2.Text & "'" Data11.RecordSource = mysql Data11.Refresh Data11.Recordset.MoveFirst End If
dim today as date taday=date() sqlstr="select 品牌 , 服装代码 , 服装名称 , 进价 , 销售价, 数量 from muse where 日期=#" & today & "#"'VB中的写法
SELECT 品牌 , 服装代码 , 服装名称 , 进价 , 销售价, 数量 FROM muse WHERE 日期 = getdate()
Dim mysql As String
mysql = "SELECT * from ²¡ÀúÏêÇé where ʱ¼ä=#" & DBGrid1.Text & "# and ²¡ÈËID='" & Pid & "'and py='" & Text2.Text & "'"
Data11.RecordSource = mysql
Data11.Refresh
Data11.Recordset.MoveFirst
End If
dim today as date
taday=date()
sqlstr="select 品牌 , 服装代码 , 服装名称 , 进价 , 销售价, 数量
from muse where 日期=#" & today & "#"'VB中的写法
FROM muse
WHERE 日期 = getdate()