JBTALKS.CC

标题: vb6.0 coding的问题！ [打印本页]

作者: 傻人有傻福 时间: 2011-1-26 05:20 PM
标题: 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

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

作者: 宅男-兜着走 时间: 2011-1-26 05:27 PM
回复 1# 傻人有傻福

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

sql 变数名。

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

翻译成中文的意思是：

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

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

作者: 傻人有傻福 时间: 2011-1-26 05:34 PM
谢谢这位大大，我也是在研究中不明白才发上来的 = =0

作者: 宅男-兜着走 时间: 2011-1-26 05:54 PM
回复 3# 傻人有傻福

正常

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

作者: EricChen85 时间: 2011-1-26 05:56 PM
本帖最后由 EricChen85 于 2011-1-26 05:58 PM 编辑

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

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)