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

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

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

[sql] view plain copy print ?

1. useSales
2. go
3. createtabletxl
4. (tIDintidentity(10000,1)primarykey,
5. tNamevarchar(50)notnull,
6. tEmailvarchar(50),226); color:inherit; line-height:18px"> tMobilechar(11),85); line-height:18px"> tHomePhonevarchar(12),226); color:inherit; line-height:18px"> tMemovarchar(2000)--备注
7. )
8. insertintotxlvalues('令狐冲','[e-mail]','13681246528','62349087','一个剑客')

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

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

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

注意：SQL语句中的单引号

[vb] ?

ImportsSystem.Data.SqlClient
2. PublicClassForm1
3. DimcnAsSqlConnection
4. DimcmdAsSqlCommand
5. DimdaAsSqlDataAdapter
6. DimdsAsDataSet
7. PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
8. Try
9. cn=NewSqlConnection("DataSource=.;InitialCatalog=Sales;IntegratedSecurity=False;UserID=sa;Password=123456;")
10. cn.Open()
11. cmd=NewSqlCommand("insertintotxlvalues('"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')",cn)
12. cmd.ExecuteNonQuery()
13. cn.Close()
14. MessageBox.Show("插入成功")
15. CatchexAsException
16. MessageBox.Show(ex.ToString&cmd.CommandText)
17. EndTry
18. EndSub
19. PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
20. da=NewSqlDataAdapter("select*fromtxl",cn)
21. ds=NewDataSet()
22. da.Fill(ds,"txl")
23. DataGridView1.DataSource=ds.Tables("txl")
24. cn.Close()
25. EndSub
27. PrivateSubButton2_Click(senderAsObject,eAsEventArgs)
28. EndClass