Torna al Thread
strInsert = "INSERT INTO R5EVENTS(EVT_DESC,EVT_DATE,EVT_STATUS,EVT_RSTATUS,EVT_OBJECT,EVT_SQLIDENTITY,EVT_TYPE,EVT_RTYPE,EVT_MRC,EVT_COSTCODE,EVT_PERSON,EVT_ENTEREDBY,EVT_UDFCHAR01,EVT_UDFCHAR02,LUOGO1,LUOGO2,LUOGO3,EVT_ORIGIN,EMAIL_RICHIEDENTE)" _
& "VALUES('" & Me.txtDescrizione.Text & "',CDate(NOW()),'Q','Q',''," & dt.Rows(0)("MAXSQL") & ",'MAN','MAN','*','" & Me.lstCostcenter.SelectedValue & "','" & Me.txtResponsabile.Text & "','" & Me.txtReferente.Text & "','" & Me.txtTelReferente.Text & "','" & Me.txtPiano.Text & "','" & Me.lstSettore.SelectedItem.Text & "','" & Me.txtstanza.Text & "','" & Me.txtApparecchiatura.Text & "','" & Me.txtRichiedente.Text & "','" & Me.txtMailRichiedente.Text & "')"
If Dm.nonQryExecute(strInsert) Then
Public Function nonQryExecute(ByVal strNonQry As String) As Boolean
Dim bReturn As Boolean = False
Me.readIniFile(Percorso)
setConn(getDbName(), getDbPass(), getDbUser(), getServerName())
Dim cmd As New OleDbCommand
Try
Conn.Open()
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandText = strNonQry
cmd.ExecuteNonQuery()
bReturn = True
Catch ex As Exception
bReturn = False
Finally
Conn.Close()
End Try
Return bReturn
End Function