我做了一个学生管理系统,我想按学号来查询这个学生的所有信息,这个语句怎么写啊,请大侠指点了,谢谢了。写个代码最好了/
解决方案 »
- vb安装程序的问题!请大家指教!紧急!!!
- 注册表里两个键值的意思
- 在VB编程中如何调用Word
- 如何取得多边形的坐标?
- 如何添加Access 数据库的货币字段 ------- 求助!!!!
- 今年流行的一句话,知道的来说说玩啊.
- 有关ADO中Connection对象OpenSchema方法的问题
- 建立odbc数据源时,出现未与信任sql server相关联,怎么回事??望高手指教,在线等待
- 如何实现单击命令按扭实现打开一个网页!
- 分数难得啊! 我在CSDN上转悠了近两年,总算混到10000分了,庆祝一下! 附:个人主页上近日上传了几个源代码,大家可以去看看.
- 如何以administrator身份加载程序?
- 帮帮忙!谢谢
1.数据库连接
Dim ValConnect As String
With ADODB_Source
If .State = 1 Then
.Close
End If
.ConnectionTimeout = 60
.Provider = "MSDAORA.1"
.ConnectionString = "Data Source=" & strDataSource & ";Password=" & strPwd & ";User ID=" & strUID
.CursorLocation = adUseClient
.Open
End With2.查询数据
dim strSQL$
dim rsTemp as ADODB.Recordset
strSQL="select * from 学生表 where 学号='001'"
set rsTemp = ADODB_Source.execute(strSQL)
with rsTemp
.movefirst
if .Recordcount > 0 then
'这里写你的代码 .movenext
end if
end with
if .Recordcount > 0 then
.movefirst
'这里写你的代码
for i = 1 to .Recordcount
'********
'********
.movenext
next i
end if
end with