Topics - shanquan2006

I study newLisp for two weeks. Now I was trying to connect mysql to get "create table sql", but it cause messy code .

the code is :

Code Select Expand
 
 (:connect db mysql-host mysql-user mysql-pwd mysql-db mysql-port) 
 (set 'r (:query db (append "show create table " mysql-table-name)))  
 (set 'mysql_sql ((((:fetch-all r) 0) 1) 1))   
 (println mysql_sql )

the result is :

Code Select Expand
CREATE TABLE `tvsn` (
                `order_id` varchar(13) NOT NULL COMMENT '??ID',
                `sn` varchar(50) NOT NULL COMMENT '??SN?'
               ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='???????SN?'

but in mysqlclient, the result is :

Code Select Expand
CREATE TABLE `tvsn` (
  `order_id` varchar(13) NOT NULL COMMENT '订单ID',
  `sn` varchar(50) NOT NULL COMMENT '电视SN码'
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='电视机SN码'

some description of mysql.lsp is:

;; @module Mysql

;; @author Jeff Ober <jeffober@gmail.com>, Kanen Flowers <kanendosei@gmail.com>

;; @version 1.05 beta

;; @location http://static.artfulcode.net/newlisp/mysql.lsp">http://static.artfulcode.net/newlisp/mysql.lsp

;; @package http://static.artfulcode.net/newlisp/mysql.qwerty">http://static.artfulcode.net/newlisp/mysql.qwerty

;; @description A new MySQL module to replace the distribution standard module (requires newlisp 10).

how to solve it ?

newLISP Fan Club

News:

Show posts

Topics - shanquan2006

Whither newLISP? / newlisp to get mysql table command lead to messy code