VB Adodc1 数据库查询
使用的是Adodc1控件,一个text1控件,使用的数据库是sql2000查询student中sname="彼得"的sno,将sno赋给text1...
使用的是Adodc1 控件,一个text1控件,使用的数据库是sql 2000
查询student 中 sname="彼得"的 sno ,将sno赋给text1 展开
查询student 中 sname="彼得"的 sno ,将sno赋给text1 展开
展开全部
With Adodc1
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATABASENAME;Data Source=(local)"
.CommandType = 8
.RecordSource = "select * from student where sname='彼得'"
.Refresh
If .Recordset.RecordCount > 0 Then
Text1.Text = .Recordset.Fields("sno")
End If
End With
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATABASENAME;Data Source=(local)"
.CommandType = 8
.RecordSource = "select * from student where sname='彼得'"
.Refresh
If .Recordset.RecordCount > 0 Then
Text1.Text = .Recordset.Fields("sno")
End If
End With
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
