fieldset{padding:10px;}
VBA操作数据库问题在vba中将sql文件中的sql语句执行一遍现有方法：dimcnnasnewADODB.ConnectiondimcmdasnewADODB.Commandsql=”createtablea(inta);”cmd.CommandText=sqlcmd.ActiveConnection=’数据库连接匹配串‘cmd.excute上方法只能执行一条语句，要想全部执行还要解析sql文件将单条语句拿出来再执行，比较麻烦。有没有直接执行sql文件的方法，或一次执行多条sql语句的方法，求高手们支招
vba 数据库 sql excel ——解决方案——————————————————–将SQL文件都读到sql变量中，每条SQL语句后加一个回车，再一起执行。——解决方案——————————————————–subexesql(sqlasstring)dimcnnasnewADODB.ConnectiondimcmdasnewADODB.Commandcmd.CommandText=sqlcmd.ActiveConnection=’数据库连接匹配串‘cmd.excutecmd.closecnn.closeendsub调用dimsqlasstringsql=”createtablea(inta);insertintoa…;updatexxx….”dimarr()asstringarr=split(sql,”;”)fori=0toubound(arr)callexesqlarr(i)next——解决方案——————————————————–dimsql()asstringdimDataasstring…..’将全部sql数据读入到data中sql=split(Data,vbcrlf)setcnn=…..’请自己确保是一个已经打开的连接fori=0toublund(sql)iftrim(sql(i))<>””thencnn.execute(sql(i))endifnext所有的胜利，与征服自己的胜利比起来，都是微不足道