1 pièce(s) jointe(s)
Connexion d'une table SQL server au Visual Basic-Impossible d'accéder à la table de destination
Salut tout le monde, j'ai besoin de votre aide :( !
J'ai créé une application qui a pour but d'importer un fichier Excel, de l'afficher sur un DataGrid, et de copier les données des différents champs de ce fichier vers une autre table crée sur SQL Server. Quand je demarre mon application, les données s'affichent sur le DataGrid comme s'est programmé, et après, un message d'erreur s'affiche :furieux: (Impossible d'accéder à la table de destination)(voir la prise d'écran).
D'abord, voilà mon Code VB :
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Private Sub BTN_PARC_Click(sender As Object, e As EventArgs) Handles BTN_PARC.Click
OpenFileDialog1.ShowDialog()
TXTB_PATH.Text = OpenFileDialog1.FileName
End Sub
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
'Le Label "Vous choisi la table :" est actif
Label2.Enabled = True
'Affecter la valeur de la combobox au label
Label3.ForeColor = Color.ForestGreen
Label3.Width = 25
Label3.Text = ComboBox1.Text
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'Activation du boutton "Suivant" après que la Progress Bar atteind son Max
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BTN.Enabled = True
End If
End Sub
Private Sub BTN_IMP_Click(sender As Object, e As EventArgs) Handles BTN_IMP.Click
'Demarrage de la Progress Bar après le clic sur "Importer"
ProgressBar1.Visible = True
Timer1.Start()
'Importer le fichier Excel après une connexion SQL
Dim CnxExcel As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TXTB_PATH.Text & ";Extended Properties=""Excel 12.0 XML;HDR=YES"";")
Dim CnxSQL As New SqlConnection("Data Source=AIMAN-PC;Initial Catalog=Excel1;Integrated security=True")
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim cmd As New OleDbCommand("Select * from [TT1$]", CnxExcel)
da.SelectCommand = cmd
da.Fill(ds, "page2")
DataGridView1.DataSource = ds.Tables("page2")
'Affectation des valeurs du fichier à la base données SQL crée
Dim InterTest As New SqlBulkCopy(CnxSQL)
CnxSQL.Open()
InterTest.DestinationTableName = "TT1"
InterTest.WriteToServer(ds.Tables("page2"))
End Sub
End Class |
Pièce jointe 147583
