VB+SQL数据库管理系统中,如何在无数据源的情况下执行SQL

原创 2004年10月04日 16:26:00

一般的数据库系统编程教程都是在开始编程的时候创建数据库,并在系统中生成用户数据源、系统数据源和文件数据院,在集成开发环境中,通过数据源连接到数据库。那么,如何在没有数据源的情况下,进行编程。生成应用程序要操纵的数据库以及表呢?(如:应用程序在安装完毕后,第一次启动时生成相应的数据库)。

方法:在应用程序的ADO对象的连接字符串中指定DBMS的合法用户名和密码,并指定数据库驱动程序及要连接到目标主机。

如:连接到本机的SQL SERVER 假设 用户名为 SA  密码为空。
连接字符串为:conn_str = "uid=sa;pwd=;driver={sql server};server=(local)"
然后,连接的数据库就可以进行相应的操作了。


下面是我的一个模拟医疗管理系统的原代码(VB):
Public Sub generate_db()
'判断在应用程序的目录下是否有应用程序的数据库文件
Dim db_file As String
db_file = Dir(App.Path + "/test.mdf")

If db_file = "" Then
'定义连接字符串
Dim conn_str As String
conn_str = "uid=sa;pwd=;database=master;driver={sql server};server=(local)"

'声明要使用的对象
Dim conn As New ADODB.Connection
Dim cmd  As New ADODB.Command
Dim rs As New ADODB.Recordset
'连接数据源
conn.Open conn_str
'建立查询命令
cmd.CommandText = "create database test on primary(name=test,filename='" & App.Path + "/test.mdf" & "',size=5mb,maxsize=10mb,filegrowth=20%) log on(name=test_log,filename='" & App.Path + "/test_log.ldf" & "',size=2mb,maxsize=4mb,filegrowth=20%)"
'执行命令(用来生成数据库)
conn.Execute cmd.CommandText, Default, -1
'生成数据库需要用到的表
cmd.CommandText = "CREATE TABLE test.[dbo].[db_user] (    [用户名] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,    [密码] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,    [权限] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,    [注册日期] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL)"
conn.Execute cmd.CommandText, Default, -1

'给数据库一个根用户
cmd.CommandText = "INSERT INTO test.[dbo].db_user VALUES('root','root','管理员','原始用户')"
conn.Execute cmd.CommandText, Default, -1


Else
MsgBox "当前使用的数据库文件状态完好!", vbOKOnly + vbInformation, "提示"
End If
End Sub

2004年10月4日

VB+SQL管理系统中,如何在无数据源的情况下执行SQL

  • zgqtxwd
  • zgqtxwd
  • 2008年04月27日 02:34
  • 335

VB+SQL编写数据库管理系统

     参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手,不管是对于大一就学过的VB编程还是这个学期刚接触的SQL,很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指...
  • chenjie880707
  • chenjie880707
  • 2009年12月15日 13:47
  • 503

SQL中的事务

事务(Transaction)是并发控制的基本单位。所谓的事务,它是一个操作序列,这些操作要么都执行,要么都不执行,它是一个不可分割的工作单位。例如,银行转账工作:从一个账号扣款并使另一个账号增款,这...
  • u013553597
  • u013553597
  • 2014年02月18日 11:22
  • 283

【转】ACCESS中如何在SQL语句的WHERE条件中加日期条件

转自 http://topic.csdn.net/t/20050110/09/3711952.html  access中时间要用#,不是双引号     select   *   from   kc  ...
  • gengxt2003
  • gengxt2003
  • 2010年05月10日 15:40
  • 1087

postgresql中查看操作执行的具体sql语句

1)在psql启动命令行中加入-E 例子: C:\Users\Administrator>psql -E -h localhost -p 5432 postgres postgres psql (9....
  • ghostliming
  • ghostliming
  • 2016年04月01日 14:53
  • 1695

Access2010中如何运行SQL执行SQL语句

1、打开一个Access数据库文件 2、点击“创建”标签中的“查询设计”,会弹出一个“显示表”的对话框,点击“关闭”将其关闭 3、这时会有一个名为“查询*”的窗口,还不能输入SQL语句 4、点击...
  • jpr1990
  • jpr1990
  • 2011年10月27日 23:57
  • 9480

在Spring IOC容器中配置Bean

在Spring IOC容器中配置Bean 在XML文件中通过Bean节点来配置bean
  • fenqingxingpeiyue
  • fenqingxingpeiyue
  • 2016年07月26日 13:31
  • 265

bat批处理文件执行Oracle sql语句

下面记录一下自己制作一个同步用户的批处理文件执行oracle sql语句的过程。 新建一个空白的文本文件,修改名称为   同步程序.bat打开该文件,在文件中输入如下内容 sqlpl...
  • demon_chin
  • demon_chin
  • 2012年11月02日 12:13
  • 9952

Win7下怎么建立ODBC数据源

怎么在win7下创建ODBC数据源 今天下午几番周折终于把Mysql5.1安装好了,以前我安装过5.0的,感觉自己在网上也找不到合适的连接数据库的驱动程序,既然老师找好了,那就卸载吧!这一卸载不要紧...
  • KuangYeYaZi
  • KuangYeYaZi
  • 2014年03月27日 22:27
  • 1030

c语言版ODBC创建数据源实例

将KingbaseES数据库中Student表得数据备份到SQL SERVER数据库中。在应用程序运行前,已经在KingbaseES和SQL SERVER中分别建立了STUDENT关系表:建表代码:C...
  • cheng_fengming
  • cheng_fengming
  • 2009年05月04日 13:09
  • 2297
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB+SQL数据库管理系统中,如何在无数据源的情况下执行SQL
举报原因:
原因补充:

(最多只允许输入30个字)