VB 连接 sql server 错误

carlsea 2011-04-12 09:30:39
Set Conn = New ADODB.Connection
connstr = "Driver={sql server};server=202.xxx.xxx.xxx;uid=sa;pwd=billing;database=SmartBilling"
'connsql.ConnectionString = strsql
'connsql.ConnectionTimeout = 10 '超时时间
Conn.Open connstr
'If conn.State = adStateOpen Then
Set rs2 = CreateObject("ADODB.Recordset")
sql2 = "select * from admin"
rs2.Open , sql2, Conn, 2, 3 <---这行提示错误实时错误‘-2147352571(80020005)’
If Not rs2.EOF Then
Do While Not rs2.EOF
'Text2.Text = rs2("autonum")
rs2.MoveNext
Loop
End If
...全文
229 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
king06 2011-04-12
  • 打赏
  • 举报
回复
楼主去装个ADO的帮助文档,引用了microsoft activex data objects ……就有了
[Quote=引用MSDN:]
Open 方法 (ADO Recordset)

打开游标。

语法
recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数

Source 可选,变体型,计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。

ActiveConnection 可选。变体型,计算有效 Connection 对象变量名;或字符串,包含 ConnectionString 参数。

CursorType 可选,CursorTypeEnum 值,确定提供者打开 Recordset 时应该使用的游标类型。可为下列常量之一(参阅 CursorType 属性可获得这些设置的定义)。

常量 说明
AdOpenForwardOnly (默认值)打开仅向前类型游标。
AdOpenKeyset 打开键集类型游标。
AdOpenDynamic 打开动态类型游标。
AdOpenStatic 打开静态类型游标。


LockType 可选。确定提供者打开 Recordset 时应该使用的锁定(并发)类型的 LockTypeEnum 值,可为下列常量之一(参见 LockType 属性可获得详细信息)。

常量 说明
AdLockReadOnly (默认值)只读 — 不能改变数据。
AdLockPessimistic 保守式锁定(逐个) — 提供者完成确保成功编辑记录所需的工作,通常通过在编辑时立即锁定数据源的记录。
AdLockOptimistic 开放式锁定(逐个) — 提供者使用开放式锁定,只在调用Update 方法时才锁定记录。
AdLockBatchOptimistic 开放式批更新—用于批更新模式(与立即更新模式相对)。


Options 可选,长整型值,用于指示提供者如何计算 Source 参数(如果它代表的不是 Command 对象),或从以前保存 Recordset 的文件中恢复 Recordset。可为下列常量之一(参见 CommandType 属性可获得该列表中前五个常量的详细说明)。

常量 说明
adCmdText 指示提供者应该将 Source 作为命令的文本定义来计算。
adCmdTable 指示 ADO 生成 SQL 查询以便从在 Source 中命名的表中返回所有行。
adCmdTableDirect 指示提供者更改从在 Source 中命名的表中返回所有行。
adCmdStoredProc 指示提供者应该将 Source 视为存储过程。
adCmdUnknown 指示 Source 参数中的命令类型为未知。
adCmdFile 指示应从在 Source 中命名的文件中恢复保留(保存的)Recordset。
adAsyncExecute 指示应异步执行 Source。
adAsyncFetch 指示在提取 Initial Fetch Size 属性中指定的初始数量后,应该异步提取所有剩余的行。如果所需的行尚未提取,主要的线程将被堵塞直到行重新可用。
adAsyncFetchNonBlocking 指示主要线程在提取期间从未堵塞。如果所请求的行尚未提取,当前行自动移到文件末尾。
[/Quote]
mokton 2011-04-12
  • 打赏
  • 举报
回复
rs2.Open 后面的参数设置不正确
dbcontrols 2011-04-12
  • 打赏
  • 举报
回复
rs2.Open sql2, Conn, adOpenKeyset, adLockOptimistic,adCmdText
Billy 2011-04-12
  • 打赏
  • 举报
回复
rs2.Open sql2, conn, 2, 3
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 asftrhgjhkjlkttttttt 的回复:]
rs2.Open sql2, Conn, adOpenKeyset, adLockOptimistic
[/Quote]+1
不蹭分
lxq19851204 2011-04-12
  • 打赏
  • 举报
回复
rs2.Open sql2, Conn, 2, 3
孤独剑_LPZ 2011-04-12
  • 打赏
  • 举报
回复
rs2.Open sql2, Conn, adOpenKeyset, adLockOptimistic

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧