能否用代码实现SQLSERVER7建表、修改表结构，怎样在程序中执行*.SQL脚本文件。望高手告之，谢谢！

[lssoft]

能否用代码实现SQLSERVER7建表、修改表结构，怎样在程序中执行*.SQL脚本文件。望高手告之，谢谢！

[lssoft]

up

[shulin520]

用create来建立表（create table),

[tchatcha]

动态SQL语句的格式1

string Mysql

Mysql = "CREATE TABLE Employee "&
+"(emp_id integer not null,"&
+"dept_id integer not null, "&
+"emp_fname char(10) not null, "&
+"emp_lname char(20) not null)"

EXECUTE IMMEDIATE :Mysql ;

[one_bird]

integer li_FileNum
string ls_sql

li_FileNum = FileOpen("C:\createtable", &
lineMode!, Write!, LockWrite!, Replace!)
fileread(li_filenum,ls_sql)
do while ls_sql <> ''
execute immediate :ls_sql;
if sqlca.sqlcode <> 0 then messagebox("提示","创建表时出现错误！")
return
fileread(li_filenum,ls_sql)

loop

commit;

[one_bird]

呵呵，少写了一句判断,再贴一遍

lsinteger li_FileNum
string ls_sql,ls_tmp

li_FileNum = FileOpen("C:\createtable", &
lineMode!, Write!, LockWrite!, Replace!)
fileread(li_filenum,ls_sql)
do while ls_sql <> ''
if right(ls_sql,1) <> ';' then
ls_tmp = ls_tmp + ls_sql
else
ls_tmp = ls_sql
end if
execute immediate :ls_tmp;
if sqlca.sqlcode <> 0 then messagebox("提示","创建表时出现错误！")
return
fileread(li_filenum,ls_sql)

loop

commit;

[lssoft]

谢谢
怎样在程序中执行*.SQL脚本文件。望高手告之，谢谢！

[cooltnt]

run(isql.exe -E -d master -i *.sql)
isql.exe 是sqlserver自带的工具，查找一下吧。

[lssoft]

cooltnt(甜甜粥) 能说详细一点吗？

还有没有办法？

顶