stocker des données dans une base sqlserve

Version imprimable

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:

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 :)

25/02/2008, 08h20
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

Bonjour,

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

Code:

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