je veut insert des donnes a un tableau dans sql server

Question

Bonjour, 
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient

Public Class BDD
    Dim base As String = "Data Source=***;Initial Catalog=***;User ID=**;Password=***"
    Dim conn As New SqlConnection
    Dim cmd As New SqlCommand

Public Sub connexion_base()
        conn = New SqlConnection(base)
        conn.Open()
    End Sub

Public Sub close_base()
        conn.Close()

End Sub

Public Function GetLogin1(ByVal login As String, ByVal pass As String) As Boolean
        connexion_base()
        Dim requete As String
        Dim reader_Verif As SqlDataReader
        cmd.Connection = conn
        cmd.CommandType = Data.CommandType.Text
        requete = "INSERT     Id, Login,Password   INTO connexion   WHERE     (Login = '" & login & "') AND (Password = '" & pass & "')"

cmd.CommandText = requete
        reader_Verif = cmd.ExecuteReader
        GetLogin1 = reader_Verif.HasRows

reader_Verif.Close()
        close_base()
    End Function

End Classest ce que cette classe est correcte pour insert des donnes a un tableau dans sql server2008 ??

Whismeril · Answer

Bonjour, 
Message modifié pour ajouter les balises de code.
Voir ici comment utiliser la coloration syntaxique.

bassem22 · Answer

Imports Microsoft.VisualBasicImports System.Data.SqlClientPublic Class BDD    Dim base As String = "Data Source=***;Initial Catalog=***;User ID=**;Password=***"    Dim conn As New SqlConnection    Dim cmd As New SqlCommand    Public Sub connexion_base()        conn = New SqlConnection(base)        conn.Open()    End Sub    Public Sub close_base()        conn.Close()    End Sub    Public Function GetLogin1(ByVal login As String, ByVal pass As String) As Boolean        connexion_base()        Dim requete As String        Dim reader_Verif As SqlDataReader        cmd.Connection = conn        cmd.CommandType = Data.CommandType.Text        requete = "INSERT     Id, Login,Password   INTO connexion   WHERE     (Login = '" & login & "') AND (Password = '" & pass & "')"        cmd.CommandText = requete        reader_Verif = cmd.ExecuteReader        GetLogin1 = reader_Verif.HasRows        reader_Verif.Close()        close_base()    End FunctionEnd Class

Je veut insert des donnes a un tableau dans sql server

2 réponses

Votre réponse

Discussions similaires