| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 864 人关注过本帖
标题:数据库方面的问题
只看楼主 加入收藏
abinny
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-12-5
收藏
得分:0 

运行后在MSFlexGrid没任何数据显示,怎么改?

Public cnTest As New ADODB.Connection

Public Function connectSybase() As Boolean
On Error GoTo ErrHandle
Dim strConnect As String
strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11}; " _
& " Persist Security Info=False;DSN=;" _
& " SRVR=user_14;DB=esmart;UID=sa;PWD=888888"
connectSybase = True
Exit Function

ErrHandle:
connectSybase = False
End Function

Private Sub Form1_Load()
Dim rsTest As New ADODB.Recordset
Dim strSQL As String
If connectSybase Then
strSQL = "Select * from User_Info_Table" 'strSQL可以是SQL语句(块),存储过程
rsTest.CursorLocation = adUseClient
rsTest.Open strSQL, cnTest 'cnTest为打开的活动的连接
Else
MsgBox "打开数据库失败"
Exit Sub
End If

Set MSFlexGrid1.DataSource = rsTest
MSFlexGrid1.Refresh
End Sub

2006-12-05 11:38
e3bnsd
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2007-3-29
收藏
得分:0 
学习
2012-12-08 21:48
快速回复:数据库方面的问题
数据加载中...
 
   



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

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