Bonjour, je viens de programmer sur visual basic 2010 et sql server.
j'ai connecter le programme avec ma base de donner. Quand je fait l'execution il m'affiche le message suivant:
L'exception SqlException n'a pas été gérée
invalide object name clubee <-(c'est une table dans ma base de donner).
voici mon code:
Option Strict On
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection
Public cmd As SqlCommand
Public rd As SqlDataReader
Public t As DataTable
Sub connecter()
Try
con = New SqlConnection("initial catalog=dbclube;data source=DESKTOP-6IR7NSF\SQLEXPRESS;integrated security=true;")
con.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub deconnecter()
Try
con.Close()
Catch ex As Exception
MessageBox.Show("Erreur de déconnexion!")
End Try
End Sub
Function getTable(ByVal req As String) As DataTable
cmd = New SqlCommand(req, con)
rd = cmd.ExecuteReader
t = New DataTable
t.Load(rd)
rd.Close()
Return t
End Function
Function setreq(ByVal req As String) As Integer
cmd = New SqlCommand(req, con)
Return cmd.ExecuteNonQuery()
End Function
End Module
AIDER MOI SVP!
Merci!
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI
J'ai ajouté la coloration syntaxique.
Avec le bout de code, je ne vois pas où ça parle de l'objet en cause.
Si cela est en lien avec une requête SQL, il serait bien de la voir.
Option Strict On
Public Class Form1
Sub chargerclub()
cbclub.DisplayMember = "nomcl"
cbclub.ValueMember = "codecl"
cbclub.DataSource = getTable("select*from clubee")
End Sub
Sub listermembre(ByVal n As String)
Dim req As String
req = "select codem as [Code], nomm as [Nom de famille], prenomm as [Nom propre] emailm as [Email], nomcl as [club] from membre m inner join clubee c on m.nomcl=c.nomcl"
dgvliste.DataSource = getTable(req)
End Sub
Function formvalide() As Boolean
If txtnom.Text.Trim.Equals("") Or txtprenom.Text.Trim.Equals("") Or txtemail.Text.Trim.Equals("") Or txttel.Text.Trim.Equals("") Then
Return False
End If
Return True
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connecter()
chargerclub()
listermembre("")
End Sub
Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged
listermembre(txtsearch.Text)
End Sub
Sub nouvelcode()
Dim x As DataTable = getTable("select max(codem)from membre")
Dim n As Integer = CInt(x.Rows(0).Item(0).ToString)
n += 1
txtcode.Text = n.ToString
End Sub
Private Sub cmbcode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbcode.Click
nouvelcode()
End Sub
Private Sub cmbEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbEnregistrer.Click
If Not formvalide() Then
MessageBox.Show("formulaire invalide")
Exit Sub
End If
Dim r As String = "insert into membre values(" + txtcode.Text + ",'" + txtnom.Text + "','" + txtprenom.Text + "','" + txtemail.Text + "','" + txttel.Text + "'," + cbclub.SelectedValue.ToString + ")"
setreq(r)
listermembre("")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pos As Integer = dgvliste.CurrentRow.Index
If pos = -1 Then Exit Sub
Dim n As Integer = CInt(dgvliste.Rows(pos).Cells(0).Value.ToString)
Dim rep As DialogResult = MessageBox.Show("delete?", "choix", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If rep <> DialogResult.Yes Then Exit Sub
Dim r As String = "delete from membre where codem=" + n.ToString
setreq(r)
listermembre("")
End Sub
End Class
<code basic>
</code>
peut etre que c'est "select * from clubee"
- Messages postés
-
14666
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 15 mai 2020
143 > hibaAvec le bout de code, je ne vois pas où ça parle de l'objet en cause.
Si cela est en lien avec une requête SQL, il serait bien de la voir.