riri2312
Messages postés12Date d'inscriptionmercredi 5 mars 2014StatutMembreDernière intervention 6 mai 2014
-
19 avril 2014 à 22:28
galaxy2009
Messages postés144Date d'inscriptiondimanche 24 avril 2011StatutMembreDernière intervention16 juin 2016
-
22 avril 2014 à 16:35
Bonjour,
je veux remplir ma base de donné sql par les valeurs de textbox depuis un formulaire voilà mon code
Imports System.Data.SqlClient
Imports System.Data
Protected Sub ImageButton1_Click(sender As Object, e As ImageClickEventArgs) Handles ImageButton1.Click
galaxy2009
Messages postés144Date d'inscriptiondimanche 24 avril 2011StatutMembreDernière intervention16 juin 2016 22 avril 2014 à 13:00
bonjour,
voilà le code complet :
Imports System.Data.SqlClient
Public Class Form1
'Déclaration des variables
Private cnx As SqlConnection
Private cmd As SqlCommand
Private dta As SqlDataAdapter
Private cmdb As SqlCommandBuilder
Private dts As New DataSet
Private dtt As DataTable
Private dtr As DataRow
Private rownum As Integer
Private conn As String
Private sql As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ouverture de la connection(à partir du répertoire de l'application)
conn = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\facturesgda.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
cnx = New SqlConnection
cnx.ConnectionString = conn
cnx.Open()
galaxy2009
Messages postés144Date d'inscriptiondimanche 24 avril 2011StatutMembreDernière intervention16 juin 2016 22 avril 2014 à 16:35
dans le bouton met ce code :
sql = "select Tontable.* from Tontable"
cmd = New SqlCommand(sql)
dta = New SqlDataAdapter(cmd)
cmd.Connection() = cnx
'chargement du DataSet à partir du DataAdapter
dta.Fill(dts, "Tontable")
'chargement de la DataTable à partir du DataSet
dtt = dts.Tables("Tontable")
'mise à jour des données du DataAdapter
dtr = dts.Tables("Tontable").NewRow
'mise à jour des données du DataAdapter
'à partir du commandbuilder
dta.Update(dts, "Tontable")
MessageBox.Show(" Client Ajouté... ", "Administrateur...", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
'on vide le dataset pour le recréer avec
'les nouvelles données
dts.Clear()
dta.Fill(dts, "Tontable")
dtt = dts.Tables("Tontable")