| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 555 人关注过本帖
标题:求教vb关于数据库连接问题!急!我在线等!
只看楼主 加入收藏
jijiangong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-6-25
收藏
 问题点数:0 回复次数:2 
求教vb关于数据库连接问题!急!我在线等!
以下我编的一段代码请问为啥在 MSHFlexGrid1控件中没有内容显示!数据库肯定是连上了!
Private Sub Command1_Click()
Dim stro1 As String
stro1 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=111;Data Source=P08"
Adodc1.ConnectionString = stro1
Dim strSQL As String
strSQL = "select * from 项目计划表 where 项目编号 LIKE '" & Trim(Text1) & " % 'or 项目名称 LIKE '" & Trim(Text2) & " % '"
= adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set MSHFlexGrid1.DataMember = Adodc1.Recordset    '使用的是MSHFlexGrid1控件,不是datagrid
MSHFlexGrid1.Refresh
End Sub
搜索更多相关主题的帖子: 数据库 在线 
2007-11-25 12:16
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
Private Sub Command1_Click()
Dim stro1 As String
stro1 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=111;Data Source=P08"
Adodc1.ConnectionString = stro1
Dim strSQL As String
strSQL = "select * from 项目计划表 where 项目编号 LIKE '" & Trim(Text1) & " % 'or 项目名称 LIKE '" & Trim(Text2) & " % '"
= adCmdText
Adodc1.Recordset.CursorLocation = adUseClient
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set MSHFlexGrid1.DataMember = Adodc1.Recordset    '使用的是MSHFlexGrid1控件,不是datagrid
MSHFlexGrid1.Refresh

这样子行不?
End Sub

我的msn: myfend@
2007-11-25 12:20
hnzz_wgf
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2007-11-21
收藏
得分:0 
不错
2007-11-25 13:16
快速回复:求教vb关于数据库连接问题!急!我在线等!
数据加载中...
 
   



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

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