1188
社区成员
请问，如何将连接数据库的那段程序放到model中。
将连接数据库的程序放在哪儿才可以不需要每次都加载它？
dim conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
dim conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
starsoulxp 2004-09-07
'放模块中，然后把启动对象调为Sub Main
'定义ADO的相关对象变量
dim conn as adodb.connection
dim connstr as string
Private Sub Main()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub
'定义ADO的相关对象变量
dim conn as adodb.connection
dim connstr as string
Private Sub Main()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub
regin_me 2004-09-07
是的话我就结帖了。
regin_me 2004-09-07
是不是在工程中新建一个模块，模块中放入程序：
————————————
'CONNECT THE SQL SERVER
Private Sub Main()
public conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub
————————————————————————
是不是这样就可以了？
————————————
'CONNECT THE SQL SERVER
Private Sub Main()
public conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub
————————————————————————
是不是这样就可以了？
tztz520 2004-09-07
'放到模块中
public conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
'在模块中用PUBLIC定义的CONN就可以在全局中用了
public conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
'在模块中用PUBLIC定义的CONN就可以在全局中用了
itxxx 2004-09-07
'放模块中，然后把启动对象调为Sub Main
'定义ADO的相关对象变量
Private Sub Main()
'连接数据库的程序
End Sub
'定义ADO的相关对象变量
Private Sub Main()
'连接数据库的程序
End Sub
jackclh 2004-09-07
'放模块中，然后把启动对象调为Sub Main
'定义ADO的相关对象变量
Public Sub Main()
'连接数据库的程序
End Sub
'定义ADO的相关对象变量
Public Sub Main()
'连接数据库的程序
End Sub
Java面试题大全（2020版） 如果数组中该位置没有元素,就直接将该元素放到数组的该位置上。 需要注意Jdk 1.8中对HashMap的实现做了优化,当链表中的节点数据超过八个之后,该链表会转为红黑树来提高查询效率,从原来的O(n)到O(logn) 24. 说一下 ...
手把手教你整合最优雅SSM框架：SpringMVC + Spring + MyBatis 中加入相应的依赖就好了，如果不使用maven的可以自己去官网下载相应的jar，放到项目WEB-INF/lib目录下。关于maven的学习大家可以看 慕课网的视频教程 ，这里就不展开了。我把项目用到的jar都写在下面，版本都不是...
测试开发笔记 架构师，开发工程师写出《概要设计说明书》High-level design(HLD) 内容：系统程序中的模块，子模块和他们之间的关系和接口 测试的工作：对HLD进行测试和评审A集成测试计划《集成测试计划书》B集成测试设计《集成...
C#基础教程-c#实例教程，适合初学者 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...
前端面试题 http://item.taobao.com/item.htm?a=1&b=2&c=&d=xxx&e，请写一段JS程序提取URL中的各个GET参数(参数名和参数个数不确定)，将其按key-value形式返回到一个json结构中，如 {a:’1′, b:’2′, c:”, d:’xxx’, e:...
软件测试面试题汇总 2、我现在有个程序，发现在Windows上运行得很慢，怎么判别是程序存在问题还是软硬件系统存在问题？ 5 3、测试的策略有哪些？ ................................................................................
phalapi-入门篇5(数据库操作和Model层) phalapi-入门篇5(数据库操作和Model层)前言先在这里感谢phalapi框架创始人@dogstar,为我们提供了这样一个优秀的开源框架.本小节主要讲解基于notorm的数据库操作以及使用Model层进行快速的数据层的开发,请确保装有PDO...
thinkphp3.2源码----获取并保存模型对象与数据库连接实例 在ThinkPHP中基础的模型类就是 Think\Model 类，该类完成了基本的CURD、ActiveRecord模式、连贯 操作和统计查询，一些高级特性被封装到另外的模型扩展中。 基础模型类的设计非常灵活，甚至可以无需进行任何模型...
WPF开发教程 在应用程序的调度程序中，您可以调用 TranslateAccelerator，它会探查 User32 中的输入消息，并确定是否有任何消息与已注册的快捷键匹配。在 WPF 中，上述内容不会起作用，因为系统是完全“可组合”的 – 任何元素都...
DBC连接数据库经验技巧 Java数据库连接（JDBC）由一组用 Java 编程语言编写的类和接口组成。JDBC 为工具/数据库开发人员提供了一个标准的 API，使他们能够用纯Java API 来编写数据库应用程序。然而各个开发商的接口并不完全相同，...
Android面试题整理 本文整理了简书 goeasyway 面试相关文章，并在文章中加以自己的理解以及看见的部分精彩评论，所有文章并非自己原创，如对Android面试有兴趣，可前往作者文章专栏传送门或者关注对方的微信公众号：Android面试启示录 ...
关于把项目接入到微信小程序中 springboot 首先就是项目结构图，下面的文件除了config.ini文件没有在项目中，其余的都在 接下来是用到的两个测试工具。...#将本文件放置于natapp同级目录 程序将读取 [default] 段 #在命令行参数模式如 nat...
教你如何在自已的项目中添加Model 今天我想教大家如何添加Models，Models，在VS 中添加Model。连接数据库的数据，有些人可能还不会键，今天在这里就随便讲一下 数据库的来源： 一、 你自已在自已电脑上创建数据库并填入数据。 二、 就是附加别人的...
数据库与数据仓库的本质区别是什么？ 点击蓝色“有关SQL”关注我哟加个“星标”，天天与10000人一起快乐成长图 | 榖依米文章较长，可收藏后看。本文最后，准备了文中谈到的资料，可自取。在知乎上看到这么个问题：数据库与数据...
数据库设计和E-R模型 定义了数据库中表示的实体、实体的属性、实体之间的联系、以及实体和联系上的约束 从抽象数据到数据库实现的转换过程 逻辑设计阶段 实现数据模型通常是关系数据模型，该阶段通常包括将以实体-联系模型定义的...
Java开发校招面试考点汇总第六篇：数据库及MySQL练习题 1、有子查询的时候先做子查询，再使用子查询的值 2、DESC只作用于前面的一列 SELECT * FROM Student ORDER BY class,sno DESC ...create database ZuoYe--创建数据库 use ZuoYe--使用数据库 cre...
java springBoot连接数据库进行增删改查、模糊查询、表连接、全选操作、分页操作、数据回显。学习项目实例 连接数据库前的配置 首先实在跟application.properties文件相同的位置新键一个application.yml文件（直接新键文件，然后改后缀就行，这个没必要讲，常识）。 8080是端口号，我是默认的，没有修改，改了的话就用...
SQL Server 2000数据库程序设计 你在调试过程中发现这个用户的计算机的网络功能是正常的，而且其他用户都能正常地连接到SQL Server 2000。下面的哪些工具有助于你诊断和解决该问题？（多选）A． Enterprise Manager B． Server Network Utility C...
