VB调用WIN32命令

[ningIII]

我在程序里调用一个ORACLE命令

SHERLL("IMPSTR")
'IMPSTR为IMP+参数,是一个命令字符串

结果会起一个CMD窗口,执行数据文件导如

我想问的是,我在程序里面如何获得这个进程或者窗口的信息,比如出错终止,导入完成,以及完成后返回的信息代码在那里可以获得详细信息??

比如一个ORASESSION是一个ORACLE对象,它的错误信息直接可以用ORASESSION.ERROR获得,上面所问的有这样的办法吗???

[rainstormmaster]

Oracle的OLE对象（OO4O）

Oracle的OLE对象（OO4O）是一种进程中的OLE服务器，它提供了一种对象层次结构，与DAO非常相似，但却不采用ODBC标准。它利用Oracle的调用接口来与Oracle会话。其中Oracle的调用接口是一种本地代码驱动器。令人遗憾的是它不能访问其他数据库。


OO4O拥有优异的功能性，访问Oracle数据库，其他任何数据库访问方式很难达到它的功能性。但OO4O仍有不足：
·在某些实例中，它的速度不是最快的。部分原因是因为它是一种进程中的服务程序。
·OO4O不支持异步操作或事件。
·OO4O不支持GetRows方式。OO4O主要被设计用于可更新动态集。
在OO4O中，连接是比较容易实现的，你只需简单的键入你的用户名、口令和数据库别名即可。对象模型与DAO的相似，比较明显的不同是所有的对象前面都冠有“Ora”字样。下面这些代码创建了Ora会话对象和相应的Ora数据库对象，然后又创建了Ora动态集来保存所检索的结果集。最后，关闭了Ora动态集和Ora数据库对象。
程序清单
private sub FetchOO4O()
Dim OraSession As Object
Dim OraDatabase As Object
Set OraSession(i) = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase(i) = OraSession(i).DbOpenDatabase("exampledb", "scott/tiger", 0&)

'Connect to the daabase
Set OraSession = CreatObject("OracleInProcSever.XoraSession")
Set OaDataBase = OraSession.OpenDatebase("beq-local",_
"video_user/ummagumma",ORADB_DEFAULT)

'Run then query
strSQL="SELECT * FROM video_store.movies ORDER BY movie_id"
Set rsMovies = OraDateBase.CreatDynaset(strSQL,ORADYN_READONLY)

'Display the fields
while not rsMovies.EOF
FOR ifields = 0 to rsMovies.fields.Count-1
Debug. rsMovies.(iFields)
Next 'iField
rsMovies.MoveNext
Wend

Set rsMovies = Nothing
Set OraSession= Nothing

End Sub

可以参考：
http://www.orafaq.com/faqoo4o.htm
http://www.ccw.com.cn/htm/center/prog/02_7_10_6.asp

[coolpeng]

UP

[betagain]

shell

[ningIII]

老大,我不是问OO4O的问题!

我在程序里调用IMP命令

SGELL(IMPSTR)
'IMPSTR是IMP命令字符串

然后会起一个命令窗口进行数据导入!

我想知道的是如何获得这个窗口的信息,比如错误信息,结束信息等!

[milly5286]

没办法，学习中

[liul17]

在VB中使用 Shell 不就行了吗？

[hxy1982]

up~!
没办法~！！

[planetike]

'shell并等待执行完毕
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFF ' Infinite timeout
Private Const WAIT_TIMEOUT = &H102&

Public Function ShellForWait(sAppName As String, Optional ByVal lShowWindow As VbAppWinStyle = vbMinimizedFocus, Optional ByVal lWaitTime As Long = 0) As Boolean
Dim lID As Long, lHnd As Long, lRet As Long
On Error Resume Next
lID = Shell(sAppName, lShowWindow)
If lID > 0 Then
lHnd = OpenProcess(SYNCHRONIZE, 0, lID)
If lHnd <> 0 Then
Do
lRet = WaitForSingleObject(lHnd, lWaitTime)
DoEvents
Loop While lRet = WAIT_TIMEOUT
CloseHandle lHnd
ShellForWait = True
Else
ShellForWait = False
End If
Else
ShellForWait = False
End If
End Function

Private Sub Command1_Click()
ShellForWait "cmd.exe ", , &HFFFF
MsgBox ""
End Sub

[ningIII]

使用SHELL只是起一个命令,我如何获得这个命令执行过程的信息呢??什么时候结束?

[hxy1982]

up!!