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

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

编辑:说三道四文库 发布时间:2017-01-24 01:17
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! Delphi确实很好,学了好几年了,但在上海差点没有找到工作,很少有招学Delphi的 关于 VC 6.0 有没有什么补丁,升级文件之类的东西? 高分争解 怎么利用Jsp发邮件? 有谁知道光驱加锁的问题 parodox数据库问题 各位平时用 VC 作东西,都用那些辅助工具?  高分争解 【 http://www.esoftware.com.cn/search.php?condition=%BA%AB%C1%F7%C0%B4%CF%AE&page=1&mode=3 】 JBuilder的使用问题 在VFP中,编程执行SQL语句时,怎样使系统的查询结果不出现? 一个程序流程的问题 为什么当我的SpeedButton的enabled为false时,上面的图标就没有了? 囡囡(baicolt)请进,问你一点事情 简单问题,请赐教 高分相赠!!!:操作系统和SQL SEVER2000都是英文版,用VB连接如何可以正确的输入和显示中文? 则么在程序中得到sql的存储过程的返回值? 请问 VB 6.0 有没有最新的升级文件之类的东西?高分争解 谢谢 谁有用java做的复杂一点的图行界面的例子 网管来看看,为什么不能给分了!右边的文本框又不见了! 各位用 VB 编程都用那些辅助工具? 高分争解 关于ShellExecute 装了redhat7,在/etc里没有inetd.conf文件,谁见过这咋整 菜鸟请教大侠!很急!谢谢!!只有10分对不起! 请问一个关于CLASSWIZARD 的问题 这里有PB反编译程序,你信吗? 怎样解 关于大数据量的问题,经验丰富者里面谈! 我想在程序里控制程序外的浏览器窗口资源管理器窗口,怎么做呢?急呀!!!!!! 请问:我用JavaMail收下的邮件主题,发信人姓名不能正常显示。。。。。 认识我的人都进来跟我聊聊吧,我最近新换了工作,还没有适应,你们各位是怎么换工作? 请问如何在Delphi中表示二进制,或者十六进制数呢? 各位35以后干什么?我们能干什么? ????? 如何将eltree中的数据和某数据表关联 有没有比RECORDCOUNT快的方法实现同样的功能? 鉴于目前有些东西说话不知轻重,把这个旧闻再贴一遍,不要以为真的在网上 “没人知道你是一只狗” Java 工具 怎样解决vb中编译成exe文件中出现的问题? 你别说国企,只要是沾的国企的气味就他妈的黑! api函数我不懂。 我要开发一个网络监听的程序,捕获所有以太网中所有的帧,象NT和Win2000中的网络监视器一样 找了半天,看不到一个熟人,认识的过来报到 请问哪里有下载jdk啊? 问题征集算法 偶烦!偶郁闷!咿呀~~~~~~~~老哥进来安慰偶。。。。快!快!快!!! 在ListView中,如何象Windows资源管理器那样将剪贴了的文件图标变虚? 清华大学的学生素质真差 打开数据库为什么出错? WinCE的串口通讯读和写之间有相互制约的问题吗? 强烈抗议IBM蓝色“快”车服务的速度和质量!!各位同志请帮我广帖出去! outlook 求助 jsp的小问题 关于cjlib中显示中文的问题 制取乙酸乙酯的化学反应方程式? 化学方程式化合价配平 氢化钙 钙鉴别能用与水反应生成的氢气的量吗物质的量相同 工业制取漂白粉的化学方程式? 化学方程式配平利用化合价升降的方法 为什么登山制取氢气用氢化钙而不电解水?制取同等质量的氢气需要的水的质量要比氢化钙要少,负担更少,而且电解水还能产生氧气,为社么登山制取氢气用氧化钙而不电解水? 制取四氧化三铁的化学反应方程式 如何用化合价升降配平化学方程式 化学题设计个过氧化钠的小实验过氧化钠保存不当容易变质1,某过氧化钠样品已经部分变质,请设计实验,限用一种溶液,证明过氧化钠已经变质2,检验样品中还有过氧化钠的方法是都回答得很好 工业制取Cu2O的方法以及相关化学反应方程式 在一个化学反应式中同一元素在反应前后化合价能变么? 设计试验(化学)现在就要!1.设计试验证明二氧化碳具有下述性质:(1)二氧化碳的密度比空气的大;(2)二氧化碳能溶与水.2.设计实验证明汽水中含有二氧化碳.(别太复杂) 氢化钙CaH2与冰反应放出氢气,生成对应的碱.(要化学方程式)(生成的碱沉淀吗?) 求一个化学方程式:反应前后元素的化合价没有改变的化合反应 化学设计实验现有一白色粉末是由氯化钠、硫酸钠中的一种或两种共同组成.给你四种溶液:硝酸银溶液、氢氧化钠溶液、碳酸钠溶液、硝酸钡溶液,要你证明此粉末只由硫酸钠组成(两步). CaH2+2H2O====Ca(OH)2+H2中哪个是还原剂,哪个是氧化剂,哪个是还原产物,哪个是氧化产物?请把化合价的升降情况等等详细描述 化学反应方程式与化合价的问题是不是还有一种情况用对应符号的问题 HCL~H 这样的写法.问题主要在这里:这种对应符号的写法与化合价有关系么?为什么?我的问题来源于这个方程式的疑问 求5篇化学家庭实验 实验报告拜托各位高手帮我找5篇家庭小实验的实验报告包括目的.步骤.现象.结论注意:要是家里能做的实验.最好是收集沼气,、葱汁写密信、收集沼气.要5篇啊,谢谢如果 怎样快速判断氧化剂还原剂 例如CaH2+2H2O=Ca(OH)2+2H2↑ 到底谁是氧化剂还原剂氧怎样快速判断氧化剂还原剂 例如CaH2+2H2O=Ca(OH)2+2H2↑ 到底谁是氧化剂还原剂氧化产物还原产物 为什么?那氢 化学方程式物质化合价如何改变?有的方程式反应前后化合价改变,比如三价铁反应后变成二价铁,这样的规律是什么? 利用下列各组反应,能够验证铁、铜、银三种金属活动性顺序的是利用下列各组物质之间的反应,能够验证铁、铜、银三种金属活动性顺序的是( ) A、氯化亚铁溶液、铜、银 B、氯化亚铁溶液、 CaH2+2H2O=Ca〔OH〕2+2H2↑,该反应中化合价的升降关系如何,哪个是还原剂哪个是氧化剂 关于化学方程式与化合价.“O正上方一个-2”中-2代表什么?“2O”的O右上方有一个-2,这个-2代表什么? 利用下列各组物质之间的反应,能够验证铁、铜、银三种金属活动性顺序的是(  )A、氯化亚铁溶液、铜、银B、氯化亚铁溶液、氯化铜溶液、银 C、铁、氯化铜溶液、银 D、氯化铁溶液、铜 请问怎么看出CaH2+2H2O=Ca(oH)2+2H2是归中麻烦说详细一点 怎么用化合价写化学方程式比如Fe+O2--- 怎么写后面的生成物、、怎么用化合价写他们下面的小数字、 利用下面各组物质之间的反应,能够验证铁,铜,银三种金属活动性顺序的是( )A.氯化亚铁溶液,铜,银B.氯化亚铁溶液,氯化铜溶液,银C.铁,氯化铜溶液,银D.氯化铁溶液,铜,硝酸银溶液我觉得应 反应CaH2 + 2H2O = Ca(OH)2 + 2H2中氢氧化钙是什么 为什么氢氧化钙的化学式是Ca(OH)2?为什么氢氧化钙的化学式Ca(OH)2和其他有些物质的化学式要加括号?是因为这样简便些么? 设计实验关于判断铝铁铜的金属活泼性强弱顺序4种方案 CaH2中的氢元素呈负一价.CaH2+H2O=Ca(OH)2+2h2其中水是还原剂还是氧化剂或者都是或都不是? 硝酸HNO3和氢氧化钙Ca(OH)2 什么试剂能直接验证铝 铁 铜的活动性顺序 硅酸钙(CaSiO3)是玻璃的主要成分之一.硅酸钙中Si的化合价是A.+2 B.+3 C.-4 D.+4 氢氧化钙化学式Ca(OH)2 为啥oh要加括号 证明铁、铝、铜三种金属的活动性顺序,选用哪些试剂?A 盐酸、硝酸银溶液B 盐酸、氯化亚铁溶液C 硝酸、硝酸铜溶液D 氯化镁溶液、硫酸铜溶液为什么? 普通玻璃的主要成分是二氧化硅还是硅酸钙如果是二氧化硅,为什么一个推论题中说A是普通玻璃的主要成分,答案却是硅酸钙那个题错了吗?错得也太低级了吧、 CaH2 + 2H2O====2H2 + Ca(OH)2.氧化剂与还原剂的比值是多少? 铝、铁、铜是人类广泛使用的三种金属,与我们生活息息相关.3)用下列试剂验证这三种金属的活动性顺序,能达到目的是 (填序号). A.硫酸铝溶液 B.硫酸亚铁溶液 C.硫酸铜溶液 选什 请问大家硅酸钙CaSiO3是沉淀吗? 化学变化的分辨有放热,发光,生成沉淀,生成气体或颜色变化现象发生的一定是化学变化吗?请各举一例加以说明 为验证铁、铜、铝三种金属的活动性顺序,可选用的一组物质是(  )A.FeSO4溶液、Cu、AlCl3溶液B.CuSO4溶液、Fe、AlC13溶液C.CuSO4溶液、Fe、AlD.AlCl3溶液、Fe、Cu我知道答案是B,我想知道C为 硅酸钙(即CaSiO3)是沉淀物吗?硅酸钙是不溶于水的那种化合物吗? 怎么区分物理和化学变化酒精蒸发是什么变化 怎样证明铝、铁、铜三种金属的化学活泼性大小,解释为什么这三种金属只有铁最容易生锈. 氧化反应化学方程式上怎样判断元素的化合价 和化学变化的区别在于? 设计实验探究铝和铜的金属活动性大小顺序要实验的具体步骤材料:硫酸铜,铝片,试管……(是先放硫酸铜进试管还是先放铝片?) 氢化钙取氢气的好处生活中为什么不用这种方法制取氢气 亚氯酸钠与氯气反应化学方程式.各元素的化合价是多少? 如何区分化学中物质的性质与变化举出具体事例说明 金属氢化物是如何制备的?如氢化钠,氢化钙 根据元素化合价发生的变化,各写出一个相应的化学方程式,并确定发生还原反应的是哪个反应.1.0—————+12.+2————03.-1————04.+1————0并且好,本人决不食言 现象和变化的区别 氯化铵和氢化钙反应生成什么气体? 如何利用化合价升降给化学方程式配平 登上运动员用氢化钙CaH2固体提供能源有什么优点 生产轻质碳酸钙的化学反应方程式 利用化合价升降配平化学方程式FeTiO3+C+Cl2 --- TiCl4+FeCl3+COTiCl4+O2 --- TiO2+Cl2 能否用燃烧现象鉴别氢化钙和钙?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn