SQL

VYSTUPNI PARAMETR ULOZENE PROCEDURY SQL

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub naplnTabulku()
 
    Dim connectionString As String = "SERVER=serverXY;DATABASE=testovaci_db;UID=dbUser;PWD=user123"
    Dim spojeni As New SqlClient.SqlConnection(connectionString)
    Dim dt As Data.DataTable = New Data.DataTable
    Dim jmeno As String
 
 
 
    jmeno = InputBox("jmeno")
    Dim da As New SqlClient.SqlDataAdapter("procedura1 @jmeno", spojeni)
 
 
 
 
 
    da.Fill(dt)
    frmAplikace.DgvOdlozenePozadavky.DataSource = dt
 
 
End Sub

VYSTUPNI PARAMETR ULOZENE PROCEDURY SQL

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub naplnTabulku()
 
    Dim connectionString As String = "SERVER=serverXY;DATABASE=testovaci_db;UID=dbUser;PWD=user123"
    Dim spojeni As New SqlClient.SqlConnection(connectionString)
    Dim dt As Data.DataTable = New Data.DataTable
    Dim jmeno As String
 
 
 
    jmeno = InputBox("jmeno")
    Dim da As New SqlClient.SqlDataAdapter("procedura1 @jmeno", spojeni)
 
 
 
 
 
    da.Fill(dt)
    frmAplikace.DgvOdlozenePozadavky.DataSource = dt
 
 
End Sub

VYSTUPNI PARAMETR ULOZENE PROCEDURY SQL

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub naplnTabulku()
 
    Dim connectionString As String = "SERVER=serverXY;DATABASE=testovaci_db;UID=dbUser;PWD=user123"
    Dim spojeni As New SqlClient.SqlConnection(connectionString)
    Dim dt As Data.DataTable = New Data.DataTable
    Dim jmeno As String
 
 
 
    jmeno = InputBox("jmeno")
    Dim da As New SqlClient.SqlDataAdapter("procedura1 @jmeno", spojeni)
 
 
 
 
 
    da.Fill(dt)
    frmAplikace.DgvOdlozenePozadavky.DataSource = dt
 
 
End Sub