怎么把RecordSet中的数据绑定到DataGrid中啊？提示类型不匹配

2011-12-26 11:58:03 171 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

深入解析PCIe Retimer：工作原理与典型应用场景本文深入解析了PCIe Retimer的工作原理与核心价值。作为高速信号的中继再生器，Retimer通过时钟数据恢复和信号再生技术，有效解决长距离或复杂通道中的信号衰减与完整性问题，从而极大地扩展了PCIe链路的有效传输距离。文章详细阐述了其内部架构、自动与手动两种工作模式，并重点介绍了在长距离板间互连、复杂背板设计等典型应用场景中的关键作用。阅读详情

Private Sub Command_testSQL_Click()

    Set rs = New ADODB.Recordset

    Dim cmd As ADODB.Command

    Dim arr As Variant

    Dim sql As String

    

    sql = "select * from tb_reader where stuid=? and stuname=? "

    Set cmd = New ADODB.Command

    

    With cmd

        .ActiveConnection = cnn

        .CommandType = adCmdText

        .CommandText = sql

        arr = Array(101, "101")

         .Parameters(0).Value = arr(0)

         .Parameters(1).Value = arr(1)

         rs = .Execute

    End With

    

    Dim str1 As String

    str1 = rs("stuid")

    MsgBox str1, 64  '应该不是连接的问题 因为查询数据返回的结果还是蛮正常的

    

    

    Set DataGrid_reader.DataSource = rs  

    'Set Adodc_rs.Recordset = rs       ' 这2句都不行 

   

End Sub

Microsoft ActiveX Data Object 2.5 Library 这个我已经因用过了...

...全文

基于轻量级神经网络MobileNet V2的水果识别种类算法研究本文阐述了一种基于轻量级卷积神经网络MobileNet V2的水果分类与识别算法研究。为了最大限度地促进机械收获，需要一个检测系统，它可以让我们识别不同类别的水果。一个相对未开发的想法是使用深度学习和人工智能算法，不仅可以检测水果的种类，还可以检测水果是否成熟。这可以证明是有利可图的，因为它可以提供作物生长状况以及成熟和未成熟果实的个体数量，以及决定是否是收获时间的有用信息。第一步对数据进行了预处理,数据预处理技术在众多的深度学习计算中起到了重要作用。阅读详情

cart55free99

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

worldy 2012-02-03

打赏
举报

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = sql
arr = Array(101, "101")
.Parameters(0).Value = arr(0)
.Parameters(1).Value = arr(1)
rs = .Execute'这句应该有问题吧，set
End With

xihuanxiatian 2012-02-03

打赏
举报

这段代码也许能帮到LZ，LZ可以试试

Dim con As New ADODB.Connection ''定义数据库的连接存放数据和代码

Dim cmd As New ADODB.Command

Dim Gs As New ADODB.Recordset

Dim strSQL As String

con.ConnectionString = StrConn

strSQL = "select * from 顾客信息表"

''con.CursorLocation = adUseClient''无就不能绑定数据了?

con.CursorLocation = adUseClient ''还不能是adUseServer

con.Open

Set Gs = con.Execute(strSQL)

''Gs.Open strSQL, con, 3, 3

Set DataGrid1.DataSource = Gs

DataGrid1.Refresh

con.CursorLocation = adUseClient ''还不能是adUseServer
这句应该是关键了
不过
datagrid太不理想了,因为它的数据是需要绑定的,而不是想MSFlexGrid那样是从数据集里读取的.

Public Sub FillDataToMSFlex(rs As ADODB.Recordset, Mygrid As MSFlexGrid) ''将数据填充到MSFLEXGRID控件中去
也许换个控件也不错

xihuanxiatian 2012-02-03

打赏
举报

这个我也一直很想知道为什么
Set DataGrid_reader.DataSource = rs

这句绑定为什么不行

加上一句绑定刷新好像也不行
不过lz可以试着加上绑定和刷新的语句试试

lilbchn 2012-02-03

打赏
举报

Private Sub Command_testSQL_Click()

    Set rs = New ADODB.Recordset

    Dim cmd As ADODB.Command

    Dim arr As Variant

    Dim sql As String

    

    sql = "select * from tb_reader where stuid=? and stuname=? "

    Set cmd = New ADODB.Command

    

    With cmd

        .ActiveConnection = cnn

        .CommandType = adCmdText

        .CommandText = sql

        arr = Array(101, "101")

         .Parameters(0).Value = arr(0)

         .Parameters(1).Value = arr(1)

         rs.open cmd, , adOpenStatic, adLockOptimistic 

    End With

    

    Dim str1 As String

    str1 = rs("stuid")

    MsgBox str1, 64  '应该不是连接的问题 因为查询数据返回的结果还是蛮正常的

    

    

    Set DataGrid_reader.DataSource = rs  

    'Set Adodc_rs.Recordset = rs       ' 这2句都不行 

   

End Sub

怎么把RecordSet中的数据绑定到DataGrid中啊？提示 类型不匹配

相关推荐

怎么把RecordSet中的数据绑定到DataGrid中啊？提示类型不匹配