使用vb.net连接到数据库并执行命令

转载 2007年10月12日 18:07:00
Imports System
Imports System.Data  '引入数据类库
Imports System.Data.SqlClient  '引入SQL Server类库(用来访问SQL Server)

Module Module1Module Module1
    
Sub Main()Sub Main()
        AddRecord() 
'增加记录
        RemoveRecord() '删除记录
        Pause()
    
End Sub


    
Sub Pause()Sub Pause()
        Console.WriteLine(
"Press Enter To Continue...")
        Console.ReadLine()
    
End Sub


    
Sub AddRecord()Sub AddRecord()
        
'定义连接字符串
        Dim sConnectionString As String _
            
= "User ID=sa;Initial Catalog=pubs;Data Source=(local)"
        
'定义一个SQL连接对象  
        Dim objConn As New SqlConnection(sConnectionString)
        
'连接对象
        objConn.Open()
        
'定义一个插入记录命令字符
        Dim sSQL As String = "INSERT INTO Employee " & _
          
"(emp_id, fname, minit, lname, job_id, job_lvl, pub_id, hire_date)" & _
          
"VALUES ('MSD12923F', 'Duncan', 'W', 'Mackenzie', " & _
                  
"10, 82,'0877','2001-01-01')"

        
Dim objCmd As New SqlCommand(sSQL, objConn)
        
Try
            objCmd.ExecuteNonQuery()  
'执行插入动作
        Catch e As Exception
            Console.WriteLine(e.Message) 
'无法执行时提示出错信息
        End Try
        Console.WriteLine(
"Record Added")
    
End Sub


    
Sub RemoveRecord()Sub RemoveRecord()
        
Dim sConnectionString As String _
            
= "User ID=sa;Initial Catalog=pubs;Data Source=(local)"
        
Dim objConn As New SqlConnection(sConnectionString)
        objConn.Open()
        
Dim sSQL As String = "DELETE FROM Employee WHERE emp_id = @emp_id"
        
Dim objCmd As New SqlCommand(sSQL, objConn)

        objCmd.Parameters.Add(
"@emp_id", SqlDbType.Char, 9)
        objCmd.Parameters.Item(
"@emp_id").Value = "MSD12923F"

        
Try
            objCmd.ExecuteNonQuery()
            Console.WriteLine(
"Record Deleted")
        
Catch e As Exception
            Console.WriteLine(e.ToString)
        
End Try
        Console.ReadLine()
    
End Sub


End Module
 
 

在VS2013平台下,用VB.net 连接Access数据库

从开始学习计算机,我们使用的一直是SQL数据库。这次接触了Access数据库,我将从Access创建到连接向大家分享一下我在Access数据库中的收获。...
  • WKX18330698534
  • WKX18330698534
  • 2016年04月17日 20:41
  • 4818

vb.net合伙数据库access(一)——连接数据库

终于在花了一个四个小时的时间完成了数据库与vb.net的合伙连接的第一步连接数据库,在这个过程遇到了问题,而且也是出现了一些刚刚接触的新的词语和观念,很新鲜,不过无论怎么样,最终也是给解决了,还是有一...
  • changyinling520
  • changyinling520
  • 2016年01月05日 19:07
  • 2298

vb.net 通过ADO.net 连接 MySql 具体操作

1.   下载MySql, 官网下载,进入管网 (1)       安装教程  :                  http://jingyan.baidu.com/article/22fe7c...
  • TitiWy
  • TitiWy
  • 2015年01月29日 09:48
  • 2363

无法连接到数据库实例问题

安装数据库只需要两个文件就好了,一个是数据库实例文件,一个是管理工具。 以前电脑就安装过一个数据库2008 R2版本,但是老师要求安装2012,因此有安装了一个数据库实例,并安装了SQL Serve...
  • Esther_Heesch
  • Esther_Heesch
  • 2016年11月02日 20:45
  • 2553

Vb.net 和SQL 数据库交互小结

个人版机房收费系统暂时的告于段落,对于vb.net 和SQL Sever 数据库的交互,现在总结一下。 一 数据库连接   1 vb.net 和SQL Sever 连接,使用的connec...
  • zllaptx4869
  • zllaptx4869
  • 2013年07月12日 18:55
  • 3836

VB.net数据库编程(03):一个SQLserver连接查询的简单例子

这个例子,由于在ADO.net入门已经专门学了,再次进行复习 一下。 主要掌握连接字串的情况。 过程就是: 1、引用System.Data.SqlClient。而Access中引用 的是...
  • dzweather
  • dzweather
  • 2013年02月01日 18:52
  • 41330

VB.net数据库编程(01):简单的入门实例--连接到Access文件

先来一个简单的实例。 VB.net 2012 SQl server 2012 Access文件:http://download.csdn.net/detail/dzweather...
  • u014366427
  • u014366427
  • 2014年03月26日 11:08
  • 1465

vb.net操作数据库之ACCESS(一)

转载自:http://blog.csdn.net/machong8183/article/details/5488191 一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧...
  • lengyff
  • lengyff
  • 2015年04月05日 11:26
  • 861

Excel导入SQL(VB.NET版)

【前言】        我们从第一次机房就开始接触了数据库内容导出到Excel,机房重构的时候同样遇到了,做过VB版的也做过VB.NET版的(其实两者并没有多大差别)。考试导数据的时候用过一次将Exc...
  • zh15732621679
  • zh15732621679
  • 2016年04月24日 19:23
  • 1803

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下 Imports System Imports System.Data.SqlClient Imports System.Config...
  • lqh4188
  • lqh4188
  • 2013年12月29日 11:30
  • 5393
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用vb.net连接到数据库并执行命令
举报原因:
原因补充:

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