Dim WithEvents rsContact As ADODB.Recordset
Dim sContactQuery As String
sContactQuery = "SELECT * FROM dushuju WHERE name='" & label6.caption& "'"
Set rsContact = conn.Execute(sContactQuery)
Set datagrid1.DataSource = rsContact
Dim sContactQuery As String
sContactQuery = "SELECT * FROM dushuju WHERE name='" & label6.caption& "'"
Set rsContact = conn.Execute(sContactQuery)
Set datagrid1.DataSource = rsContact
解决方案 »
- 为什么我的adodc1.refresh出错误呢.
- VBA中如何将combobox的值与SQL表中的某列值进行绑定?在线等,如解决,立刻结帖
- 绘制标准风格滚动条的问题
- API截屏至PICTUREBOX后,多了黑色的截屏框,怎样将黑色框体去除??
- ######################求VB的能够用的Base64的解密程序##############################################
- 请教在VB中添加、编辑、修改数据的具体做法
- [讨论]VB的10倍Bug
- TOP公司如何,请谈谈您了解的TOP
- 请教:如何得知某个table表在数据库存在?!
- 如何矫正歪斜TIF图象, 急
- 谁有Spread 6的注册码?
- ======如何判断text改变的问题=====
DataGrid1.Refresh
然后只要将记录集绑定