前面用过Access的通讯录，下面用一个sqlserver的通讯录。
首先，在sql2012中建立一个表，插入一个记录：
@H_404_21@
useSales
go
createtabletxl
(tIDintidentity(10000,1)primarykey,
tNamevarchar(50)notnull,
tEmailvarchar(50),226); color:inherit; line-height:18px"> tMobilechar(11),85); line-height:18px"> tHomePhonevarchar(12),226); color:inherit; line-height:18px"> tMemovarchar(2000)--备注
)
insertintotxlvalues('令狐冲','yms@sohu.com','13681246528','62349087','一个剑客')
注：identity(seed,incre)第一个表示起点，第二表示增量。10000，1表示记录从10000开始，每一个记录数据增加加1.
所以第二条记录的标号就是10001.
下面用VB.net对其插入记录，并显示。
注意：sql语句中的单引号
[vb]
?
- ImportsSystem.Data.sqlClient
- PublicClassForm1
- DimcnAssqlConnection
- DimcmdAssqlCommand
- DimdaAssqlDataAdapter
- DimdsAsDataSet
- PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
- Try
- cn=NewsqlConnection("DataSource=.;InitialCatalog=Sales;IntegratedSecurity=False;UserID=sa;Password=123456;")
- cn.Open()
- cmd=NewsqlCommand("insertintotxlvalues('"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')",cn)
- cmd.ExecuteNonQuery()
- cn.Close()
- MessageBox.Show("插入成功")
- CatchexAsException
- MessageBox.Show(ex.ToString&cmd.CommandText)
- EndTry
- EndSub
- PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
- da=NewsqlDataAdapter("select*fromtxl",cn)
- ds=NewDataSet()
- da.Fill(ds,"txl")
- DataGridView1.DataSource=ds.Tables("txl")
- cn.Close()
- EndSub
- PrivateSubButton2_Click(senderAsObject,eAsEventArgs)
- EndClass