(SQL Server) OpenAI (ChatGTP) List Models

See more OpenAI ChatGPT Examples

Show how to list available OpenAI models and shows how to parse the JSON model information.

For more information, see https://platform.openai.com/docs/api-reference/models/list

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

// Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
//
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    -- Implements the following CURL command:

    -- curl https://api.openai.com/v1/models \
    --   -H "Authorization: Bearer $OPENAI_API_KEY"

    -- Use the following online tool to generate HTTP code from a CURL command
    -- Convert a cURL Command to HTTP Source Code

    -- Adds the "Authorization: Bearer $OPENAI_API_KEY" header.
    -- This is NOT a real key.  Change the "sk-vi...." to your own key.
    EXEC sp_OASetProperty @http, 'AuthToken', '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'

    DECLARE @sbResponseBody int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbResponseBody OUT

    EXEC sp_OAMethod @http, 'QuickGetSb', @success OUT, 'https://api.openai.com/v1/models', @sbResponseBody
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sbResponseBody
        RETURN
      END

    DECLARE @jResp int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @jResp OUT

    EXEC sp_OAMethod @jResp, 'LoadSb', @success OUT, @sbResponseBody
    EXEC sp_OASetProperty @jResp, 'EmitCompact', 0


    PRINT 'Response Body:'
    EXEC sp_OAMethod @jResp, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    DECLARE @respStatusCode int
    EXEC sp_OAGetProperty @http, 'LastStatus', @respStatusCode OUT

    PRINT 'Response Status Code = ' + @respStatusCode
    IF @respStatusCode >= 400
      BEGIN

        PRINT 'Response Header:'
        EXEC sp_OAGetProperty @http, 'LastHeader', @sTmp0 OUT
        PRINT @sTmp0

        PRINT 'Failed.'
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sbResponseBody
        EXEC @hr = sp_OADestroy @jResp
        RETURN
      END

    -- Sample JSON response:
    -- (Sample code for parsing the JSON response is shown below)

    -- {
    --   "object": "list",
    --   "data": [
    --     {
    --       "id": "babbage",
    --       "object": "model",
    --       "created": 1649358449,
    --       "owned_by": "openai",
    --       "permission": [
    --         {
    --           "id": "modelperm-49FUp5v084tBB49tC4z8LPH5",
    --           "object": "model_permission",
    --           "created": 1669085501,
    --           "allow_create_engine": false,
    --           "allow_sampling": true,
    --           "allow_logprobs": true,
    --           "allow_search_indices": false,
    --           "allow_view": true,
    --           "allow_fine_tuning": false,
    --           "organization": "*",
    --           "group": null,
    --           "is_blocking": false
    --         }
    --       ],
    --       "root": "babbage",
    --       "parent": null
    --     },
    --     {
    --       "id": "davinci",
    --       "object": "model",
    --       "created": 1649359874,
    --       "owned_by": "openai",
    --       "permission": [
    --         {
    --           "id": "modelperm-U6ZwlyAd0LyMk4rcMdz33Yc3",
    --           "object": "model_permission",
    --           "created": 1669066355,
    --           "allow_create_engine": false,
    --           "allow_sampling": true,
    --           "allow_logprobs": true,
    --           "allow_search_indices": false,
    --           "allow_view": true,
    --           "allow_fine_tuning": false,
    --           "organization": "*",
    --           "group": null,
    --           "is_blocking": false
    --         }
    --       ],
    --       "root": "davinci",
    --       "parent": null
    --     },
    -- ...
    -- ...

    -- Sample code for parsing the JSON response...
    -- Use the following online tool to generate parsing code from sample JSON:
    -- Generate Parsing Code from JSON

    DECLARE @id nvarchar(4000)

    DECLARE @created int

    DECLARE @owned_by nvarchar(4000)

    DECLARE @root nvarchar(4000)

    DECLARE @parent nvarchar(4000)

    DECLARE @j int

    DECLARE @count_j int

    DECLARE @allow_create_engine int

    DECLARE @allow_sampling int

    DECLARE @allow_logprobs int

    DECLARE @allow_search_indices int

    DECLARE @allow_view int

    DECLARE @allow_fine_tuning int

    DECLARE @organization nvarchar(4000)

    DECLARE @group nvarchar(4000)

    DECLARE @is_blocking int

    DECLARE @v_object nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'object'
    DECLARE @i int
    SELECT @i = 0
    DECLARE @count_i int
    EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_i OUT, 'data'
    WHILE @i < @count_i
      BEGIN
        EXEC sp_OASetProperty @jResp, 'I', @i
        EXEC sp_OAMethod @jResp, 'StringOf', @id OUT, 'data[i].id'
        EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'data[i].object'
        EXEC sp_OAMethod @jResp, 'IntOf', @created OUT, 'data[i].created'
        EXEC sp_OAMethod @jResp, 'StringOf', @owned_by OUT, 'data[i].owned_by'
        EXEC sp_OAMethod @jResp, 'StringOf', @root OUT, 'data[i].root'
        EXEC sp_OAMethod @jResp, 'StringOf', @parent OUT, 'data[i].parent'
        SELECT @j = 0
        EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_j OUT, 'data[i].permission'
        WHILE @j < @count_j
          BEGIN
            EXEC sp_OASetProperty @jResp, 'J', @j
            EXEC sp_OAMethod @jResp, 'StringOf', @id OUT, 'data[i].permission[j].id'
            EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'data[i].permission[j].object'
            EXEC sp_OAMethod @jResp, 'IntOf', @created OUT, 'data[i].permission[j].created'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_create_engine OUT, 'data[i].permission[j].allow_create_engine'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_sampling OUT, 'data[i].permission[j].allow_sampling'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_logprobs OUT, 'data[i].permission[j].allow_logprobs'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_search_indices OUT, 'data[i].permission[j].allow_search_indices'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_view OUT, 'data[i].permission[j].allow_view'
            EXEC sp_OAMethod @jResp, 'BoolOf', @allow_fine_tuning OUT, 'data[i].permission[j].allow_fine_tuning'
            EXEC sp_OAMethod @jResp, 'StringOf', @organization OUT, 'data[i].permission[j].organization'
            EXEC sp_OAMethod @jResp, 'StringOf', @group OUT, 'data[i].permission[j].group'
            EXEC sp_OAMethod @jResp, 'BoolOf', @is_blocking OUT, 'data[i].permission[j].is_blocking'
            SELECT @j = @j + 1
          END
        SELECT @i = @i + 1
      END

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @sbResponseBody
    EXEC @hr = sp_OADestroy @jResp


END
GO