Private Sub Command1_Click()
On Error Resume Next
conn.ConnectionString = connstr
conn.Open
sql = "select * from 运送员工工作 where 姓名 ='" & Combo1.Text & "'"
Adodc1.RecordSource = sql
Adodc1.Refresh '刷新
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh '刷新会提示“FROM语法错误”
搞不懂是什么原因(from语句没错呀)
On Error Resume Next
conn.ConnectionString = connstr
conn.Open
sql = "select * from 运送员工工作 where 姓名 ='" & Combo1.Text & "'"
Adodc1.RecordSource = sql
Adodc1.Refresh '刷新
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh '刷新会提示“FROM语法错误”
搞不懂是什么原因(from语句没错呀)
解决方案 »
- 求教,如何将数据库中保存的二进制图片导出到word中
- 好久沒來了,散散分,順便出個算法題,共同學習一下~~
- 能否控制局域网中机器的开关机?
- 帮忙看看代码怎么优化?
- 急急急急急急急急急急急急急急急急Form一问,急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急
- ^_^;求助:如何让msgbox永远出现在屏幕最前端,谢谢各位!
- 求教:ACCESS数据库恢复?
- API函数RegSaveKey怎样使用?谢谢
- 如何得到当前的记录号?
- 求VB下载软甲
- ActiveReports报表里面画好表格后取得的值超出了表格的高度,然后其他列的边框却不跟随变化适应,如何解决?(高手求解!)
- VB中多线程如何实现?请教高手!!!
Adodc1.RecordSource = sql