Dim connection As New SqlConnection(String.Format("Data Source={0};Initial Catalog={1};User Id={2};Password={3}", DirectCast(My.Settings.ip, Object), DirectCast(My.Settings.db, Object), DirectCast(My.Settings.user, Object), DirectCast(My.Settings.pass, Object)))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.Data.SqlClient '''''''''imports divers'''''''' Imports System.IO Imports System.Text Public Class Form1 Dim connection As New SqlConnection(String.Format("Data Source={0};Initial Catalog={1};User Id={2};Password={3}", DirectCast(My.Settings.ip, Object), DirectCast(My.Settings.db, Object), DirectCast(My.Settings.user, Object), DirectCast(My.Settings.pass, Object))) Dim sCommand As SqlCommand Dim sAdapter As SqlDataAdapter Dim sBuilder As SqlCommandBuilder '''''''déclaration des composants''''''''' Dim sDs As DataSet Dim sTable As DataTable Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '''''''''remplissage des textbox suivant paramètres user'''''''' ToolStripTextBox1.Text = My.Settings.ip ToolStripTextBox2.Text = My.Settings.db ToolStripTextBox3.Text = My.Settings.user ToolStripTextBox4.Text = My.Settings.pass ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 50 End Sub Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click ''''''''sauvegarde des textbox suivant paramètres user'''''''' My.Settings.ip = ToolStripTextBox1.Text My.Settings.db = ToolStripTextBox2.Text My.Settings.user = ToolStripTextBox3.Text My.Settings.pass = ToolStripTextBox4.Text My.Settings.Save() End Sub Private Sub ToolStripButton3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton3.Click ''''''''affichage d une table choisie par user'''''''''' Me.DataGridView2.Columns.Clear() My.Settings.table = ToolStripComboBox1.SelectedItem My.Settings.Save() If ToolStripComboBox1.SelectedItem = "" Then MsgBox("Please , Select An Data Table") ElseIf ToolStripComboBox1.SelectedItem = (String.Format("{0}", DirectCast(My.Settings.table, Object))) Then connection.Open() sCommand = New SqlCommand(String.Format("SELECT * FROM {0}", DirectCast(My.Settings.table, Object)), connection) sAdapter = New SqlDataAdapter(sCommand) sBuilder = New SqlCommandBuilder(sAdapter) sDs = New DataSet() sAdapter.Fill(sDs, (String.Format("{0}", DirectCast(My.Settings.table, Object)))) sTable = sDs.Tables(String.Format("{0}", DirectCast(My.Settings.table, Object))) connection.Close() For i As Integer = ProgressBar1.Minimum To ProgressBar1.Maximum ProgressBar1.Value = i Application.DoEvents() Threading.Thread.Sleep(10) Next DataGridView2.DataSource = sDs.Tables(String.Format("{0}", DirectCast(My.Settings.table, Object))) DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect End If End Sub Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click '''''''''update de la table (insert seulement , le reste non fonctionnel ???)''''''''''' Try For i As Integer = ProgressBar1.Minimum To ProgressBar1.Maximum ProgressBar1.Value = i Application.DoEvents() Threading.Thread.Sleep(10) Next sAdapter.Update(sDs.Tables(String.Format("{0}", DirectCast(My.Settings.table, Object)))) DataGridView2.DataSource = sDs.Tables(String.Format("{0}", DirectCast(My.Settings.table, Object))) MsgBox(String.Format("Successfull Update" & Chr(13) & "{0}", DirectCast(My.Settings.table, Object))) Catch ex As SqlException MsgBox(ex.Message) End Try End Sub Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click ''''''''''vidage manuel du dgv'''''''''' Try DataGridView2.Columns.Clear() connection.Close() Catch ex As SqlException MsgBox(ex.Message) End Try End Sub Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click '''''''''fonction recherche non fonctionnelle''''''''' Me.DataGridView2.Columns.Clear() My.Settings.from = ComboBox1.SelectedItem.ToString My.Settings.where = TextBox2.Text My.Settings.lyke = TextBox3.Text My.Settings.Save() If ComboBox1.SelectedItem.ToString = "" Then MsgBox("Please , Select An Data Table") ElseIf ComboBox1.SelectedItem.ToString = (String.Format("{0}", DirectCast(My.Settings.from, Object))) Then connection.Open() sBuilder = New SqlCommandBuilder(sAdapter) sAdapter = New SqlDataAdapter(sCommand) sCommand New SqlCommand(String.Format("SELECT * FROM {0} WHERE {1} '%{2}%'", DirectCast(My.Settings.from, Object), DirectCast(My.Settings.where, Object), DirectCast(My.Settings.lyke, Object))) sDs = New DataSet() sAdapter.Fill(sDs, (String.Format("{0}", DirectCast(My.Settings.from, Object)))) sTable = sDs.Tables(String.Format("{0}", DirectCast(My.Settings.from, Object))) connection.Close() DataGridView2.DataSource = sDs.Tables(String.Format("{0}", DirectCast(My.Settings.from, Object))).DefaultView DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect End If End Sub Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click If MessageBox.Show("Do you want to delete this row ?", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes Then DataGridView2.Rows.RemoveAt(DataGridView2.SelectedRows(0).Index) sAdapter.Update(sDs.Tables(String.Format("{0}", DirectCast(My.Settings.table, Object)))) End If End Sub End Class
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click Me.DataGridView2.Columns.Clear() My.Settings.from = ComboBox1.SelectedItem.ToString My.Settings.where = TextBox2.Text My.Settings.lyke = TextBox3.Text My.Settings.Save() If ComboBox1.SelectedItem.ToString = "" Then MsgBox("Please , Select An Data Table") ElseIf ComboBox1.SelectedItem.ToString = (String.Format("{0}", My.Settings.from)) Then Try connection.Open() sBuilder = New SqlCommandBuilder(sAdapter) sAdapter New SqlDataAdapter((String.Format("SELECT * FROM {0} WHERE {1} '{2}'", My.Settings.from, My.Settings.where, My.Settings.lyke)), (String.Format("Data Source={0};Initial Catalog={1};User Id={2};Password={3}", My.Settings.ip, My.Settings.db, My.Settings.user, My.Settings.pass))) sDs = New DataSet() sAdapter.Fill(sDs, (String.Format("{0}", My.Settings.from))) sTable = sDs.Tables(String.Format("{0}", My.Settings.from)) connection.Close() Catch ex As SqlException MsgBox(ex.Message) End Try DataGridView2.DataSource = sDs.Tables(String.Format("{0}", My.Settings.from)).DefaultView DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect End If End Sub