VB连接数据库
PrivateSubCommand1_Click()DimsqlAsStringsql="Smo1like'%"&Trim(Text1.Text)&"%'"Adodc1....
Private Sub Command1_Click()
Dim sql As String
sql = "Smo1 like '%" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = "select * from Patient where PatientNo" + sql
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub
求大神解答 展开
Dim sql As String
sql = "Smo1 like '%" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = "select * from Patient where PatientNo" + sql
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub
求大神解答 展开
2个回答
展开全部
三步曲:
Adodc1.ConnectionString="......"
Adodc1.RecordSource= "......"
Adodc1.Refresh
省略号要有具体内容!!!
如果要使用
Adodc1.CommandType 属性,应该放在最前面
Adodc1.ConnectionString="......"
Adodc1.RecordSource= "......"
Adodc1.Refresh
省略号要有具体内容!!!
如果要使用
Adodc1.CommandType 属性,应该放在最前面
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
