网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.在TextBox中查找和继续查找.
.VB“超频”秘籍之给字符串提速.
.SMTP协议简介(SimpleMailTransf.
.你真正理解AllowUnroundedFloati.
.在VB中播放AVI文件.
.VB软件设计中的几个问题.
.VisualBasic控件简介.
.VB中远程共享显示及声音的实现.
.VisualBasic可以产生四角形以外其.
.即时即战游戏的写法.
.怎样在vb.net中将图片存入SQL Se.
.Modem通讯意外处理.
.如何使用ADO來压缩或修复Microso.
.利用API播放声音文件.
.使VB的网格控件具有输入功能.
.用VB5.0从Recordset中打印列表.
.VB编程俱乐部问答.
.怎样捕捉窗体的鼠标.
.文件系统控件的使用二.
.解析VB的事件驱动编程.

.NET和VB编程创建SQLServer

发表日期:2006-2-27


1.新建一个VisualBasic.NetWindows应用程序项目。默认情况下,将Form1添加到项目中。

  2.在Form1上放一个Command按钮,并将其Name属性更改为btnCreateDatabase,将其Text属性更改为CreateDatabase。

  3.复制下面一行代码并粘贴到Form1的“generaldeclaration”部分:ImportsSystem.Data.SqlClient

  4.复制下面的代码并粘贴到“WindowsFormDesignergeneratedcode”区域之后:  

  PrivateSubbtnCreateDatabase_Click(ByValsenderAsSystem.Object,_
  ByValeAsSystem.EventArgs)HandlesbtnCreateDatabase.Click
  DimreaderAsSqlDataReader
  DimstrAsString
  DimmyConnAsSqlConnection=NewSqlConnection("Server=(local)\netsdk;"&_
  "uid=sa;pwd=;database=master") 

  str="CREATEDATABASEMyDatabaseONPRIMARY"&_
  "(NAME=MyDatabase_Data,"&_
  "FILENAME='D:\MyFolder\MyDatabaseData.mdf',"&_
  "SIZE=2MB,"&_
  "MAXSIZE=10MB,"&_
  "FILEGROWTH=10)"&_
  "LOGON"&_
  "(NAME=MyDatabase_Log,"&_
  "FILENAME='D:\MyFolder\MyDatabaseLog.ldf',"&_
  "SIZE=1MB,"&_
  "MAXSIZE=5MB,"&_
  "FILEGROWTH=10)"
  DimmyCommandAsSqlCommand=NewSqlCommand(str,myConn)
  Try
  myConn.Open()
  reader=myCommand.ExecuteReader()
  CatchexAsException
  MessageBox.Show(ex.ToString())
  Finally
  IfNotreaderIsNothingThen
  reader.Close()
  If(myConn.State=ConnectionState.Open)Then
  myConn.Close()
  EndIf
  MessageBox.Show("Databaseiscreatedsuccessfully",_
  "MyProgram",MessageBoxButtons.OK,_
  MessageBoxIcon.Information)
  EndIf
  EndTry
  EndSub 

  5.更改连接字符串使其指向SQLServer,要确保将Database参数设置为Master或保留为空白。

  6.按F5键或CTRL F5组合键以运行该项目,然后单击创建数据库。  

  其他注意事项  

  此代码创建的是带有特定属性的自定义数据库。 

  将要保存所创建.mdf和.ldf文件的文件夹必须在运行该代码之前就已存在、否则会引发异常。

  如果想创建一个类似于SQLServer的Model数据库的数据库并想让它存储在默认位置,那么请更改代码中的str变量:str="CREATEDATABASEMyDatabase"

->

上一篇:用VB实现任意修改Win桌面背景 人气:2615
下一篇:菜鸟入门:VB编程规约 人气:2773
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐