Imports System.Data.Sql Imports System.Data.SqlClient Public Class Form1 Dim cnn As New SqlConnection Dim cmd As New SqlCommand Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cmd.Connection = cnn cmd = New SqlCommand("insert into info(id, address) values('" & TextBox1.Text & "','" & TextBox2.Text & "')", cnn) cmd.ExecuteNonQuery() MsgBox("data saved successfully.") cnn.Close() End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load cnn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\Database1.mdf; Integrated Security=True;User Instance=True" cnn.Open() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)