insertcategories.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 29 行

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server



Public Class InsertCategories
    <Microsoft.SqlServer.Server.SqlProcedure()> _
    Public Shared Sub InsertTableCategories(ByVal CategoryName As String _
        , ByVal Description As String)


        Dim ConnectStr As New SqlConnection
        ConnectStr.ConnectionString = "Data Source=JIAYONG-A8UZA20;Initial Catalog=NorthWind;User ID=sa;Password=19zhoulian7172;Trusted_Connection=yes"
        Dim SqlStr As String
        SqlStr = "INSERT INTO NorthWind.dbo.Categories VALUES('" + _
        CategoryName.ToString + "','" + Description.ToString + "',Null)"
        Dim oCmd As New SqlCommand
        ConnectStr.Open()
        oCmd.Connection = ConnectStr
        oCmd.CommandText = SqlStr
        ' oCmd.ExecuteNonQuery()

    End Sub

End Class