strSQL = "select name from accts where acct='100001'"
strConnect = "Provider=MSDAORA;" _
& "Data Source=mydatabase;" _
& "User ID=myuserid;" _
& "Password=mypassword;"
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open strConnect
results = adoConnection.execute(strSQL)
'在此取出第一列数据,应该怎样写代码?
adoConnection.Close
strConnect = "Provider=MSDAORA;" _
& "Data Source=mydatabase;" _
& "User ID=myuserid;" _
& "Password=mypassword;"
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open strConnect
results = adoConnection.execute(strSQL)
'在此取出第一列数据,应该怎样写代码?
adoConnection.Close
解决方案 »
- VB自动显示当前windows xp操作系统登录用户名
- 如何利用VB程序使EXCEL文件数据按某一列进行排序
- 谁能做一个编码软件==========================出钱
- 用GDI的API在同一地方输出文本,怎么清除其一次的输出?
- 看一下代码.挑挑错.
- 请问要实现类似“资源管理器”里的文件夹这样运行时可以移动这样的功能应该用什么控件?谢谢!
- 请问如何vb中如何建立临时表,来加入一些其他recordset处理过的数据.
- 如何调整水晶报表的页面为横向?(高分,觉得少可以再给),给建议也有分。
- 数据备份中遇到问题?????
- 帮我看看这段程序是什么意思?
- VB替换地址栏参数的问题
- 元旦放分!
……with results
.CursorType = adOpenStatic
.LockType = adLockReadOnly
set results = adoConnection.execute(strSQL)
if not results.eof then
a =.fields(0).value
endif
end with
strConnect = "Provider=MSDAORA;" _
& "Data Source=mydatabase;" _
& "User ID=myuserid;" _
& "Password=mypassword;"
Set adoConnection = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
rs.open strsql,adoConnection debug.print rs.fields(0).value
详细的你可以参考一下ADO的手册。
我调试了一下,有错误:Object doesn't support this property or methord:'rs.eof' 'rs.fields'