Imports System.Data
Imports System.Data.Common
 
Partial Class Default2
    Inherits System.Web.UI.Page
 
    Protected Sub btnSenden_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnSenden.Click
 
        Dim c As New SqlClient.SqlConnection
        Dim sqlCmd As New System.Data.SqlClient.SqlCommand
        Dim dt As New DataTable()
        Dim da As New SqlClient.SqlDataAdapter
 
        sqlCmd.Connection = c
 
        c.ConnectionString = "Data Source=DEGSQL01;Initial" & _
          "Catalog=Helpdesk;User Id=sa;Password=password"
        c.Open()
 
        sqlCmd.CommandText = "INSERT INTO Problem (Rechnername)" & "VALUES('" & _
          txtPCName.Text & "')"
 
        sqlCmd.Connection.Open()
        sqlCmd.ExecuteNonQuery()
 
        dt.Clear()
        da.Fill(dt)
        sqlCmd.Connection.Close()
 
    End Sub
End Class