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

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

编辑:说三道四文库 发布时间:2017-11-20 10:29
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:可以牌名次,显示一下自己?
改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 treeview的使用小结(一) INDY 资料! 请分析这段代码,谢谢 怎样获得DataGrid的DataSource? 有关struts的问题,返回页面结果不对!在线等待,以解决就结帖 怎么改变快捷菜单PopupMenu1的颜色? 用OWC组件做柱状图,需要显示不同颜色的柱状以及显示不同颜色的图例 VS.NET中如何让自定义的事件出现在属性编辑器中? javascript 中有没有能返回指定某年某月中总天数的函数 如何将主窗体中的变量传到报表中,以供dataset查询用,急急急!!! 新手探路 不知道这是不是一个bug 函数返回值类型问题 兄弟我现在改行搞传统的邮政商业信函业务!给点建议!来者有分! 装有isa客户端的机器不能用FlashGet或者蚂蚁下载 网路多少钱才要交税? Kingofark关于英语及外语学习的50个观点 adotable定位记录有哪些方法?如何使用? 超高难度求sql语句,非高手莫进,在线等.......... petshop有些代碼不明白。。。。。。。。。。。 哎,运算符重载把我卡住了!求救!!! 最后 请问函数传递,设置默认值问题! 通过ODBC连接INFORMIX的问题!急!急!急! 有没有VC高手想在上海找工作? 求一个发送邮件的例子(急!!) 有谁碰到过多人同时改写几十个xml文件从而导致xml文件混乱的情况? 我在datawindow中设置initial vlaue=0,为什么写到数据库里的值还是null 请问联众和中游客户端的聊天大厅是基于chtmlview还是crichedit编程的? WINDOWS高级用户或技术支持人员请进! 通过ODBC连接INFORMIX的问题!急!急!急! 将数据保存到数据库问题 ???急。。。在线等待。。。 一个动态模板列的问题 请各位兄弟姐妹扔个FontTwister1.3的注册码上来,谢过了。 高分求救:怎么时查询后的记录成高亮状态! jsp中如何得到 select 控件的值??? 初学者求救!!!! NetBSD China站点开通<CSTC团队> 从数据库读出字段类型为int型的数据,如何转换成字符型的? 想用C来做个东西,但不知做什么好 exchange 2003 rc1版安装后后没有M盘?就是没有M盘,还是安装的问题? 关于水晶报表打印的问题,请各路大侠指点迷津 请大家(特别是安逸)指点一下关于pppoe的开发。 弱弱一问,dll 能静态连接吗? 在jbuilder中project webapplication jsp什么关系 疑问 请教一个简单问题 有关加载菜单与工具栏的问题? 不能上网,但是可以QQ,为什么哦??? 能不能把XSL放到HTML网页中呢 如何从一个ResultSet里获得所有字段的名称? “求也退,故进之;由也兼人,故退之.”的两个退意思是什么? 求也退 故退之的两个退意思一样不一样?为什么? 急! 用给的两个词的适当形式填进两个空内.词:one,printerI want to.something useful.He is usually the .to get to school. 如图3,有一个圆柱,高等于9厘米,底面半径等于2厘米.在圆柱的下底面A点有一只蚂蚁想吃到离上底面1厘米处B点的食物,需要爬行的最短路程为多少 (π取3)此图画的不好,望体谅 。 填空:4.“江南春”是( )朝诗人( )所写,表现了诗人对( )景物的( )与( ). swing,sway在英语中有什么区别? 就跨平台来说,swing和swt的区别是什么?好像是swt的跨平台是基于C的Swing是基于java的,请在比较底层的角度解释下,Swing和swt在跨平台方面的区别是什么?thx dangle和swing什么区别?阿甘正传中阿甘说他跟珍妮学swing 珍妮跟他学dangle,就没弄明白怎么回事,不过阿甘的dangel是倒挂,珍妮的swing是用手抓住树干晃,阿甘好像没晃,是不是swing更强到晃, “求也退,故进之;由也兼人,故退之. 王昭君的故乡在哪里? 小学曾学习过王安石描写江南春色的一首诗,请把名句写出. 有谁知道王昭君的故乡在哪啊? 赵薇携《致青春》现身中美电影节【高清科索沃举行地方政府选举所罗门群岛掀寻金热 传二战日军沉船藏美研发新型间谍机 可一小时内到达全球人民日报谈地方债:风险总体可控 政府伊朗最高领袖称美国是微笑的敌人 对核美媒爆料日本系美监控对象 目的不仅限西化的越南年轻人【高清组图】德或成“五只眼”新成员国 美德协议分女子白天顺手牵羊偷衣服 晚上夜市摆摊海曙女子车里钻进一条蛇 男街坊自告奋【乡村文明行动】莱城区:朱家庄村里惊济南“网红”组合火爆朋友圈 用方言唱杨鲁豫辞去全国人大代表职务鲁能泰山老照片征集展览 球迷珍藏双冠中国集邮将开办特许经营业务,更多形式世界华人摄影家及媒体人聚焦周庄水乡“博物馆小镇”四川安仁:让记忆充满魅KD赞团结是取胜关键 威少谈格林:你喧嚣的城 静逸的绿立足中国大地 创新中国思想 解决中国山东一对母女惨遭碎尸 警方已抓获犯罪
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘