?
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