说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

救命!在VB中怎样执行扩展名*.sql的文件?不用Query Analyzer可以吗?

编辑:说三道四文库 发布时间:2017-02-21 08:54
HTML文档下载 WORD文档下载 PDF文档下载
我把宝贵的20分拱手相送!谢谢!(本来想更慷慨一些,程序不让)
*.sql的文件都是文本文件
每条sql语句用go分隔
可以用读文本的方法从文件
中读取每个go之间的sql语句存放到
一个字符串数组中
然后,循环用ado或dao执行sql语句
Public Function Creat_Table(data As String, Files As String) As Boolean
'本模块用于从*.sql中导入数据库结构到SQL Server
Dim SQL, Txtline As String
On Error Resume Next
Cn.Close
On Error GoTo Err1
Dim f%
SQL = " "
Open App.Path & "\log.txt" For Output As #1    ' 打开输出文件。
     ' 将错误数据写入文件。
f = FreeFile
Open App.Path & Files For Input As #f   ' 打开SQL文件。
    Do While Not EOF(1)
        Line Input #1, Textline
        If Not (Trim(Textline) = "GO") Then
            SQL = SQL & Textline & Chr(13)
        Else
            Cn.Execute SQL 'Mid(SQL, InStr(SQL, "C"))
            SQL = " "
        End If
    Loop
Close #f
Close #1
Exit Function
Err1:
    Print #2, "This is a Error !"
    Print #2, Err.Description
    Print #2, Err.Number
    Print #2, "**********"
    Creat_Table = False
    Resume Next
End Function
谢谢二位解答。没有更好的办法吗?比如说类或者控件?

另外,这个论坛的分数是怎么控制的?是不是我可以把分数送给回答我问题的人?
我要分数做什么用呢?
我的是通用模块,已经用了许多地方了
只要拷贝一下就可以了

2:是的,可以给我拉
二位,我该怎样给你们分数?
另外,赚那么多分数做什么?
1:以前有人问过这样的问题的,查一下以前的资料既可
2:可以牌名次,显示一下自己?
现代Web应用开发者必备的六大技能 JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 谁知道哪有PB7下载? 如何在一个函数中调用另一个函数??????急!!!!!!!!!谢谢了 关于OnNcLButtonUp消息 怎样让我的编辑控件捕捉到enter键 十万火急: 如何把某个text字段的内容写到文本文件中? 求购二手资料:MCSE+MCDBA/SCJP的全套英文资料 有谁知道哪里有Marcocantu 的<>下载?英文版也行!!! 小case。 请问为什么连接的时候,出现StdAfx.sbr': No such file or directory的情况,怎样消除 请问如何获得目录下所有的文件-69!! 如何用vb写共享程序的注册密码部分? Windows 98下可否运行Tomcat? ???????????为什么没有人回答我,难道没有高人????????? 那一种网络监控软件能将两台进行信息交流的计算机的所有信息监控起来! ScrollWindow有什么用?清高手详细说明! 急!:关于ORACLE9的OEM问题,为什么在OEM中不能进入DBA STUDIO,总是提示搜索不到数据库,请问怎么搜索 八数码问题一定有解吗? 如何写库房盘点部分?(讲原理不要讲代码) 小问题,大家帮我解决一下(类型转换问题) 帮忙看一下这样的.Prj 文件是什么C语言工具生成的。早得我好苦呀 控件签名问题!! 救救我,用VB打包后安装的程序运行出错class not registered!有DBGRID控件 java有什么好? 关于Oracle触发器请教: 在弹出的子窗口关闭的同时,父窗口跳转到另一链接如何做,谢谢! TO:enmity(灵感之源) 如何去掉调用Dll在任务栏产生的图标 ORACLE 8的企业版可以糽一台PC上吗? 急救!1000块钱由1分,2分,5分,1角,2角,5角,1元,2元,5元,10元,20元,50元,100元的任意组合,可有多少种组合? 我的电脑有两个内存条(不是一种型号),今天用优化大师优化了一下,结果出现不能启动的现象,请问各位高手如何解决????? 如何在98下设置默认浏览器? to 吴文智 先生 怎样用Adaptive Server Anywhere6.0发布网络版?PB菜鸟求救.... 我的电脑有两个内存条(不是一种型号),今天用优化大师优化了一下,结果出现不能启动的现象,请问各位高手如何解决??? 菜鸟问题,CString 如何转化成整形 !!!在Delphi中不规则窗体的快速显示??? 我的电脑有两个内存条(不是一种型号),今天用优化大师优化了一下,结果出现不能启动的现象,请问各位高手如何解决? 请教大侠!!!!vb调用com组件方法时传递参数类型的问题 updatesql出错: 在java中如何生成可单独安装运行的应用程序呀?就像.exe一样! 请问有没有关于C#的源代码或资料的网站呢? 怎样定位access数据库的路径? 在32代码中调用过16DLL的高手请进! 高分请教!!!!急请大侠帮忙!!!!!!!!!!!!!!! 我的电脑有两个内存条(不是一种型号),今天用优化大师优化了一下,结果出现不能启动的现象,请问各位高手如何解决 -???? 请大家出谋:朋友要离了,怎么安慰她? pfc问题 jin_shan(DOS)请进来看看,谢谢!! 大家平时玩什么网络游戏?请留下ID和擅长的游戏(玉笛书生有偿调查) 请帮一个忙? 怎么样在程序里注册OCX控件件? 怎么写新闻作文300字 小杰妈妈买了一只2.6千克的鸡,摊主送了一个50克的鸡蛋.鸡蛋的质量是鸡的质量的几分之几? 怎样写三年级观察小狗作文300字 5.椎实螺外壳的螺旋方向,右旋对左旋是显性.杂交实验发现当右旋♀×左旋♂时,为右旋;当左旋♀×右旋♂时,时左旋;番茄的果皮颜色红色对黄色为显性,杂交实验结果是当红色♀×黄色♂ 写关于小狗的作文300—400字白色的小狗名叫果冻急. 鸡蛋的营养跟鸡蛋的大小有关吗 蜗牛为什么有左旋还有右旋?(人的脑穴哪?) 一只鸡蛋2.6千克,一个鸡蛋中52克,求这只鸡与鸡蛋的重量之比,并求出比值 小明按大鸡蛋3角6分,小鸡蛋每个2角8分卖出一批鸡蛋,共收入214元,已知大小鸡蛋的个数的比是8:5,他卖出的大小鸡蛋各有多少个? 一个蜗牛螺壳的旋向为母性影响,其中右旋基因D控制,左旋由基因d控制,一个左旋蜗牛,自交后后代全部为右旋蜗牛,其基因型是_? 写狗的作文300字(必须是情感变化顺序来写) 一个鸡蛋的体积约是多少立方厘米? 有两蓝鸡蛋,第一蓝56个,第二蓝20个.每次从第一蓝拿3个鸡蛋放入第二蓝,拿多少次,使两个蓝的鸡蛋同样多? 什么叫等级递增稀释法 香蕉水是什么东西? 写家乡的冬天的作文 湖南的 左旋右旋圆偏振光怎么判别我还需要详细的,正交后怎么判断左旋还是右旋? PH相同的醋酸和盐酸溶液,分别用蒸馏水稀释至原体积的m倍和n倍,稀释后两溶液的PH相同,则m和n的关系是什么,为什么体积相同,浓度为0.1的氢氧化钠溶液,氨水,分别加水稀释m倍和n倍,溶液 请问,卫星电视天线,左旋和右旋机是什么意思. 什么是双倍稀释法?微生物学中双倍稀释法概念及应用 一个酸性溶液,加水稀释,PH有没有可能为7 为何卫星要用左旋右旋极化波为何有些俄罗斯卫星要使用左旋右旋极化波这有何好处?为何要用? 两个互为旋光异构体的有机物怎么判断哪个是左旋哪个是右旋 向酸性重铬酸钾溶液中加入蒸馏水稀释,溶液颜色变化为 有机化学里的D和L;阿尔法和贝塔是什么意思?和左右旋有关系吗?什么样的结构就会左旋或右旋? 天道左旋 地道右旋是什么意思?期待答案,不胜感激 量鸡蛋的体积.找来一个长方体的盒子量出里面的长是15厘米,宽是8厘米往空盒子里倒入水,量的水深7cm把鸡蛋放入盒子里,鸡蛋全部没入水中,量的此时水深7.6cm.根据以上数据,你能算出这只鸡蛋 D-构型的同一个分子,可以有既右旋又左旋的么?比如:可以有D-(+)-甘油醛和D-(-)甘油醛么?我个人觉得没有。 六年级作文家乡的美食注意:我的家乡在菏泽. 一个烧杯 一个鸡蛋的体积大约是120立方厘米 如果把鸡蛋放入这个仪器 里面的液体会升多少只告诉这个烧杯上面的直径为6cm 水也不知道是多少 别的条件也没有.我天天鄙视他!) 手性结构,左旋右旋.为啥说这个化学键向外/向里呢?在化学书上看到 为啥说OH是向外的,甲基是向里的 我的家乡特点食品 作文400字写郁南啊,速度(要写特点和食品)(老师还说不能写水果的) 以10倍稀释法稀释溶液 在微生物实验中要稀释溶液,取样品一克加99ml水,取这样的溶液1ml在加入9ml水可得到10∧-3稀释液,那么要得到10∧-4,10∧-5稀释液 ,是不是就是取上一级的溶液1ml在加入9ml水 左旋右旋化学如何判断基团的大小优先顺序 关于小狗的作文300字 写小狗的作文300字 消息作文300字 狗狗作文300字 怎么把液体稀释十倍 《家乡的冬天》作文我的家乡在中国西南 在四川凉山 会东 冬天不怎么冷 以上是我家乡冬天的主要情况 谁可以帮我写一篇《家乡的冬天》的作文 字书在450~500以上就可以了 数学题(篮子里的鸡蛋)往一只空篮子里放鸡蛋,篮子里的鸡蛋数每1分钟增加一倍,放了十二分钟后,篮子刚好放满.在什么时候鸡蛋刚好放到半篮? 300字作文写小狗 作文《家乡的冬天》500字左右,我的家乡是潮州,没有雪,速度502.为什么 老妇卖鸡蛋,有趣又大方,见人卖一半,还送半个蛋,见了四个人,卖光篮中蛋,请问篮中蛋几何 作文 伴随我成长的一篇童话 (字数少点450~500字左右) 家乡的冬天作文描写冬天的景物,快@@@! 奥数题一篮鸡蛋,第一次拿出了一半多半个,第二次拿出余下的三分之一多三分之一个 关于阜宁大糕的作文(字数在500字左右) 超市卖出14箱鸡蛋,每箱5千克,一共卖了280元,每千克鸡蛋多少元? 葡萄糖溶液的旋向是左旋还是右旋?怎么判断? 固体胶水(如AB胶)用什么可以清洗干净?加急!拜托各位大神 已知超市每千克鸡蛋的售价比进价高1元,全部售完后共赚440元,请问鸡蛋多少千克?某超市用2500元购进一批鸡蛋,销售过程中损耗鸡蛋10千克。已知超市每千克鸡蛋的售价比进价高1元,全部售 稀释限点的含义? 什么材质的物料不粘AB胶拜托各位大神 某超市在"十一”黄金周期间,第一天售出鸡蛋132千克第二天售出188千克,还剩下百分之75.超市原有鸡蛋多少千克?某超市在"十一”黄金周期间,第一天售出鸡蛋132千克第二天售出188千克,还剩 我的故乡作文450字左右 AB胶可以替代灌封胶吗谢谢了,大神帮忙啊 目前市场流行右旋VC,右旋是怎么回事?右旋VC真比左旋的好吗? 我的家乡主要写景450字作文要在 5点之前给我 橡胶与橡胶连接用什么胶水大神们帮帮忙
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn