谁教我能用ADO连接数据库

suncom_zhu 2002-03-19 01:49:19

谁能教一个第一次用VB者用ADO连接数据库，最好列出步骤。

...全文

106 4 打赏收藏转发到动态举报

写回复

用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 教程到此结束。

ADO连接数据库有三种方法：System DSN, DSN-less和OLE DB。DSN-less和System DSN通过ODBC连接，性能差异不大，而OLE DB更高效。测试表明，OLE DB连接在并发请求增多时速度提升明显。对于Access数据库，非DSN连接（直接使用JET Drivers）能显著提升性能，特别是在高并发场景下。建议使用OLE DB连接SQL Server，对于Access数据库，推荐使用非DSN连接以优化性能。 81673905,7862869,自定义JSP标签开发详解,['JSP开发', '自定义标签', '标签库开发', 'Java Web', 'Web开发']

本文介绍了ADO、DAO、ODBC和OLE DB的区别。ADO是基于OLE DB技术，提供访问多种数据类型的接口，而DAO是早期的面向对象数据访问接口，主要用于Microsoft Jet数据库引擎。ODBC是数据库驱动接口，OLE DB则提供了更灵活的数据存取方式，尤其适合非SQL数据存储。ADO在功能上扩展了DAO，现已成为主流的数据库编程选择。

本文介绍了如何使用VC通过ODBC和ADO连接Oracle数据库。内容包括设置ODBC驱动，配置Oracle侦听，安装Oracle OLE DB驱动，以及在VC中引入ADO库和初始化COM的步骤。

本文介绍了C#编程中使用Ado.Net连接数据库的基础知识，包括Ado.Net的组成、DataSet、SqlDataProvider、SqlConnection对象及其使用，重点讲解了连接字符串的配置、SqlCommand对象的创建与执行、SqlParameter的使用，以及SqlDataReader和DataAdapter的作用。此外，还提到了连接池的概念和重要性。

这篇博客介绍了使用VB的ADO连接SQL数据库的两种方式：通过DSN（包括SYSTEM DSN和File DSN）以及不使用DSN的方式。详细展示了连接字符串的构造，包括本地和远程数据库的连接示例。还提到了使用OLE DB Provider for SQL Server的连接方法，并指出无源连接的优越性。