Torna al Thread

Dim query, query1 As String Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim Dat As Date Dim Mac, Pezzo, Turn As String Dim Tempo_Cicl As Integer Dim id, pez As String ' qui cerco di selezionare dalla tabella produzione turno,data,id_Macchina,Tipologia pezzo query1 = "SELECT Produzione.Data, Produzione.Turno, Produzione.Id_Macchina, Produzione.Tipologia_Pezzo FROM Produzione WHERE (((Produzione.Data)=Date())and (Produzione.Turno = Form_Inserimento_Dati_testa.Turno.value )and (Produzione.Id_Macchina = Form_Inserimento_Dati_testa.Id_Macchina.value ))" Set rs1 = CurrentDb.OpenRecordset(query1) Dat = (rs1("Data").Value) Turn = (rs1("Turno").Value) Mac = (rs1("Id_Macchina").Value) Pezzo = (rs1("Tipologia_Pezzo").Value) 'qui cerco di selezionare dalla tabella Tempo_Ciclo il valore del t. ciclo corrispondente a tipo_pezzo e id_Macchina selezionati e salvati in produzione query = "SELECT Tempo_Ciclo.Id_Macchina, Tempo_Ciclo.Tipo_pezzo, Tempo_Ciclo.Tempo_Ciclo FROM Tempo_Ciclo WHERE (((Tempo_Ciclo.Id_Macchina) = '" & Mac & "') And ((Tempo_Ciclo.Tipo_pezzo) = '" & Pezzo & "'))" Set rs = CurrentDb.OpenRecordset(query) Tempo_Cicl = (rs("Tempo_Ciclo").Value) 'inserisco nella terza tabella tempi il valore del tempo ciclo CurrentDb.Execute("INSERT INTO Tempi VALUES (Tempo_Cicl)") rs1.Close rs.Close
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5