社区
数据库(包含打印,安装,报表)
帖子详情
谁教我能用ADO连接数据库
suncom_zhu
2002-03-19 01:49:19
谁能教一个第一次用VB者用ADO连接数据库,最好列出步骤。
...全文
76
4
打赏
收藏
谁教我能用ADO连接数据库
谁能教一个第一次用VB者用ADO连接数据库,最好列出步骤。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shawls
2002-03-19
打赏
举报
回复
http://listenshaw.myetang.com/ado210.chm
你看了就直到了,m$官方资料
suncom_zhu
2002-03-19
打赏
举报
回复
多谢,立即试试。
water_j
2002-03-19
打赏
举报
回复
Public Sub main()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
‘步骤 1
conn.Open "DSN=pubs;uid=sa;pwd=;database=pubs"
‘步骤 2
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * from authors"
‘步骤 3
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
‘步骤 4
rs("au_lname").Properties("Optimize") = True
rs.Sort = "au_lname"
rs.Filter = "phone LIKE '415 5*'"
rs.MoveFirst
Do While Not rs.EOF
Debug.Print "Name: " & rs("au_fname") & " "; rs("au_lname") & _
"Phone: "; rs("phone") & vbCr
rs("phone") = "777" & Mid(rs("phone"), 5, 11)
rs.MoveNext
Loop
‘步骤 5
conn.BeginTrans
‘步骤 6 - A
On Error GoTo ConflictHandler
rs.UpdateBatch
On Error GoTo 0
conn.CommitTrans
Exit Sub
‘ 步骤 6 - B
ConflictHandler:
rs.Filter = adFilterConflictingRecords
rs.MoveFirst
Do While Not rs.EOF
Debug.Print "Conflict: Name: " & rs("au_fname"); " " & rs("au_lname")
rs.MoveNext
Loop
conn.Rollback
Resume Next
End Sub
water_j
2002-03-19
打赏
举报
回复
ADO 教程 (VB)
Public Sub main()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
‘步骤 1
conn.Open "DSN=pubs;uid=sa;pwd=;database=pubs"
‘步骤 2
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * from authors"
‘步骤 3
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
‘步骤 4
rs("au_lname").Properties("Optimize") = True
rs.Sort = "au_lname"
rs.Filter = "phone LIKE '415 5*'"
rs.MoveFirst
Do While Not rs.EOF
Debug.Print "Name: " & rs("au_fname") & " "; rs("au_lname") & _
"Phone: "; rs("phone") & vbCr
rs("phone") = "777" & Mid(rs("phone"), 5, 11)
rs.MoveNext
Loop
‘步骤 5
conn.BeginTrans
‘步骤 6 - A
On Error GoTo ConflictHandler
rs.UpdateBatch
On Error GoTo 0
conn.CommitTrans
Exit Sub
‘ 步骤 6 - B
ConflictHandler:
rs.Filter = adFilterConflictingRecords
rs.MoveFirst
Do While Not rs.EOF
Debug.Print "Conflict: Name: " & rs("au_fname"); " " & rs("au_lname")
rs.MoveNext
Loop
conn.Rollback
Resume Next
End Sub
Visual Basic 教程到此结束。
Boost ASIO for delphi
答:有专门的性能测试程序,也有远程数据库对象
ADO
版本以及UNIDAC版本的实际封装。 使用它是否需要支付费用?能否提供源代码? 答:完全免费使用,并且提供所有源码,我会做好后续更新为delphi的发展做点力所能及...
VB不完整的论文.zip
11. **数据库访问**:VB可以连接到各种数据库,如Access、SQL Server等,使用
ADO
(ActiveX Data Objects)进行数据操作。 12. **网络编程**:VB支持HTTP、FTP等协议,可以用来实现简单的网络通信功能。 13. **高级...
ADO
.NET连接池FAQ
大多数
ADO
.NET 数据提供程序使用连接池,以提高围绕 Microsoft 断开连接的 .NET 结构构建的应用程序的性能。应用程序首先打开一个连接(或从连接池获得一个连接句柄),接着运行一个或多个查询,然后处理行集,最后...
ASP.NET与数据库连接池
ASP.NET连接池救生员防止可淹没应用程序的池溢出大多数
ADO
.NET 数据提供程序使用连接池,以提高围绕 Microsoft 断开连接的 .NET 结构构建的应用程序的性能。应用程序首先打开一个连接(或从连接池获得一个连接句柄...
vs2008连不上oracle,vs2008与oracle数据库连接
所以需要解决vs2008和oracle数据库连接问题,我和同学两个人在一起研究研究怎么写,是否和sql数据库连接一样,现在让我把步骤写下来,分享给大家吧!(1)必须安装一个oracle数据库,一般有个默认的数据库orcl,你也...
数据库(包含打印,安装,报表)
1,217
社区成员
55,952
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章