Dim objConnection

Dim objCommand

Dim objRecordset

Dim strConnectionString

Dim strSQL

Dim lngValue

Dim lngCount

strConnectionString = "[Provider=OraOLEDB.Oracle.1;] DRIVER=Microsoft ODBC for Oracle; SERVER=192.168.2.8; DATABASE=OracleDbzs; UID=dbzs; PWD=dbzs"


strSQL = "select Brand_name from tech_Brand where Brand_id= 20"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objRecordset = CreateObject("ADODB.Recordset")

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strSQL

Set objRecordset = objCommand.Execute



objRecordset.movefirst

lngValue = objRecordset.Fields(0).Value

HMIRuntime.Tags("oracle").Write lngValue



Set objCommand = Nothing

objConnection.Close

Set objRecordset = Nothing

Set objConnection = Nothing

End Sub

我想通过ＯＲＡＣＬＥ客户端访问服务器，通讯协议用ＯＬＥＤＢ。ＷＩＮＣＣ版本为６。０
我有几个问题不清楚
１）Provider=OraOLEDB.Oracle.1;　
OraOLEDB.Oracle.1;　　是从ＯＲＡＣＬＥ帮助里找来的，不知道能不能用在ＷＩＮＣＣ上面。
２）DRIVER=Microsoft ODBC for Oracle;驱动协议该用什么。
３）这段程序能实现从数据库读取变量吗？还有什么　不足之出
望高手指点指点。