VB如何实现查询数据库并显示出来？ 参考代码如下：Private Sub Command1_Click()on error goto errhandleDim Cnn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetCnn.ConnectionString=\"Provider=SQLOLEDB；Data Source=john；UID=sa；PWD=123；initial catalog=aaaCnn.Openif rs.state<；>；adstateclosed then rs.closeRs.Open\"select A from aaa\"，Cnn，adopenkeyset，adlockreadonlyif rs.recordcount>；0 thenlabel1.caption=rs。a&\"label1.refreshend ifrs.closecnn.closeexit sub'错误处理e799bee5baa6e997aee7ad94e59b9ee7ad9431333337613132ErrHandle：msgbox\"查询失败，错误原因为：\"&err.description，vbexclamation，\"提示if rs.state<；>；adstateclosed then rs.closeif cnn.state<；>；adstateclosed then cnn.closeend sub
请问怎么实现实时显示记录数，VB的 你可以这样加Data1.Recordset.MoveLastData1.Recordset.MoveFirstx=Data1.Recordset.RecordCountlabel1.caption=x这样就可以了，至于加到哪里看你的了！可以做一个按钮，也可以加到FORM_load中
VB 查询 显示查询到的全部记录 首先要加载一个label控件数组Set rs=db.Execute(Sql)If Not rs.EOF Thenfor i=1 to rs.recordcountLabel(i).Caption=rs(\"kehu\")&vbCrLf&rs(\"dianhua\")rs.movenextnext iElseLabel1=\"没有记录End If
vb+sql出入库记录查询 1、首先用ado建立sql数据库联接。2、使用insert语句，对sql插入记录3、使用select语句查询记录，并显示，可使用grid控件。你可以按这个思路去充实具体步骤，但如果没点基础会挺麻烦。就算写给你程序，估计你也很难修改。实在不行用控件，你可以去看看data控件与gird控件。但印象中是DAO联接方式。
vb中怎样把ADO的查询记录显示到控件内
vb数据库查询记录问题，帮忙下 弹出的是什么错误。说明清楚一点我们才能更好地了解。肯定不会是SQL版本的问题。建议你用Adodc1.Recordset.Find Text1.Text，adSearchForward，adBookmarkFirstText1.Text=xhIf Adodc1.Recordset.AbsolutePosition>；0 Then '无匹配项Text1.Text=\"MsgBox\"没有该学生。'弹出对话窗提示End If
VB查询access，将查询的记录显示在多个text中，请问以下程序错在哪里
在vb中怎样显示查询结果的下一条记录 com.Recordset.Movenext
VB中如何查询显示数据库表中的记录？？ DISTINCT 表示得到的数据不显示重复记录，这里的重复是指所有信息的重复。只要有一个列不重复就不表示重复。以下语句就是你想要的结果，如果这不是那只能是我理解错了，请再说明白一点。select DISTINCT b.id，b.teather_id from Score a inner join Course b on a.course_id=b.id where b.teather_id='12345'
