VB 不用ADODC控件,怎么把连接数据显示在MSFlexGrid
答案:3 悬赏:50 手机版
解决时间 2021-03-29 01:42
- 提问者网友：未信
- 2021-03-28 03:02
VB 不用ADODC控件,怎么把连接数据显示在MSFlexGrid
最佳答案
- 五星知识达人网友：渊鱼
- 2021-03-28 03:14
用adodb对象
Dim 数据库连接 As ADODB.Connection
Dim 记录集0 As ADODB.Recordset
Set 数据库连接 = New ADODB.Connection
数据库连接.Mode = adModeRead
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& 数据库路径0 & ";Jet OLEDB:Database Password=" & 数据库密码0
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集0 = New ADODB.Recordset
记录集0.Open sql查询语句, 数据库连接, adOpenKeyset, adLockReadOnly
set MSFlexGrid1.datasourse=记录集0追问谢谢!如果是通过调用一设定的公共函数进行连接,怎么处理? ,以下语句怎么都连不上,提示找不到工程或库,都郁闷好几天了
Dim rs2 As ADODB.Recordset
strSQL = "select * from 生产基本报表 where " & Combo1cx.Text & " like " & txtcxcx.Text & ""
Set rs2 = ExeSQL(strSQL) '调用公共函数ExeSQL
Set MSFlexGrid1.DataSource = rs2追答请查看下你的exesql中使用的对象是否都已被引用。如果是在同一工程中的函数，你可以查看是哪一行代码出现问题。
Dim 数据库连接 As ADODB.Connection
Dim 记录集0 As ADODB.Recordset
Set 数据库连接 = New ADODB.Connection
数据库连接.Mode = adModeRead
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& 数据库路径0 & ";Jet OLEDB:Database Password=" & 数据库密码0
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集0 = New ADODB.Recordset
记录集0.Open sql查询语句, 数据库连接, adOpenKeyset, adLockReadOnly
set MSFlexGrid1.datasourse=记录集0追问谢谢!如果是通过调用一设定的公共函数进行连接,怎么处理? ,以下语句怎么都连不上,提示找不到工程或库,都郁闷好几天了
Dim rs2 As ADODB.Recordset
strSQL = "select * from 生产基本报表 where " & Combo1cx.Text & " like " & txtcxcx.Text & ""
Set rs2 = ExeSQL(strSQL) '调用公共函数ExeSQL
Set MSFlexGrid1.DataSource = rs2追答请查看下你的exesql中使用的对象是否都已被引用。如果是在同一工程中的函数，你可以查看是哪一行代码出现问题。
全部回答
- 1楼网友：鱼芗
- 2021-03-28 05:15
你这个问题还没有处理好吗?晕
- 2楼网友：醉吻情书
- 2021-03-28 04:34
用adodb对象
Dim 数据库连接 As ADODB.Connection
Dim 记录集0 As ADODB.Recordset
Set 数据库连接 = New ADODB.Connection
数据库连接.Mode = adModeRead
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& 数据库路径0 & ";Jet OLEDB:Database Password=" & 数据库密码0
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集0 = New ADODB.Recordset
记录集0.Open sql查询语句, 数据库连接, adOpenKeyset, adLockReadOnly
set MSFlexGrid1.datasourse=记录集0
Dim rs2 As ADODB.Recordset
strSQL = "select * from 生产基本报表 where " & Combo1cx.Text & " like " & txtcxcx.Text & ""
Set rs2 = ExeSQL(strSQL) '调用公共函数ExeSQL
Set MSFlexGrid1.DataSource = rs2
Dim 数据库连接 As ADODB.Connection
Dim 记录集0 As ADODB.Recordset
Set 数据库连接 = New ADODB.Connection
数据库连接.Mode = adModeRead
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& 数据库路径0 & ";Jet OLEDB:Database Password=" & 数据库密码0
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集0 = New ADODB.Recordset
记录集0.Open sql查询语句, 数据库连接, adOpenKeyset, adLockReadOnly
set MSFlexGrid1.datasourse=记录集0
Dim rs2 As ADODB.Recordset
strSQL = "select * from 生产基本报表 where " & Combo1cx.Text & " like " & txtcxcx.Text & ""
Set rs2 = ExeSQL(strSQL) '调用公共函数ExeSQL
Set MSFlexGrid1.DataSource = rs2
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯