1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
| Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim connectionstring As String = "Data Source=SV42******;Initial Catalog=bas******;Persist Security Info=True;User ID=*******;Password=*********"
Dim Table_P_ASME_SI As System.Data.DataTable
Dim ligne As DataRowView
Dim ligneTrouvees() As DataRowView
Dim criteres() As Object
cn = New SqlConnection(connectionstring)
cn.Open()
cmd.Connection = cn
cmd.CommandText = "SELECT * from P_ASME_SI"
da = New SqlDataAdapter(cmd)
da.Fill(ds, "P_ASME_SI")
Table_P_ASME_SI = ds.Tables("P_ASME_SI")
Table_P_ASME_SI.DefaultView.Sort = "Product_Form ASC, Nom ASC, LowHigh ASC"
criteres = (New Object() {ProductForm, Nom, indiceLH})
ligneTrouvees = Table_P_ASME_SI.DefaultView.FindRows(criteres)
If ligneTrouvees.Length = 0 Then
indiceLH = "b "
Table_P_ASME_SI.DefaultView.Sort = "Product_Form ASC, Nom ASC, LowHigh ASC"
criteres = (New Object() {ProductForm, Nom, indiceLH})
ligneTrouvees = Table_P_ASME_SI.DefaultView.FindRows(criteres)
If ligneTrouvees.Length = 0 Then
'MsgBox("Il n'y a pas de valeurs de contraintes admissibles pour le matériau choisi, veuillez en saisir une ou vérifier qu'elle existe.")
Else
End If
End If
If ligneTrouvees.Length = 0 Then
'MsgBox("Il n'y a pas de valeurs pour le matériau choisi.")
Else
For Each ligne In ligneTrouvees
'ligne.Item(i) = ligneTrouvees.GetValue(i)
'i += 1
'If ligne.Item(3) = "c " Then
' 'MsgBox(String.Concat("Nom : {0}", ligne("Nom")))
' TB_metSa.Text = ligne.Item(3)
'End If
'If ligne.Item(3) = "b " Then
' TB_metSa.Text = ligne.Item(3)
'End If
' Recherche des bornes inférieure et supérieure des températures
If TempCelsius < -30 Then 'And ligne.Item(8) IsNot "{System.DBNull}" Then
dStressAllowInf = 0
dStressAllowSup = ligne.Item(8)
dTemperatureInf = 0
dTemperatureSup = -30
ElseIf TempCelsius <= 40 Then
dTemperatureInf = -30
dTemperatureSup = 40
If ligne.Item(8) IsNot "{System.DBNull}" And ligne.Item(9) IsNot "{System.DBNull}" Then
dStressAllowInf = ligne.Item(8)
dStressAllowSup = ligne.Item(9)
Else
dStressAllowInf = 0
dStressAllowSup = 0
End If
ElseIf TempCelsius <= 65 Then
dTemperatureInf = 40
dTemperatureSup = 65
If ligne.Item(9) IsNot "{System.DBNull}" And ligne.Item(10) IsNot "{System.DBNull}" Then
dStressAllowInf = ligne.Item(9)
dStressAllowSup = ligne.Item(10)
Else
dStressAllowInf = 0
dStressAllowSup = 0
End If
ElseIf TempCelsius <= 100 Then
dTemperatureInf = 65
dTemperatureSup = 100
If ligne.Item(10) IsNot "{System.DBNull}" And ligne.Item(11) IsNot "{System.DBNull}" Then
dStressAllowInf = ligne.Item(10)
dStressAllowSup = ligne.Item(11)
Else
dStressAllowInf = 0
dStressAllowSup = 0
End If
ElseIf TempCelsius <= 900 Then
i = 0
While TempCelsius <= 900 - (i * 25)
dTemperatureInf = 900 - ((i + 1) * 25)
dTemperatureSup = 900 - (i * 25)
i += 1
End While
If ligne.Item(44 - i) IsNot "DBNull" _
And ligne.Item(44 - i + 1) IsNot Nothing Then
dStressAllowInf = ligne.Item(44 - i)
dStressAllowSup = ligne.Item(44 - i + 1)
Else
If ligne.Item(44 - i) IsNot "{System.DBNull}" _
And ligne.Item(44 - i + 2) IsNot "{System.DBNull}" _
And TempCelsius <= 875 Then
dStressAllowInf = ligne.Item(44 - i)
dStressAllowSup = ligne.Item(44 - i + 2)
Else
If ligne.Item(44 - i - 1) IsNot "{System.DBNull}" _
And ligne.Item(44 - i + 1) IsNot "{System.DBNull}" _
And TempCelsius <= 875 Then
dStressAllowInf = ligne.Item(44 - i - 1)
dStressAllowSup = ligne.Item(44 - i + 1)
End If
End If
End If
End If
Next
End If |
Partager