Avec l'aide de Nix, création d'un module de base pour lancer des requettes sur un serveur SQL sans réécrire tout à chaque fois.
Pensez à dire merci a Nix (car je suis partit de son fichier pour MySQL).
Source / Exemple :
'------- Debut du Module SQL Server ---------------------------
Public Module ModuleBase
' Module de gestion des requettes SQL sur le serveur
Public SQL_Server As String = "LeServer"
Public SQL_User As String = "Login"
Public SQL_Pwd As String = "LePass"
Public SQL_Base As String = "LaBase"
Public Function SQL_Reader(ByVal Req_SQL As String) As SqlDataReader
' Renvoie un Datareader à partir de la requette transmise.
Dim oConn As SqlConnection
oConn = New SqlConnection()
oConn.ConnectionString = "server=" & SQL_Server & ";user id=" & SQL_User & ";password=" & SQL_Pwd & ";database=" & SQL_Base
oConn.Open()
Dim myCommand As SqlCommand = New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
SQL_Reader = monSQL_Reader
End Function
Public Function SQL_Execute(ByVal Req_SQL As String)
' Exécute directement la requette transmise sans renvoyer de résultat.
Dim oConn As SqlConnection
oConn = New SqlConnection()
oConn.ConnectionString = "server=" & SQL_Server & ";user id=" & SQL_User & ";password=" & SQL_Pwd & ";database=" & SQL_Base
oConn.Open()
Dim myCommand As SqlCommand = New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader As SqlDataReader
myCommand.ExecuteNonQuery()
oConn.Close()
oConn = Nothing
End Function
Public Function TestNull(ByVal Champs As Object, ByVal ValDefaut As Object)
' Teste si le champs envoyé est null et dans ce cas l'ui attribue la valeur de Base
If IsDBNull(Champs) Then
TestNull = ValDefaut
Else
TestNull = Champs
End If
End Function
End Module
'------- Fin du Module SQL Server ---------------------------
Conclusion :
Profitez en.
Romelard Fabrice (Alias F___)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.