求教：sql查询的数据源怎样显示到子窗体？

8521976

我用下面这句怎么处理不了啊！
Dim rs As New ADODB.Recordset
Dim ssSql As String
ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
Set rs = conn.Execute(ssSql)
Me.进货数据.Form.RecordSource = rs

总提示类型不匹配。哪位大哥指导一下啊！

roych

数据源是字符串，而不是记录集（这个可以参考窗体设计模式下的数据源）。简化后的代码如下：

1. Dim ssSql As String
   
2. ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
   
3. Me.进货数据.Form.RecordSource = ssSql

复制代码

鱼儿游游

Dim rs As New ADODB.Recordset
Dim ssSql As String
ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
Set rs = conn.Execute(ssSql)
Me.进货数据.Form.Recordset = rs

鱼儿游游

Dim rs As New ADODB.Recordset
Dim ssSql As String
ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
Set rs = conn.Execute(ssSql)
Me.进货数据.Form.Recordset = rs

zhuyiwen

我用下面这句怎么处理不了啊！
Dim rs As New ADODB.Recordset
Dim ssSql As String
ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
Set rs = conn.Execute(ssSql)
Me.进货数据.Form.RecordSource = rs

总提示类型不匹配。哪位大哥指导一下啊！

我估计你是用ADO的记录集作为子窗体的数据源，如果是只读，你应该这样写：

1. Dim rs As ADODB.Recordset
   
2. Dim ssSql As String
   
3. ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
   
4. Set rs = conn.Execute(ssSql)
   
5. Set Me.进货数据.Form.Recordset = rs

复制代码

如果是要可以修改和删除，你应该这样写：

1. Dim rs As New ADODB.Recordset
   
2. Dim ssSql As String
   
3. ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
   
4. rs.Open ssSql, conn, 1, 3
   
5. Set Me.进货数据.Form.Recordset = rs

复制代码

8521976

太好了！谢谢版主和管理员！

8521976

帮忙看看怎么没法运行啊！
我想达到的目的是点击主窗体中的录入按钮，在进货数据子窗口显示我查询的ado记录值！

roych

你引用了外部链接，不能关闭数据链接。修改后代码如下：

1. Dim conn As New adodb.Connection  '数据库连接
   
2. Dim sSql As String  'sql字符串
   
3. conn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source = " & CurrentProject.Path & "" & "进销货数据库.accdb" & ";Jet OLEDB:Database"
   
4. conn.Open
   
5. If conn.State = adStateOpen Then
   
6. Dim rs As New adodb.Recordset
   
7. Dim ssSql As String
   
8. ssSql = "Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'"
   
9. rs.Open ssSql, conn, adOpenStatic, adLockReadOnly
   
10. Set Me.进货数据.Form.Recordset = rs
    
11. Me.进货数据.Form.Recalc
    
12. Else
    
13. MsgBox ("no")
    
14. End If

复制代码

不过，个人还是觉得复杂了些，以下较简单的代码，供参考比较：

1. Dim db As dao.Database
   
2. Dim rst As dao.Recordset
   
3. Set db = dao.OpenDatabase(CurrentProject.Path & "\进销货数据库.accdb")
   
4. Set rst = db.OpenRecordset("Select id,货品名称,货品代号,货品颜色,货品尺码,进货数量,进货价格,进货日期,备注 from 进货明细 where 货品名称='裤子'",dbOpenSnapshot)
   
5. '其实这个快照打开参数是可以省去的，不过想做得跟你的原件一样，就加上去了。
   
6. Set Me.进货数据.Form.Recordset = rst
   
7. Me.进货数据.Form.Recalc

复制代码

8521976

辛苦版主了！！

8521976

经测试完美可用！！