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

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

编辑:说三道四文库 发布时间:2018-01-23 09:48
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:可以牌名次,显示一下自己?
[开源推荐]JS-Git:一款纯JavaScript实现的Git项目 良心企业Lavabit、Slient Mail相继关闭,美国云安全已死? 一周观察:LXC真的是PaaS的未来吗? [企业开源系列]Google背后的开源力量 合作: “云”潮中淘金的金钥匙 在eclipse下写jsp怎么不出现动态提醒? 冰雪,我找你啊:再问一个很低级的问题,在wsad中jdbc的问题 在web浏览中,怎样更改水晶报表的水景公司图标为自己公司的图标???? 如何提升进程的优先级??越高越好 看看有何错误 SQL排序问题 初学,不知道如何使报表动态连接数据库?求教各位高手,不胜感激 请大家帮忙!来着有分 在Access中使用查询建表时的注释语句是什么? 若a等于3,b等于负4,c等于5,d等于负6,试求 05加负4分之1减负2.75加2分之1等于多少?最 正0.125加3又4分之1加负3又8分之1减8分之 11又8分之5减负15又8分之3 零减负2等于几 0.4减负1/4再加上1/6,等于多少,急死我啦, 2减负4等于几 一减负四等于几? 4减负3等于多少 揭秘中国农村殡葬腐败:村民为\"入土湖北恩施酒风盛行百姓叫苦:母猪下崽也调查称过半日本人反对秘密保护法案 忧杭州“错时停车”推行5年难度越来越大浙江企业注册资本首付两成就能给公司冠鸿文喊话黑心作坊非法制售假食盐第九届中山装备展大做“水文章”年内油价调整或四度搁浅兰州市发改委用“四个一律”规范审批行美妖猴中国龙侠红缨记狂人日记之明星档案初代吸血鬼湄南河旅游龙山旅游兰屿旅游大赛车博物馆旅游石家庄植物园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘