vb用adodc 和 grid控价连接access查询语句报错Adodc1.Recordset.Open strsql
PrivateSubCommand8_Click()DimstrsqlAsStringIfText9.Text<>""ThenAdodc1.Recordset.Close...
Private Sub Command8_Click()
Dim strsql As String
If Text9.Text <> "" Then
Adodc1.Recordset.Close
MSHFlexGrid1.Clear
strsql = "select * from biao1 where 姓名='" & Trim(Text9.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Open strsql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
End Sub 展开
Dim strsql As String
If Text9.Text <> "" Then
Adodc1.Recordset.Close
MSHFlexGrid1.Clear
strsql = "select * from biao1 where 姓名='" & Trim(Text9.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Open strsql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
End Sub 展开
1个回答
展开全部
Private Sub Command8_Click()
Dim strsql As String
If Text9.Text <> "" Then
'Adodc1.Recordset.Close
MSHFlexGrid1.Clear
strsql = "select * from biao1 where 姓名='" & Trim(Text9.Text) & "'"
Adodc1.CommandType = adCmdText
'Adodc1.Recordset.Open strsql
Adodc1.RecordSource = strsql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
End Sub
网易云信
2023-12-06 广告
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询