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
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5