Erreur d'accés BDD oracle - référence d'objet non définie

Bonjour,

il vous manque l'instance de sel avec new

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Class Form1
  Dim sel As connecter.sauvgarderMAJ
  Dim rsql As String
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    rsql = "Insert into projet(prjno,prjnom,prjvil,datdeb,datfin)values(" & CInt(v1.Text) & "," & v2.Text & "," & v3.Text & "," & v4.Text & "," & v5.Text & ");"
    sel = new connecter.sauvgarderMAJ() ' Avec d'éventuels paramètres : sel = new connecter.sauvgarderMAJ(param1, param2) 
    sel.sauvgarde(rsql)
    MsgBox("insertion réussi")
    sel.fermerConnexion()
  End Sub
End Class

Après votre technique n'est vraiment pas bonne, vous risquez fortement d'avoir des problèmes dans votre requête s'il existe un champs de type VarChar. (ce qui a l'air d'être le cas, notament avec prjnom)
L'idéal étant d'utiliser les requêtes paramétrées, je vous ai fait un exemple à adapter au provider Oracle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        rsql = "Insert into projet(prjno,prjnom,prjvil,datdeb,datfin)values( :v1 , :v2 , :v3 , :v4 , :v5 )"
        Using con As New OleDb.OleDbConnection("MonConnectionString")
            con.Open()
            Using dc As New OleDb.OleDbCommand(rsq, con)
                dc.Parameters.Add("v1", OleDb.OleDbType.Integer).Value = CInt(v1.Text)
                dc.Parameters.Add("v2", OleDb.OleDbType.VarChar).Value = v2.Text
                dc.Parameters.Add("v3", OleDb.OleDbType.VarChar).Value = v3.Text
                dc.Parameters.Add("v4", OleDb.OleDbType.Date).Value = DateTime.Parse(v4.Text)
                dc.Parameters.Add("v5", OleDb.OleDbType.Date).Value = DateTime.Parse(v5.Text)
                dc.ExecuteNonQuery()
            End Using
        End Using
        MsgBox("insertion réussi")
    End Sub