查看: 1194|回复: 4

vb6.0 coding的问题！

[复制链接]

傻人有傻福

2011-1-26 05:20 PM

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，列出所有的栏。

返回列表