Torna al Thread
Public Class MiaClasse
'Variabili private della classe
Private _cnString As String
'Variabili private per esporre Proprietà
Private _strCampo1 As String
Private _strCampo2 As String
Public Property Campo1() As String
Get
Return _strCampo1
End Get
Set(ByVal value As String)
_strCampo1 = value
End Set
End Property
Public Property Campo2() As String
Get
Return _strCampo2
End Get
Set(ByVal value As String)
_strCampo2 = value
End Set
End Property
Sub New(ByVal cnString As String)
_cnString = cnString
End Sub
Public Function Insert() As Integer
''Provvede ad inserire i dati in SQL2005
Dim strSQL As String
Dim cn As New SqlClient.SqlConnection
strSQL = "INSERT INTO MiaTabella (Campo1, Campo2) VALUES(@Campo1, @Campo2)"
'Apertura della connessione
Try 'Apertura connessione
cn.ConnectionString = _cnString
cn.Open()
Catch ex As Exception
'Finalizza connessione
cn.Close()
cn.Dispose()
Return 0
End Try
'Crea Command e parametri
Dim cmd As New SqlClient.SqlCommand(strSQL, cn)
cmd.Parameters.Add(New SqlClient.SqlParameter("@Campo1", Data.SqlDbType.VarChar)).Value = _strCampo1
cmd.Parameters.Add(New SqlClient.SqlParameter("@Campo2", Data.SqlDbType.VarChar)).Value = _strCampo2
'Esegue SQL secca
Try
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteNonQuery()
Return 1
Catch ex As Exception
Debug.Print(ex.Message)
Return 0
Finally
cmd.Dispose()
cn.Close()
cn.Dispose()
End Try
End Function
End Class