Win x64에서 MS SQL을 통해 tdbc를 사용하여 Tcl 사용

Question

우리는 몇 년 동안 MS SQL Server에 대한 쿼리를 실행하기 위해 tclodbc 패키지를 사용 해왔다. 이제 x64 프로세스로 전환해야하며 x64 버전이 없으므로 tclodbc가로드되지 않습니다.

우리는 대안을 찾기 시작했고 tdbc를 시도했지만 매개 변수로 전달 된 문자 필드에 문제가 있습니다. 나는 2 개의 정수 컬럼과 2 개의 varchar 컬럼 (50과 100 long)으로 테스트 테이블을 만들었다.

레코드를 삽입하려고하는데 다음이 발생합니다. 1. 2 개의 정수 매개 변수를 제공하는 레코드를 삽입하면 모든 것이 잘 작동합니다. 5 개의 레코드가 삽입됩니다 (아래 코드 참조). 2. 1 문자 만 제공하는 레코드를 삽입하면 매개 변수 1 레코드가 삽입 된 다음 "[Microsoft] [SQL Server 용 ODBC 드라이버 11] 문자열 데이터, 오른쪽 잘림" 오류로 인해 스크립트가 실패합니다. 3. 통과하면 두 개의 문자 매개 변수 또는 정수 매개 변수와 문자 매개 변수가 있으면 아무 것도 삽입되지 않습니다. 위와 같은 오류가 발생합니다.

다른 데이터 형식은 테스트하지 않았지만 문자 매개 변수에 문제가있는 것 같습니다 (nvarchar 및 char 형식 열도 시도했습니다). - 모두 같은 결과

package require tdbc::odbc 
set con "Driver=\{ODBC Driver 11 for SQL Server\};server=server;database=database;Intergrated Security=True;Trusted_Connection=Yes" 
tdbc::odbc::connection create db $con 

set insert_cmd [db prepare {INSERT INTO dbo.testing_tdbc (f50,f100) VALUES(:f50,:f100) } ] 
$insert_cmd paramtype f50 char 50 
$insert_cmd paramtype f100 char 100 

foreach fint [list 1 2 3 4 5] { 
    set fi1 $fint 
    set fi2 [expr {$fi1*2}] 
    set f50 "${fi2}_${fi1}" 
    set f100 $f50 

    $insert_cmd execute 
} 

$insert_cmd close 
db close 

내가 SQL Server에 대한 ODBC 드라이버 (13)와 같은 시도 :

여기 내 코드입니다.

Answer 1

[Microsoft][ODBC Driver 11 for SQL Server]String data, right truncation

아마 알다시피,이 오류는 선언 된 열 정밀도보다 긴 문자열을 삽입하면 발생합니다.

tdbc :: 문 매뉴얼에 따르면 $stmt paramtype에 대한 구문은 다음과 같습니다 in, inout, out :

$stmt paramtype ?direction? type ?precision? ?scale? 

그래서 난 당신이 중 하나 여야합니다 여기 direction (로 f50을 전달하여 무슨 뜻인지 정말 모르겠습니다.

set insert_cmd [db prepare {INSERT INTO dbo.testing_tdbc (f50,f100) VALUES(:f50,:f100) } ] 

foreach fint {1 2 3 4 5} { 
    set value [expr {$fint*2}]_$fint 
    set bindings [dict create f50 $value f100 $value] 
    $insert_cmd execute $bindings 
} 

$insert_cmd close 
db close 

: 나는 그냥 $stmt paramtype 전화를 생략하고 예를 $stmt execute ?dict?에 사용 $insert_cmd을 실행에 직접 진행할 수 있다고 생각