通过第三方程序打开数据库有许多种方法,主要的是可以通过ADO、ODBC、RDO、DAO、OLE DB等方式来进行连接。
在WinCC中使用ADODB来打开数据库的方法是,建立一个Global Script,用VBS建立一个全局的数据库连接。
Sub OpenDB
Set objConnection = CreateObject("ADODB.Connection")
strConnectionString="DRIVER={SQLServer}SERVER=SIEMENS2\WINCCDATABASE=User DatabasesUID=PWD="
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
End Sub
在需要访问数据库中时,可以通过建立strSQL字符串,通过SQL中常用的语句对数据库进行 *** 作。
'Ctrl+t找Microsoft DataGrid Control....'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=MyOracleDBUser Id=myUsernamePassword=myPasswordIntegrated Security=no"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。
1)建立数据工程,在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。
2)选Microsoft OLE DB Provider For Oracle,下一步。
3)根据数据链接属性对话框填写所需内容,测试连接。点确定,最终在Adodc属性页获得连接字符串,复制该字符串,即可作为Adodc数据访问控件直接使用,或在代码中用于Adodc控件或ADO数据访问对象。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)