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
| Sub generer_start_end_date()
Dim conn As New SqlConnection
Dim reader As SqlDataReader
Dim serverName As String = "basemaster"
Dim variable1 As String = dropdownlist1.SelectedItem.Text
Dim variable2 As String = dropdownlist2.SelectedItem.Text
'Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='PLT#49') AND ((dbo.technical_body.TB_KEY1)='PLT') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='" +variable2 + "') AND ((dbo.technical_body.TB_KEY1)='" + variable1 + "') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
conn.ConnectionString = "packet size=4096;user id=wpmreports;pwd=welcome;data source=""" & serverName & """;persist security info=False;initial catalog=DSDB"
conn.Open()
Dim cmd As SqlCommand
cmd = Nothing
cmd = New SqlCommand(request, conn)
reader = cmd.ExecuteReader
Dim tableau As String
While reader.Read
tableau(0) = reader.GetString(1) 'start date
tableau(1) = reader.GetString(2) 'end date
End While
reader.Close()
conn.Close()
Return tableau
End Sub |
