标题:(已解决)这句话如何写(文本框)
只看楼主
jxawgyl
Rank: 1
等 级:新手上路
帖 子:208
专家分:0
注 册:2007-10-16
结帖率:100%
 问题点数:0 回复次数:4 
(已解决)这句话如何写(文本框)
我用了一个控件DataGrid,
Private Sub Form_Load()
Dim SQL As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Connect As String
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jchisn;Data Source=JXJXYY"
Set Conn = New ADODB.Connection
Conn.Open Connect
SQL = "select *  from AdviceListView"
Set rs = New ADODB.Recordset
rs.Open SQL, Conn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
现增加文本框,作为查询条件,不知如何写?请各位看一看。

[[it] 本帖最后由 jxawgyl 于 2008-6-25 08:41 编辑 [/it]]
搜索更多相关主题的帖子: 文本框 SQL ADODB Set Conn 
2008-06-13 15:20
论坛元老
Rank: 1
等 级:新手上路
帖 子:812
专家分:0
注 册:2008-3-31
得分:0 
select * from  AdviceListView where 条件(文本框)

怎么不可以用Discuz代码呢!
2008-06-13 15:30
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
得分:0 
select * from在就是你加的控件的內容啊
2008-06-14 11:57
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
找本讲VB语法的书。看字符串连接和控件的调用。
2008-06-14 13:20
jxawgyl
Rank: 1
等 级:新手上路
帖 子:208
专家分:0
注 册:2007-10-16
得分:0 
是的,我加上:SQL = "select * from dbo.AdviceListView where offname = '" + Trim(Text1.Text) + "'"
在文本框中录入数据时,没有任何变化。这是为什么?
2008-06-18 08:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-218994-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.483991 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved