shell的问题

王同　发表于：2009-02-06 17:09:44 　

复制

shell "sqlplus uid/pswd@tnsname my.sql"

能否将where参数传递至my.sql里？

Top

ACMAIN.CHM 发表于：2009-02-06 21:03:17

当然可以。你可以通过程序改这个my.sql，这是个文本文件。

有得这样，你还不如直接操作oracle,对初学者简单点的做法是建个ODBC的链接表。通用一点的做法直接用ADO。

Top

王同发表于：2009-02-07 16:13:20

"你可以通过程序改这个my.sql"，提供个思路，如何能做到？

比如my.sql里是这个sql代码：

select * from abc where a='123';

我想把123通过变量来取代（例如通过组合框的控件）。

然后运行shell。

我的目的就是让用户直接通过窗口输入，输入结果传递到后台的脚本，用户看不到sql脚本，只需等着结果就行了。

Top

ACMAIN.CHM 发表于：2009-02-07 18:15:34

VBA中操作文本文件。但如果你只想执行一段SQL，不让用户看到，建议你直接用ADO的connection.execute sql

Open 语句

能够对文件输入/输出 (I/O)。
语法
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

Print # 语句

将格式化显示的数据写入顺序文件中。
语法
Print #filenumber, [outputlist]

Close 语句

关闭 Open 语句所打开的输入/输出 (I/O) 文件。

Print # 语句示例
本示例使用 Print # 语句将数据写入一个文件。
Open "TESTFILE" For Output As #1    ' 打开输出文件。
Print #1, "This is a test"    ' 将文本数据写入文件。
Print #1,    ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2"    ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World"    ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces "    ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello"    ' 将数据写在第十列。
' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1    ' 关闭文件。