Discussion :

[Halloula]

salut,

je fais un ping sur des adresse ip saisies à partir d'une base en sql server,et je veux que le resultat ne soit stocké dans ma base aussi.
mais je sais pas trop comment faire pour faire cette connexion là.
j'ai trouvé dans la faq de dvp qu'il faut utilser ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Imports System.Data.SqlClient
 
Class adobasic
 
    Public Shared Sub Main()
 
        Try
            'Chaîne de connexion
            Dim connectString As String = "database=ping.mdf;server=HELA\SQLEXPRESS ;" 'j'ai modifié ici selon ma base
            'Objet connection
            Dim connection As SqlConnection = New SqlConnection(connectString)
            'Ouverture
            connection.Open()
            'Fermeture
             connection.Close()
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.ToString())
        End Try
 
    End Sub
 
End Class

oui mais ce ci ouvre la connexion à la base,mais en fait pour inserrer dans ma base?
c'est ca mon problem..
un lien ou un ptit bou de code serait le bien venu.
merci d'avance

[boubounne]

salut tient voila un lien vers la FAQ :

http://faqvbnet.developpez.com/?page...onet_execquery

apres que ce soit un select ou un insert c'est la meme chose, lit et tu trouvera ce que tu veut

[Cyborg289]

Bonjour,

Voilà une procedure que j'utilise et qui fait ce que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Public Sub InsertNouvClient(ByVal Nom As SqlTypes.SqlString, ByVal Prenom As SqlTypes.SqlString, ByVal adresse1 As SqlTypes.SqlString, ByVal adresse2 As SqlTypes.SqlString, ByVal cp As SqlTypes.SqlString, ByVal ville As SqlTypes.SqlString, ByVal tel1 As SqlTypes.SqlString, ByVal tel2 As SqlTypes.SqlString)
 
        Dim sqlcnx As New SqlConnection()
        Dim requete As String
 
        sqlcnx.ConnectionString = Principale.Connexion
 
        requete = "INSERT INTO CLIENT(Nom_Client,Prenom_Client,Adresse_1,Adresse_2,CP,Ville,Telephone_Fixe,Telephone_Portable) VALUES ('" + Nom + "','" + Prenom + "','" + adresse1 + "','" + adresse2 + "','" + cp + "','" + ville + "','" + tel1 + "','" + tel2 + "');"
        Dim cmd As New SqlCommand(requete, sqlcnx)
        cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        cmd.Connection.Close()
        MsgBox("Le client a été ajouté avec succès !", MsgBoxStyle.Information)
        cmd = Nothing
 
    End Sub