vb6.0 coding的问题！

傻人有傻福

Option Explicit
    Dim sql As String

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    sql = "select * from biao1 where riqi =#" & DTPicker1.Value & "#"
    cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ts.mdb; Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs.Fields(0) = Date$
    rs.Fields(1) = "ABC"
    rs.Fields(2) = "SAT"
    rs.Update
    Set MSHFlexGrid1.DataSource = rs
End Sub

大大们这个是什么意思【红字加大的哪一行】？

宅男-兜着走

回复 1# 傻人有傻福


    sql = "select * from biao1 where riqi =#" & DTPicker1.Value & "#"

    sql 变数名。
   
     select * from biao1 where riqi = #" & DTPicker1.Value & "#";     

翻译成中文的意思是：

      从表1 中找出所有资料 当 表1 的日期 符合 DTPicker1 的值。

      你好像少放 一个 &
      语法方面我懒惰帮你看， 自己研究下。

傻人有傻福

谢谢这位大大，我也是在研究中不明白才发上来的 = =0

宅男-兜着走

回复 3# 傻人有傻福

    正常
    以前我也不知道这个是啥==

EricChen85

从biao1这个表里，筛选出拥有指定的riqi，列出所有的栏。