diff options
| author | drh <drh@noemail.net> | 2004-08-25 04:07:01 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-08-25 04:07:01 +0000 |
| commit | 2c6674cf7edd7b8ee18c26176c24a14180401163 (patch) | |
| tree | 8225470cc8040fa17d1a9bb0e049230dc0430d9c /src/tclsqlite.c | |
| parent | 9d74b4c51674d388cfcf60f77d725c757f4a1f9b (diff) | |
| download | sqlite-2c6674cf7edd7b8ee18c26176c24a14180401163.tar.gz sqlite-2c6674cf7edd7b8ee18c26176c24a14180401163.zip | |
Host parameter names conform to SQL-2003. (CVS 1902)
FossilOrigin-Name: fd584d1ccf6643b723c2ff0a7a16c2aea3f1142c
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 8d52ac319..8388495c3 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.101 2004/08/24 15:23:34 drh Exp $ +** $Id: tclsqlite.c,v 1.102 2004/08/25 04:07:02 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -745,7 +745,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ nVar = sqlite3_bind_parameter_count(pStmt); for(i=1; i<=nVar; i++){ const char *zVar = sqlite3_bind_parameter_name(pStmt, i); - if( zVar[0]=='$' ){ + if( zVar[0]=='$' || zVar[0]==':' ){ Tcl_Obj *pVar = Tcl_GetVar2Ex(interp, &zVar[1], 0, 0); if( pVar ){ int n; |