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;驱动协议该用什么。 ３）这段程序能实现从数据库读取变量吗？还有什么　不足之出 望高手指点指点。