1

サード パーティのアプリ内で実行されているこの VB スクリプトがあり、「予期されるステートメントの終わり」エラーをスローしています。問題のコードは次のとおりです。選択ステートメントは、SQL サーバー マネージャー スタジオで正常に動作します。

ありがとう。

Dim SecurityDB
Set SecurityDB = CreateObject("ADODB.Connection")
Conn = "DRIVER={SQL Server};SERVER=ustcca015s6\Continuum;DATABASE=continuumdb;UID=Andy8796;PWD=xxxx1234;"
SecurityDB.Open Conn
Set EmployeeRS = SecurityDB.Execute "Select count(*) from dbo.personnel where state=1 and lastname not like 'lapt%' and lastname is not NULL and valuelo in (Select ObjectIdLo from area where uiname like 'usmm%' and uiname not like '%gate%') and valuelo <> 1111497912;"
Result = EmployeeRS.GetRows
EmployeeRS.Close
SecurityDB.Close
4

1 に答える 1

1

@RichardTheKiwi は 2 週間前にコメント セクションに回答を投稿しましたが、残念ながら ... 回答セクションに回答として追加していません。OK、Point Pimp[ette] が今夜戻ってきたので、これらの質問は「解決」に一歩近づいたように見えます!

Execute の後にブラケットは必要ありませんか?

Set EmployeeRS = SecurityDB.Execute("Select count(*) from dbo.personnel where state=1 and lastname not like 'lapt%' and lastname is not NULL and valuelo in (Select ObjectIdLo from area where uiname like 'usmm%' and uiname not like '%gate%') and valuelo <> 1111497912;")
于 2012-12-19T07:49:09.930 に答える