打开SSMS,新建查询
use Sales
go
create table txl
(
tID int identity(10000,1) Primary key,
tName varchar(50) not null,
tEmail varchar(50),
tMobile char(11),
tHomePhone varchar(12),
tMemo varchar(2000)
)
insert into txl
values('秦桧','qh@163.com','13999999999','12345678','大汉奸')
添加一个模块
Imports System.Data.SqlClient
Module Module1
Public conn As New SqlConnection(My.Settings.SalesConnectionString)
Public comm As SqlCommand
End Module
主窗体
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim tUserName As String = TextBox1.Text
Dim tEmail As String = TextBox2.Text
Dim tMobile As String = TextBox3.Text
Dim tPhone As String = TextBox4.Text
Dim tMemo As String = TextBox5.Text
conn.Open()
Dim sqlStr As String = "Insert Into txl values('" & tUserName & "','" & tEmail & "','" & tMobile & "','" & tPhone & "','" & tMemo & "')"
comm = New SqlCommand(sqlStr, conn)
comm.ExecuteNonQuery()
conn.Close()
MsgBox("保存成功")
End Sub
Private Sub btnLook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLook.Click
Dim frm As New Form2
frm.Show()
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
End Class
查看窗体
Imports System.Data.SqlClient
Public Class Form2
Dim ds As New DataSet
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ds.Tables.Clear()
DataGridView1.DataSource = Nothing
conn.Open()
Dim sqlStr As String = "select * from txl"
comm = New SqlCommand(sqlStr, conn)
Dim adapter As New SqlDataAdapter(comm)
adapter.Fill(ds, "txl")
conn.Close()
DataGridView1.DataSource = ds.Tables("txl")
End Sub
End Class