제목 : 예제. ExecuteNonQuery()메서드 : Insert문(매개변수사용)(VB)
).gif "SqlCommand클래스(Insert문(매개변수사용)).gif")
' SqlCommand 클래스 사용 예제 : 매개변수를 사용한 데이터 입력
Imports System.Data
Imports System.Data.SqlClient
Public Class SqlCommand클래스
Inherits System.Web.UI.Page
#Region " Web Form 디자이너에서 생성한 코드 "
'이 호출은 Web Form 디자이너에 필요합니다.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
'참고: 다음의 자리 표시자 선언은 Web Form 디자이너의 필수 선언입니다.
'삭제하거나 옮기지 마십시오.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 이 메서드 호출은 Web Form 디자이너에 필요합니다.
'코드 편집기를 사용하여 수정하지 마십시오.
InitializeComponent()
End Sub
#End Region
Dim objCon As SqlConnection
Dim strSql As String
Dim objCmd As SqlCommand
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
objCon = New SqlConnection
strSql = "server=localhost;database=dotnet;user id=dotnet;password=dotnet"
objCon.ConnectionString = strSql
objCon.Open()
objCmd = New SqlCommand
objCmd.Connection = objCon
objCmd.CommandText = "Insert Dotnet Values(@Name)"
objCmd.CommandType = CommandType.Text
objCmd.Parameters.Add("@Name", SqlDbType.VarChar, 10)
objCmd.Parameters("@name").Value = "금강산"
Dim intNum As Integer = objCmd.ExecuteNonQuery()
Response.Write(intNum & "개의 데이터가 입력되었습니다.")
objCon.Close()
End Sub
End Class
