|
Cely kód je zde :
Dim sqlConnection As New SqlConnection(ConnectionString) ' inicializace objektu spojení na databázi
Dim sqlCommand As New SqlCommand("select * from tabulka where podminka1 = @VYRP and podminka2 = @op", sqlConnection) ' vytvoření dotazu a předání připojení
sqlCommand.Parameters.AddWithValue("@VYRP", vp) ' přidat parametr do dotazu
sqlCommand.Parameters.AddWithValue("@op", oper) ' přidat parametr do dotazu
sqlConnection.Open() ' pomocí dat z ConnectionStringu spojení otevřeme
Dim dataReader As SqlDataReader = sqlCommand.ExecuteReader()
frm.Label16.Text = dataReader("x1")
frm.Label11.Text = dataReader("x2") dataReader.Close()
sqlConnection.Close()
|