VB.net数据库编程（07）：SQLserver中的通讯录

前面用过Access的通讯录，下面用一个SQLserver的通讯录。

首先，在SQL2012中建立一个表，插入一个记录：

[sql]  view plain copy print ?

1. use Sales  
2. go  
3. create table txl  
4. ( tID int identity(10000,1) primary key,  
5.   tName varchar(50) not null,  
6.   tEmail varchar(50),  
7.   tMobile char(11),  
8.   tHomePhone varchar(12),  
9.   tMemo varchar(2000) --备注  
10. )  
11. insert into txl values('令狐冲','yms@sohu.com','13681246528','62349087','一个剑客')  

注：identity(seed,incre)第一个表示起点，第二表示增量。10000，1表示记录从10000开始，每一个记录数据增加加1.

        所以第二条记录的标号就是10001.

下面用VB.net对其插入记录，并显示。

注意：SQL语句中的单引号

[vb]  view plain copy print ?

1. Imports System.Data.SqlClient  
2.   
3. Public Class Form1  
4.     Dim cn As SqlConnection  
5.     Dim cmd As SqlCommand  
6.     Dim da As SqlDataAdapter  
7.     Dim ds As DataSet  
8.   
9.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
10.   
11.         Try  
12.             cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")  
13.             cn.Open()  
14.             cmd = New SqlCommand("insert into txl values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", cn)  
15.             cmd.ExecuteNonQuery()  
16.             cn.Close()  
17.             MessageBox.Show("插入成功")  
18.         Catch ex As Exception  
19.             MessageBox.Show(ex.ToString & cmd.CommandText)  
20.         End Try  
21.     End Sub  
22.   
23.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  
24.         cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")  
25.         da = New SqlDataAdapter("select * from txl", cn)  
26.         ds = New DataSet()  
27.         da.Fill(ds, "txl")  
28.         DataGridView1.DataSource = ds.Tables("txl")  
29.         cn.Close()  
30.     End Sub  
31.   
32.     Private Sub Button2_Click(sender As Object, e As EventArgs)  
33.         Try  
34.             cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")  
35.             cn.Open()  
36.             cmd = New SqlCommand("insert into txl values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", cn)  
37.             cmd.ExecuteNonQuery()  
38.             cn.Close()  
39.             MessageBox.Show("插入成功")  
40.         Catch ex As Exception  
41.             MessageBox.Show(ex.ToString & cmd.CommandText)  
42.         End Try  
43.     End Sub  
44. End Class  

由引我们学习了Access和SQlserver查看记录和修改记录的例子。

一，查询与非查询的操作。

二，存储过程的操作，参数是如何添加的。