0/5 (10 avis)
Snippet vu 14 814 fois - Téléchargée 37 fois
'------- 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 ---------------------------
28 sept. 2010 à 14:29
18 avril 2005 à 15:40
Merci beaucoup,
Jean
18 avril 2005 à 15:31
public string SQL_Server = "LeServeur";
Romelard Fabrice.
18 avril 2005 à 15:08
Tout d'abord, bravo pour cette source, en VB.Net je l'ai testée et c'est top. Par contre, au risque d'être un gros boulet, je voudrais savoir si quelqu'un a déjà porté cette source en C#, car j'en aurait besoin pour un projet et je ne suis pas assez bon pour la traduire (en particulier les lignes: Public SQL_Server as String = "Le seveur", cela me donne des erreurs: "c:\inetpub\wwwroot\Tests\SQL.cs(7): 'Requetteur_SQL.Serveur_SQL' : impossible d'avoir des initialiseurs de champ d'instance dans des structures"...
Si quelqu'un peu m'éclairer (la transcription VB -> C# c'est grâce à SharpDevelop)
29 août 2003 à 10:32
En c# ou en Vb sous visual studio.net...
Vous me sauverez la vie.....Peut être. Merci
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.