public void AddParameter(string parameterName, object value)
Date :
2015-05-17 03:20:43
By :
DOG{B}
No. 2
Guest
Code (VB.NET)
Public Class Form1
Dim cmd As New System.Data.OleDb.OleDbCommand("")
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
'
Call แบบสตริงเท่านั้น("Hello World")
Call แบบอินทีเจอร์เท่านั้น(1234)
Call แบบวันที่เท่านั้น(New Date(2015, 5, 17))
'เรียกใช้แบบเต็มยศ
Call ทุกแบบ(Of String)("Hello World")
Call ทุกแบบ(Of Integer)(1234)
Call ทุกแบบ(Of Date)(New Date(2015, 5, 17))
Call ทุกแบบ(Of Customer)(New Customer() With {.ID = 1, .Name = "บริษัท อุปสรรค"})
'เรียกใช้แบบย่อ (shorthand)
Call ทุกแบบ("Hello World")
Call ทุกแบบ(1234)
Call ทุกแบบ(New Date(2015, 5, 17))
Call ทุกแบบ(New Customer() With {.ID = 1, .Name = "บริษัท อุปสรรค"}) 'Of Customer
Call AddParameter(Of Customer)("pName", New Customer With {.ID = 1, .Name = "บริษัท อุปสรรค"})
End Sub
Private Sub แบบสตริงเท่านั้น(ByVal arg As String)
MsgBox(arg.ToString())
End Sub
Private Sub แบบอินทีเจอร์เท่านั้น(ByVal arg As Integer)
MsgBox(arg.ToString())
End Sub
Private Sub แบบวันที่เท่านั้น(ByVal arg As Date)
MsgBox(arg.ToString())
End Sub
'ทุกรูปแบบ หรือ ไม่ระบุประเภท
Private Sub ทุกแบบ(Of T)(ByVal arg As T)
MsgBox(arg.ToString())
End Sub
Private Class Customer
Public Property ID As Integer
Public Property Name As String
Public Property Address As String
Public Property Tel As String
Public Overrides Function ToString() As String
Return Me.ID & "-" & Me.Name & "-" & "more"
End Function
End Class
Public Sub AddParameter(Of T)(parameterName As String, value As T)
Try
Me.cmd.Parameters.AddWithValue(parameterName, value)
MsgBox(value.ToString())
Catch ex As Exception
Throw New Exception("AddParameter:" + ex.Message)
End Try
End Sub
End Class