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

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

编辑:说三道四文库 发布时间:2017-09-24 04:18
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:可以牌名次,显示一下自己?
登陆CES:三星发布智能家庭平台Smart Home CES 2014:GPS供应商Garmin推健康腕带Vivofit 《近匠》第05期:移动开发工具访谈,个推——有节操的push 【Hadoop技术博客推荐】Hive的那些事 Twitter联合创始人推社交搜索应用Jelly 马云“食言”进军手游分成比例8:2,开发者可拿7成 CodeCombat游戏全面开源:玩游戏也能学编程 Netflix首席云架构师Adrian Cockcroft加盟Battery Ventures Android 4.3附体:RIBX发布FB/Ti 互联网手表 IE11界面布局的秘密武器:Quero Toolbar 【开源专访】Node-Webkit作者王文睿:桌面应用的全新开发方式 CentOS归属红帽:企业级Linux领域社区与商业的融合 印度初创公司Little Eye Labs证实已被Facebook收购 雅虎收购Aviate:重在提升用户体验 SDN领域硝烟再起,Oracle将Corente收入囊中 Hadoop科普文——常见的45个问题解答 CES 2014:奥迪下一代汽车将采用NVIDIA的芯片! Cocos 3.0 Beta发布:更易用、更友好 开拓新兴市场?诺基亚或推Android手机,UI界面遭泄露 预测2014大数据值得关注的8个发展方向 霸主地位再临挑战?Salesforce CEO,我们不只有Oracle LBS应用新星、“司机好助手”微车借力移动互联网,志在打造车主的个人移动门户 新一代IDE Light Table开源:让编程工作更简单 图片应用也能高大上,看Cooliris如何玩转无人机 拥抱Spark,机遇无限——Spark Summit 2013精彩回顾 1月10日:改变世界的iPhone七岁了,你是传奇! 同洲电子推出首款手机操作系统960OS 免费授权使用 如何在Windows 8.1的IE11中打开同步选项卡? 25年老对手评价微软:换CEO可行,但是太迟了 【PPT集萃】十位一线专家分享Spark现状与未来(三) 万元奖品等你拿!2014创客118新年大Party! 为什么 “基本图象处理代码(1) ehom(原作)”对grayscale不对? linux下的oicq 有马? 帮帮我,好吗,感谢,非常 help,help,sql query question? 大家认为考研考进其他学校(且跨专业)的可能性有多大 显示图片 数据库搜索的一个怪问题 共享上网问题!急~!!!! 句柄和指针有什么区别吗? 大虾快进来,帮帮兄弟们!!!再现等待!高分!! 请问C++Builder的程序中能不能使用*.mdb类型的数据库? 帮帮忙!!个位大哥 请问用java编程能实现数据采集的程序并进行传输(即c/s模式)吗? 请问什么命令找开一个窗体的? 请问:如何从文件中获取icon并得到HBITMAP句柄? 如何在客户端打开一个word文件 MVP是个什么概念???? linux启动不了,Bringup loopback interface时出错,请问是什么原因? 帮帮忙!! 我海军一艘潜艇失事 70名官兵不幸全部遇难!! 明天朋友结婚,征集整人的法子 是谁删除了我贴?? 而且没有跟我说一声!!! 白天工作,晚上溜狗,爽呀!比大暑天喝了冰镇雪碧还爽! 我的jsp服务器是iis+TOMCAT+win2000pro 不知怎的每次用不了多久就显示出 网页无法显示 目前访问该 Web 站点的用户过多,我只是自已用怎么 终于有星了,高兴,散分(第一次散分,请斑竹手下留情) 我的刚装的2000进入启动界面时,进度条读到2/3时就蓝屏了! 请问在运行时向ActiveX控件中添加ActiveX控件的方法是什么? 高手请进:如何在WinNT以上系统进行BIOS读取! 毕业设计的问题,请各位大哥帮小弟一个忙 备份与恢复 数据备份与恢复 我用win2k,下载了php4.3.1,extension_dir是c:\php\ext 可是里面没有php_gd.dll,怎么办,到哪里可以down一个补上? 帮我一下:解决中文问题 新手问题:怎么在用ATL COM WIZARD已生成的dll加入MFC 请问如何删除系统? warton给大家散分来了! 求助,请问哪儿提供的域名空间最好? 新手上路,VB中用ODBC连接ACCESS 关于ORACLE中(多)表的备份和恢复问题 MM``狂给分^*^ 找人一同研究JUnit对于数据库的测试架构 怎样在程序中动态生成数据库(内存库)?求救高手 请问,怎样用本机作web服务器? 这样的夜晚 想起一些故人.... 各位的jbuilder是用什么命令运行的 刚学者求问 python+CGI 如何获得客户端IP Win2000上, 对话框没能弹出到桌面顶层 在静态上下文中不能引用非静态变量? 有没有高手可以举例讲解一下self的各种用法? 一个很困惑的问题:文字处理软件中,字体大小改变时,字符的高度,宽度怎么变化? 移动硬盘在重装系统时忘记拔下来。结果给误删了,求助!没有格式化的! Write at least 150 words(英语写作的要求)题目:Write a description for your teacher of a beautiful place where you would love to be.Try to make your teacher feel what it is like to be.in that place.求各位擅长英语的大侠帮帮我,15 凡卡 以凡卡甜蜜的梦结束的妙处是什么 求一UFO电影,内容是这样的,前面忘了,女的是外星人,最后男的在田里造了一个麦田圈,然后飞碟就来了,把女的接走了.字打打完了,补充也是内容. 鸡为什么有吃石头的现象 核舟记作者细致写人的外貌和动作有什么作用 如图,木椅木床等木家具上的联接木条的金属片叫做什么? 写出“春”开头的10个成语 Are ______in the same class?A.you,he and I B.you,I and he哪位高手朋友能告诉我要选择A还是B,为什么 160万用英语怎么说1600000 用英语该怎么说呢? 采光顶玻璃弯曲强度与建筑幕墙玻璃有何不同 You and I are in the same school .are为什么不能用both 随便吃些什么  用英语怎么说? The book is helpful for my ______(write) English . 娱乐这个词语的意思是什么? very后面可不可以加ly(形容词)? It‘s helpful to ___the words of English if you want to improve your English是m打头的 娱乐这个词什么意思? cad,已知四边形四条边长度和面积,怎么画出四边形 My mother is f ,but she looks young 在F后填词 娱乐这个词的意思是什么 四边形四条边长度一样 面积一样吗?四边形是不规则的或者平形的.四条边长度确定,面积确定吗?四条边的长度确认,就是四条边的长度是确定的,角度变化.例如四边形四条边150,86,87,153这个四边 p58/22.Tim's mother looks ( )than she is .(the more older/very older/much older/more older)这题应该选择什么,另外再说说其它3个不能选的理由. I do not like these jeans.Could you show me another one?错在哪里 已知四条边能不能算四边形面积 重5牛的小球对竖直悬绳的拉力是不是5牛 写出一开头的成语多一点. I do not like these trousers. Can you show me( )A、one anotherB、another oneC、any other oneD、any others请各位把原因也写上,谢谢 Let's get it start,What's up 的伴奏 The pencil boxes are hers?对 hers提问 very一词的用法 为什么直接在名词前我看到一个句子 the very house 这个very在译文中没翻译出来,在这有什么作用 介词Since单词的用法. 写出3个以一开头的成语例:一言既出,驷马难追【 】,【 】【 】,【 】【 】,【 】xxxxxxxxxx你们了 求有关古诗词的题目 用一大批形状一样的四边形木板,可以拼成大面积的地板,这利用了四边形的什么性质不是平行四边形 归园田居其一表明了作者怎样的生活态度 I'm busy these days.I have____to do .A.so many B.too many C.too much D.very much For dinner,my aunt like fruit salad.哪里错了 The roosters are beautiful.对beautiful提问 一道简单英语题求可填的词和分析句子结构(第3题,第4题) l'd like to go to the cinema tonight改为一般疑问句 物体A以某一初速度冲上倾角为30度的斜面,经2s沿斜面上升12m而速度变为零,求从最高点返回原处所用时间 I'd give you most of it because you have been so good to me all these We like have salad after dinner.改错 物体以某一速度从A点冲上倾角为30°的固定斜面,其运动的加速度为 ,此物体在斜面上上升的最大高度为h质量为m的物体(可视为质点)以某一速度从A点冲上倾角为30°的固定斜面,其运动的加速 1.翻译:你的朋友比你要外向的多吗?Is your friend ___ ___ ___than you2.我的父母更严肃 my parents are ___ ___ 用正三角形、正四边形、正十二边形三种图形能否组合在一起铺满地板?试说明理由.一点, 汪静之《时间是一把剪刀》中,诗人对“时间”形象的比喻,可以看作是诗人对什么的形象描绘?是他什么心情的间接表现? 妈妈买了二分之一千克苹果,也就是买了50%千克苹果. 巨石阵真的是外星人建的吗?感觉不是很精细,但是确实很庞大 .图中竖直平面xOy内存在有竖直向下的电场,带电小球以初速度v0从O点沿x轴水平射入,恰好通过平面中的A点,OA连线与Ox夹角为300,已知小球质量为m,则带电小球通过A点时的动能为 Bon Jovi的Have a nice day.MP3格式,放空间里用的. 有谁知道关于外星人存在的证据比如说!巨石阵金字塔复活节岛等一系列建筑是当今无法复制的作品的证据 1.His mother look young.(改错) 有个节目叫:比手划脚,就是:一个人在做动作,然后让别人来猜出这是那个成语或是词语.寻找可以用来做节目的词语 写一开头的成语指导理解的不够全面透切 Peter doesn't look ___ his mother at all.填介词 这个诗词该定个什么题目,千里名炀 万里齐聚 望店奇观上有客房 下设美食 中夹美容另俱桑拿 层次分明 装饰豪华可与碧海为一拼 须常来 缓精神之压 品美食之肴 此地如此之雅引无数高朋竟 采光顶玻璃的弯曲强度与建筑幕墙玻璃有何不同 核舟记是谁写的 I have a tomato怎么变单数 美巴领导人会晤重在“释暖”消息称韩已确定F-35A为下一代战机挪威销毁叙化武受美国热捧 坦言国内压日本6名女性涉嫌在网络上上传猥亵视频白宫助理在社交网站上匿名批评奥巴马被悉尼科技大学危险化学物泄露 5000印尼日惹苏丹嫁女办3天豪华婚礼邀总统挪威销毁叙化武受美国热捧 坦言国内压日本进入胖女时代 专家称或因对瘦人审英国一大学网上“卖”学位 小狗付钱也日本最古老农村歌舞伎舞台将公演 祈祷德两大政党举行组阁谈判 默克尔称社民俄外交部:叙之友文件旨在煽动破坏叙问欧洲央行开始对欧元区124家银行进行澳洲国防部被指是林火“罪魁” 灾区官山东聊城:官员婚丧嫁娶必须报告 婚宴调查称8成法国选民认为2017年大选日本明治奶粉决定停止在华销售 称市场各国奇思妙想重拳出击治雾霾 日本楼顶记李克强“东南亚之行”:中国加强与东中国全民教育进展赢得国际认可高铁开通后几大热门目的地出行攻略 新黔东南州农合补偿一个标准昆明红嘴鸥明年3月前装上GPS 有望【新年策划】2014年将发生什么?美国称利比亚政府扣留4名美军士兵 已篮网不要林书豪很不明智 联盟九大控卫昆明一8岁男孩重度烧伤毁容 5个手指西班牙足坛愚人节笑话:小法戏称夏奇拉日媒:安倍参拜靖国神社与不战誓言背道公正司法“合拍”经济发展“边防工作离不开群众支持”镇江边检扎实推进法援工作严肃党纪国法坚决铲除腐败乌市有了陪审员专设办公室市县“司法局长”参考基层司法所参赛一句话新闻顺城警方劝抓六名在逃人员公正司法“合拍”经济发展安倍必须承认错误纠正错误采取实际行动矛盾纠纷调解成功率达九成七做好基层群众“法治到位”工作
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘