Private Sub addquerie(ByVal wert As String)
Dim cn As OleDbConnection = Nothing
Dim cmd As OleDbCommand
Dim ret As Integer
Dim query As String = "INSERT INTO tblTest ( T_P_NR ) VALUES ('" & wert & "');"
cn = New OleDbConnection(mDB_CONNECTION)
cn.Open()
cmd = New OleDbCommand(query, cn)
ret = cmd.ExecuteNonQuery
cn.Close()
cn = Nothing
End Sub
|
|
|
Private Sub addquerie(ByVal wert As String)
Using cn As New OleDbConnection(mDB_CONNECTION)
Try
cn.Open()
Dim query As String = "INSERT INTO tblTest ( T_P_NR ) VALUES (@wert);"
Dim cmd As New OleDbCommand(query, cn)
cmd.Parameters.AddWithValue("@wert", wert)
cmd.ExecuteNonQuery()
Finally
if cn.State <> ConnectionState.Close then
cn.Close()
end if
End Try
End Using
End Sub
|
|
|
