数据库开发014通讯录

打开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('秦桧','[e-mail]','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