requête sql sur fichiers dBase à partir d'excel

requête sql sur fichiers dBase à partir d'excel - VB/VBA/VBS - Programmation

Marsh Posté le 11-07-2006 à 11:01:15    

ma requête fonctionne lorsque j'effectue le code suivant:
 
Conn = "ODBC;"
Conn = Conn & "DSN=dBASE Files;"
Conn = Conn & "DefaultDir=Y:\PR;"
Conn = Conn & "DriverId=533;"
Conn = Conn & "MaxBufferSize=2048;"
Conn = Conn & "PageTimeout=5;"
 
With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("B6" ))
        .CommandText = Array( _
        "SELECT invitem.QUANTITY, invitem.STOCKCODE, code.DESCR, invitem.COST, invitem.NUMBER" & Chr(13) & "" & Chr(10) & "FROM `X:\03 ADMINISTRATION\Atrex\Data`\code.DBF code, `X:\03 ADMINISTRATION\Atrex\Data`\invitem.DBF invitem" & Chr(13) & "" & Chr(10) & "WHERE" _
        , " (invitem.STOCKCODE Like code.stockcode) AND (invitem.NUMBER=1912)" )
        .Name = "Lancer la requête à partir de dBASE Files"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
 
Par contre, quand j'essaye de formater un peu la requete, ça ne marche plus. Je ne comprends pas.
 
mysql = "SELECT invitem.QUANTITY, invitem.STOCKCODE, code.DESCR, invitem.COST, invitem.NUMBER FROM `X:\03 ADMINISTRATION\Atrex\Data`\code.DBF code, `X:\03 ADMINISTRATION\Atrex\Data`\invitem.DBF invitem WHERE (invitem.STOCKCODE Like code.stockcode) AND (invitem.NUMBER=1912)"
 
With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("B6" ))
        .CommandText = Array(mysql)
        .Name = "Lancer la requête à partir de dBASE Files"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Reply

Marsh Posté le 11-07-2006 à 11:01:15   

Reply

Marsh Posté le 11-07-2006 à 11:04:19    

si tu n'implémentes plus ton Conn, c'est normal que ca foire, tes ligne ODBC et co sont toujours en amont de ton code déjà

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed