La création d'Une Instruction Insert — application Windows Vb.Net

D'une simple instruction INSERT pour SQL prend cette forme de base:

INSERT INTO [tablename] ( [column1], [column2], ... ) VALUES ( [value1], [value2], ...)

Donc, nous avons évidemment besoin de savoir à propos de la table de base de données que vous utilisez: ce que les colonnes dont il dispose. Nous avons aussi besoin de savoir à propos de la classe: quelles sont les propriétés qu'il possède. Enfin, nous avons besoin de connaître les types de données pour les colonnes de la table et des propriétés de la classe, et comment les propriétés de la carte pour les colonnes. Pour des objets très simples, les noms et les types de juste ligne. Mais dans d'autres cas, votre classe peut lui-même contenir une collection (ou plusieurs) qui signifierait l'insertion de données dans plus d'une table.

Après tout cela est déterminé, nous avons encore besoin de deux choses: les informations de connexion pour la base de données (généralement distillé en une seule chaîne de connexion) et si vous craignez que votre instance de classe peut avoir été préalablement enregistrée, dans le cas où vous voulez construire une instruction de mise à JOUR plutôt que d'INSÉRER.

En supposant que vous pouvez répondre à tous que, dans une manière satisfaisante, votre VB.Net le code devrait ressembler à quelque chose comme ceci (bien sûr en remplaçant votre colonne spécifique, la propriété, le type et les informations de connexion, le cas échéant):

Public Class Customer
    Public Sub Save()
        DAL.SaveCustomer(Me)
    End Sub

    '   ...'

End Class

.

' a VB Module is a C# static class'
Public Module DAL 
    Private ConnString As String = "Your connection string here"

    Public Sub SaveCustomer(ByVal TheCustomer As Customer)
        Dim sql As String = "" & _
        "INSERT INTO [MyTable] (" & _
            "[column1], [column2], ..." & _
        ") VALUES (" & _
            "@Column1, @Column2, ... )"

        Using cn As New SqlConnection(ConnString), _
              cmd As New SqlCommand(sql, cn)

            cmd.Parameters.Add("@column1", SqlDbTypes.VarChar, 50).Value = TheCustomer.Property1
            cmd.Parameters.Add("@column2", SqlDbTypes.VarChar, 1000).Value = TheCustomer.Property2

            cn.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Sub
End Module

Je sais que vous avez déjà entendu dire que le fait de séparer votre code de base de données est "la bonne chose à faire"tm, mais j'ai pensé que vous pourriez aussi vous souhaitez encore plus de raisons précises pour lesquelles vous souhaitez structurer votre code de cette façon:

• Votre chaîne de connexion est conservé dans un seul endroit, donc si votre serveur de base de données se déplace vous avez seulement besoin de faire un changement. Encore mieux si c'est sa propre assemblée ou le fichier config.
• Si jamais vous déplacer à un tout autre type de base de données vous avez seulement besoin de modifier un fichier pour mettre à jour le programme.
• Si vous en avez un développeur ou un administrateur de base qui est particulièrement bon avec sql, vous pouvez laisser faire la plupart des opérations de maintenance sur cette partie de l'application.
• Elle rend le code pour votre "réel" des objets plus simples, et donc plus facile à repérer quand vous faites une logique d'erreur de conception.
• Le DAL code pourrait éventuellement être ré-utilisable que si une autre application veut parler à la même base de données.
• Si vous utilisez un outil ORM plus de la DAL code est écrit pour vous.

Je suis d'accord avec Mike Hofer. En gardant votre classe qui fait votre récupération et la persistance de l'objet séparé de classes de votre entreprise est la clé pour avoir un flexible et robuste. C'est le genre de code que vous souhaitez voir dans votre interface graphique ou la couche de gestion:

//Populate Customer Objects List with data
IList<Customer> customerList = new List<Customer>()
Customer newCustomer1 = new Customer();
newCustomer.Name = "New Name"
newCustomer.email ="[email protected]"
customerList.Add(newCustomer1)

//DAL calls
DataAccessClass dalClass = new DataAccessClass ();
dalClass.InsertCustomers(customerList);

À l'intérieur de votre DALClass il devrait y avoir une méthode appelée InsertCustomers(IList clients) et il devrait avoir le code suivant:

      Public Function InsertCustomers(ByVal objectList As IList(Of Customer)) As Integer
Dim command As IDbCommand = Nothing
Dim rowsAffected As Integer = 0
Dim connection As IDbConnection = New System.Data.SqlClient.SqlConnection(Me.ConnectionString)
Try 
connection.Open
Dim e As IEnumerator = objectList.GetEnumerator
Do While e.MoveNext
command = connection.CreateCommand
command.CommandText = "insert into dbo.Customer(CustomerID,CustomerGUID,RegisterDate,Password,SiteID,Las"& _ 
"tName,FirstName,Email,Notes,BillingEqualsShipping,BillingLastName) values (@Cust"& _ 
"omerID,@CustomerGUID,@RegisterDate,@Password,@SiteID,@LastName,@FirstName,@Email"& _ 
",@Notes,@BillingEqualsShipping,@BillingLastName)"
System.Console.WriteLine("Executing Query: {0}", command.CommandText)
Dim paramCustomerID As IDbDataParameter = command.CreateParameter
paramCustomerID.ParameterName = "@CustomerID"
command.Parameters.Add(paramCustomerID)
Dim paramCustomerGUID As IDbDataParameter = command.CreateParameter
paramCustomerGUID.ParameterName = "@CustomerGUID"
command.Parameters.Add(paramCustomerGUID)
Dim paramRegisterDate As IDbDataParameter = command.CreateParameter
paramRegisterDate.ParameterName = "@RegisterDate"
command.Parameters.Add(paramRegisterDate)
Dim paramPassword As IDbDataParameter = command.CreateParameter
paramPassword.ParameterName = "@Password"
command.Parameters.Add(paramPassword)
Dim paramSiteID As IDbDataParameter = command.CreateParameter
paramSiteID.ParameterName = "@SiteID"
command.Parameters.Add(paramSiteID)
Dim paramLastName As IDbDataParameter = command.CreateParameter
paramLastName.ParameterName = "@LastName"
command.Parameters.Add(paramLastName)
Dim paramFirstName As IDbDataParameter = command.CreateParameter
paramFirstName.ParameterName = "@FirstName"
command.Parameters.Add(paramFirstName)
Dim paramEmail As IDbDataParameter = command.CreateParameter
paramEmail.ParameterName = "@Email"
command.Parameters.Add(paramEmail)
Dim paramNotes As IDbDataParameter = command.CreateParameter
paramNotes.ParameterName = "@Notes"
command.Parameters.Add(paramNotes)
Dim paramBillingEqualsShipping As IDbDataParameter = command.CreateParameter
paramBillingEqualsShipping.ParameterName = "@BillingEqualsShipping"
command.Parameters.Add(paramBillingEqualsShipping)
Dim paramBillingLastName As IDbDataParameter = command.CreateParameter
paramBillingLastName.ParameterName = "@BillingLastName"
command.Parameters.Add(paramBillingLastName)
Dim modelObject As Customer = CType(e.Current,Customer)
paramCustomerID.Value = modelObject.CustomerID
paramCustomerGUID.Value = modelObject.CustomerGUID
paramRegisterDate.Value = modelObject.RegisterDate
If IsNothing(modelObject.Password) Then
paramPassword.Value = System.DBNull.Value
Else
paramPassword.Value = modelObject.Password
End If
paramSiteID.Value = modelObject.SiteID
If IsNothing(modelObject.LastName) Then
paramLastName.Value = System.DBNull.Value
Else
paramLastName.Value = modelObject.LastName
End If
If IsNothing(modelObject.FirstName) Then
paramFirstName.Value = System.DBNull.Value
Else
paramFirstName.Value = modelObject.FirstName
End If
If IsNothing(modelObject.Email) Then
paramEmail.Value = System.DBNull.Value
Else
paramEmail.Value = modelObject.Email
End If
If IsNothing(modelObject.Notes) Then
paramNotes.Value = System.DBNull.Value
Else
paramNotes.Value = modelObject.Notes
End If
paramBillingEqualsShipping.Value = modelObject.BillingEqualsShipping
If IsNothing(modelObject.BillingLastName) Then
paramBillingLastName.Value = System.DBNull.Value
Else
paramBillingLastName.Value = modelObject.BillingLastName
End If
rowsAffected = (rowsAffected + command.ExecuteNonQuery)
Loop
Finally
connection.Close
CType(connection,System.IDisposable).Dispose
End Try
Return rowsAffected
End Function

Il est pénible d'écrire le DAL code à la main, mais vous aurez le plein contrôle de votre DAL, SQL et de la Cartographie du code et la modification de ceux-ci seront un jeu d'enfant dans l'avenir.

Si vous n'avez pas envie d'écrire tout le DAL Code à la main, vous pouvez obtenir un CodeGenerator comme Orasis Cartographie Studio pour générer exactement le même code sans écrire quoi que ce soit. Il vous suffit de créer votre SQL dans l'outil, la carte des propriétés pour les paramètres et vous avez terminé. Il va générer tout le reste pour vous.

Bonne chance et bonne DAL codage!

Je préfère l'idée de Mike Hofer, d'avoir une procédure Stockée dans le côté de SQL Server pour gérer les données mises à jour, et d'avoir une catégorie distincte pour encapsuler les appels à ceux stockés procs.
Juste mon 0.02$