使用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
 
 

如何将设备轻松地连接到IBM Watson物联网平台

Bluemix来自IBM主推云产品,是基于Cloud Foundry的一种开放云架构的实现,提供了开放整合的环境及开发管理工具。具有快速灵活、高效集成、续费交付等特点。本次课程将讲解“如何将设备轻松地连接到IBM Watson物联网平台”。
  • 2016年08月12日 09:52

解析VB.NET如何连接数据库

VB.NET连接数据库有很多方法,这里我们向大家主要介绍三种方法:用The SQL Server .NET Data Provider连接数据库;用The OLE DB .NET Data Provi...
  • jasonkao001
  • jasonkao001
  • 2013-05-27 12:57:54
  • 2587

VB net 2008 连接 SQL 并在 DataGridView 上显示、编辑。

  • 2009年08月25日 14:41
  • 105KB
  • 下载

vb.net 使用Access数据库保存和读取图片文件

  • 2016年08月07日 17:52
  • 912KB
  • 下载

weka API连接数据库

上一篇提及到在weka GUI中使用DB的数据构建模型,现在可以在IDE中使用weka提供给我们的API同样办到使用DB中的数据来构建模型。 在GUI中使用db有一个比较关键的步骤,Database...
  • weixin_37775770
  • weixin_37775770
  • 2017-04-21 14:47:02
  • 176

"此操作要求连接到 'master' 数据库。无法创建与 'master' 数据库之间的连接,这是因为已打开原始数据库连接,并且已从连接字符串中删除凭据。请提供未打开的连接。"

(1)错误信息:              "此操作要求连接到 'master' 数据库。无法创建与 'master' 数据库之间的连接,这是因为已打开原始数据库连接,并且已从连接字符串中删除凭据。...
  • DHCsimida
  • DHCsimida
  • 2013-12-29 12:23:20
  • 2039

Rman连接到目标数据库的几种方式

1. windows下连接   第一种方式 set ORACLE_SID=目标数据库SID   rman target sys/change_on_install   第二种方式 r...
  • wangshfa
  • wangshfa
  • 2013-08-10 17:49:56
  • 915

netbeans连接到数据库

  • 2010年08月01日 09:19
  • 503KB
  • 下载

mybatisHelloworld

  • 2015年07月30日 17:14
  • 2.44MB
  • 下载

( 安装DB2_client并连接到小型机DB2数据库.pdf

  • 2012年04月16日 17:26
  • 941KB
  • 下载
收藏助手
不良信息举报
您举报文章:使用vb.net连接到数据库并执行命令
举报原因:
原因补充:

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