首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB对本地数据库操作的有关问题

2012-01-16 
VB对本地数据库操作的问题我想请问下大家,有关VB6.0对本地数据库操作有哪些?最好有示例的代码[解决办法]一

VB对本地数据库操作的问题
我想请问下大家,有关VB6.0对本地数据库操作有哪些?最好有示例的代码

[解决办法]
一般是用ADO, 建议楼主参考一下ADO的手册中的例子。 另外还有ODBC/ DAO 等模式。


引用ADO
版本 2.5
目的
Microsoft ActiveX Data Objects (ADO) 使您的客户端应用程序能够通过 OLE DB 提供者访问和操作数据库服务器中的数据。它的主要优点是易于使用、速度快、内存支出低和占用磁盘空间少。ADO 支持用于建立客户端/服务器和基于 Web 的应用程序的主要功能。

RDS
ADO 的功能还包括远程数据服务 (RDS),通过该服务可以在一次往返过程中将数据从服务器移动到客户端应用程序或网页上,并在客户端对数据进行处理,然后将更新结果返回给服务器。

ADO MD
Microsoft ActiveX Data Objects (Multidimensional) (ADO MD) 提供通过多种语言(如 Microsoft Visual Basic、Microsoft Visual C++ 和 Microsoft Visual J++)访问多维数据的便捷方式。ADO MD 扩展了 Microsoft ActiveX Data Objects (ADO),使之包括专用于多维数据的对象,如 CubeDef 和 Cellset 对象。用 ADO MD 可以浏览多维模式、查询立方和检索结果。

同 ADO 一样,ADO MD 用基本的 OLE DB 提供者来访问数据。要使用 ADO MD,提供者必须是由 OLE DB for OLAP 规范定义的多维数据提供者 (MDP)。与用表格视图方式显示数据的表格数据提供者 (TDP) 相反,MDP 以多维视图方式显示数据。有关提供者支持的特定语法和行为的详细信息,请参阅 OLAP OLE DB 提供者的文档。

ADOX
Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。ADOX 包括用于安全性以及创建和修改模式的对象。因为它是基于对象的模式操作方法,所以用户可以编写在各种数据源上都能运行的代码,而不必考虑它们原生语法的差异。

ADOX 是核心 ADO 对象的扩展库。它提供的附加对象可用于创建、修改和删除模式对象,如表和过程。它还包括安全性对象,可用于维护用户和组,并授予和取消对对象的权限。

ADO 2.5 的主要组件
程序员指南

ADO、RDS、ADO MD 和 ADOX 使用简介。

程序员参考

ADO 文档的本节包含关于每个 ADO、RDS、ADO MD 和 ADOX 对象、集合、属性、动态属性、方法、事件和枚举的主题。


[解决办法]
Open 和 Close 方法范例 (VB)
本范例在已打开的 Recordset 和 Connection 对象上使用 Open 和 Close 方法。

VB code
'BeginOpenVB    'To integrate this code    'replace the data source and initial catalog values    'in the connection stringPublic Sub OpenX()    On Error GoTo ErrorHandler    Dim Cnxn As ADODB.Connection    Dim rstEmployees As ADODB.Recordset    Dim strCnxn As String    Dim strSQLEmployees As String    Dim varDate As Variant        ' Open connection    strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _        "Initial Catalog='Pubs';Integrated Security='SSPI';"    Set Cnxn = New ADODB.Connection    Cnxn.Open strCnxn        ' Open employee table    Set rstEmployees = New ADODB.Recordset    strSQLEmployees = "employee"    rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable        ' Assign the first employee record's hire date    ' to a variable, then change the hire date    varDate = rstEmployees!hire_date    Debug.Print "Original data"    Debug.Print "  Name - Hire Date"    Debug.Print "  " & rstEmployees!fname & " " & _        rstEmployees!lname & " - " & rstEmployees!hire_date    rstEmployees!hire_date = #1/1/1900#    rstEmployees.Update    Debug.Print "Changed data"    Debug.Print "  Name - Hire Date"    Debug.Print "  " & rstEmployees!fname & " " & _        rstEmployees!lname & " - " & rstEmployees!hire_date        ' Requery Recordset and reset the hire date    rstEmployees.Requery    rstEmployees!hire_date = varDate    rstEmployees.Update    Debug.Print "Data after reset"    Debug.Print "  Name - Hire Date"    Debug.Print "  " & rstEmployees!fname & " " & _       rstEmployees!lname & " - " & rstEmployees!hire_date    ' clean up    rstEmployees.Close    Cnxn.Close    Set rstEmployees = Nothing    Set Cnxn = Nothing    Exit Sub    ErrorHandler:    ' clean up    If Not rstEmployees Is Nothing Then        If rstEmployees.State = adStateOpen Then rstEmployees.Close    End If    Set rstEmployees = Nothing        If Not Cnxn Is Nothing Then        If Cnxn.State = adStateOpen Then Cnxn.Close    End If    Set Cnxn = Nothing        If Err <> 0 Then        MsgBox Err.Source & "-->" & Err.Description, , "Error"    End IfEnd Sub'EndOpenVB 


[解决办法]
http://download.csdn.net/source/1498324

热点排行