[sqlite] Insert chinese characters in SQLite database

[Kalyani Phadke]

 Table 

CREATE TABLE [Test2] 
(
    [ipaddress] INTEGER,
    [Name] text
)

The following query works fine 

Set Cmd1 = Server.CreateObject("ADODB.Command")

Cmd1 .ActiveConnection = AuditLogConnection

Cmd1 .CommandText = "INSERT INTO Test2(ipaddress, name) VALUES ('192.168.1.1' , 
'曹长庆从三个方面来分析为什么说是结构性上涨:首先,从价格指数看,今年1-11月份,在构成居民消费价格指数的八大类商品中,上涨幅度较大的主要是食品类和居住类价格。在1-11月价格总水平上升4.6%中,食品类价格上涨11.9%,影响价格总水平上升4个百分点,占涨价因素的87%。其中仅猪肉价格上涨就影响价格总水平上升1.4个百分点。居住类价格上涨4.3%,影响价格总水平上升0.6个百分点。其余六大类商品价格基本保持平稳,升降相抵,对价格总水平基本没有影响。从这个角度来看,当前的价格上涨结构性特征非常明显。')
 "

ret = Cmd1 .Execute

The following query inserts ???? into the database

Dim Cmd1 , ret,namestr,id

ip  ='192.168.1.1' 

namestr =  
'曹长庆从三个方面来分析为什么说是结构性上涨:首先,从价格指数看,今年1-11月份,在构成居民消费价格指数的八大类商品中,上涨幅度较大的主要是食品类和居住类价格。在1-11月价格总水平上升4.6%中,食品类价格上涨11.9%,影响价格总水平上升4个百分点,占涨价因素的87%。其中仅猪肉价格上涨就影响价格总水平上升1.4个百分点。居住类价格上涨4.3%,影响价格总水平上升0.6个百分点。其余六大类商品价格基本保持平稳,升降相抵,对价格总水平基本没有影响。从这个角度来看,当前的价格上涨结构性特征非常明显。'

Set Cmd1 = Server.CreateObject("ADODB.Command")

Cmd1 .ActiveConnection = AuditLogConnection

Cmd1 .CommandText = "INSERT INTO Test2(ipaddress, name) VALUES (?, ?)" 

Cmd1 .Prepared = true

Cmd1 .Parameters.Append(Cmd1 .CreateParameter("ipaddress", adLongVarChar, 
adParamInput, 50, ipaddress))

Cmd1 .Parameters.Append(Cmd1 .CreateParameter("name", adLongVarChar, 
adParamInput, 50, namestr))

ret = Cmd1 .Execute

AuditLogConnection contains connection string as 

"Provider=MSDASQL.1;Extended Properties=""DSN=Test;Database=C:\Program 
Files\Test.db;StepAPI=0;SyncPragma=NORMAL;NoTXN=;Timeout=100000;ShortNames=;LongNames=;NoCreat=;NoWCHAR=;LoadExt=;"""