Imports System.Data.SqlClient
Dim sqlconn As New SqlConnection Dim sqlquery As New SqlCommand Dim connString As String Try connString = "Provider=SQLNCLI11;Data Source=MISKRISTIAN-PC\HMO_OPD;Integrated Security=SSPI;Initial Catalog=HMO_OPD_QUEUE" sqlconn.ConnectionString = connString sqlquery.Connection = sqlconn sqlconn.Open() sqlquery.CommandText = "INSERT INTO Query1([Number])VALUES(@Number)" sqlquery.Parameters.AddWithValue("@Number", NumApp.Text) sqlquery.ExecuteNonQuery() sqlconn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)