tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルVB6 SQL2005
記事No12848
投稿日: 2008/07/31(Thu) 16:14
投稿者
いつも勉強させていただいてます。

VB6でSQL2005に接続しています。
JOINするコードが空白の時、EOFになってしまいます。
同じPGと同じデータで SQL2000の場合は、EOFではなく
レコードが返ってくるですが、
SQL2000とSQL2005の違いは何かあるのでしょうか?

PGは下記になります

宜しくお願いします。

DIM CN  As New ADODB.Connection
DIM strSQL AS String
DIM NOU AS New ADODB.ADODB.Recordset

    strSQL = "Driver={SQL Server};Server=" & SvPath
    strSQL = strSQL & ";Uid=" & UserID
    strSQL = strSQL & ";Pwd=" & PsWord
    strSQL = strSQL & ";Database=" & DBName & ";OLE DB Services=-4"
    CN.ConnectionString = strSQL
    CN.Open

    strSQL = "SELECT NOU.*,TOKNAME"
    strSQL = strSQL & "  FROM M_NOUNYU NOU"
    strSQL = strSQL & "  LEFT JOIN (SELECT TOKCODE,TOKNAME FROM M_TOKUI) TOK"
    strSQL = strSQL & "    ON NOU.TOKCODE = TOK.TOKCODE"
    strSQL = strSQL & " WHERE NOU.DFLG = 0 AND NOUCODE = '" & TxtNOUCode & "'"
    NOU.Open strSQL, CN, adOpenKeyset, adLockPessimistic

[ツリー表示へ]
タイトル自己解決
記事No12856
投稿日: 2008/08/04(Mon) 10:37
投稿者
ありがとうございました。

adOpenKeyset ⇒ adOpenDynamic

に変更することで解決できました。

お騒がせしてすいませんでした。

[ツリー表示へ]