1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Imports System.Diagnostics
Imports System.IO
Imports System.IO.IOException
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Class Page1
Dim connexion As New SqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loaded
'Requete SQL pour insertion dans la base de données
Dim requeteP As SqlCommand = New SqlCommand("Insert into machineP [(nomp)(adresseipp)(macp)(bootp)] values (nomP,ipP,macP,bootP)", connexion)
Dim requeteA As SqlCommand = New SqlCommand("Insert into machineA [(noma)(adresseipa)(maca)(boota)] values (nomA,ipA,macA,bootA)", connexion)
Dim requeteR As SqlCommand = New SqlCommand("Insert into machineR [(nomr)(adresseipr)(macr)(bootr)] values (nomR,ipR,macR,bootR)", connexion)
'Connexion à la base de données. On vérifie que la connexion est bien établi pour pouvoir
'insèrer les données obtenues dans le fichier configuration.txt
connexion.ConnectionString = "Data Source=C:\Documents and Settings\Michael\Mes documents\bddplg.sdf;Initial Catalog=base;Integrated Security=True"
connexion.Open()
If connexion.State = ConnectionState.Open Then
requeteP.ExecuteNonQuery()
requeteA.ExecuteNonQuery()
requeteR.ExecuteNonQuery()
End If
Loop
StreamRead.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub |
Partager