VB.net数据库编程(07):SQLserver中的通讯录

前端之家收集整理的这篇文章主要介绍了VB.net数据库编程(07):SQLserver中的通讯录前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
前面用过Access的通讯录,下面用一个sqlserver的通讯录。


首先,在sql2012中建立一个表,插入一个记录:

  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('令狐冲','yms@sohu.com','13681246528','62349087','一个剑客')

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

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


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

注意:sql语句中的单引号


[vb] ?
    ImportsSystem.Data.sqlClient
  1. PublicClassForm1
  2. DimcnAssqlConnection
  3. DimcmdAssqlCommand
  4. DimdaAssqlDataAdapter
  5. DimdsAsDataSet
  6. @H_301_238@ PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click @H_301_238@ Try
  7. cn=NewsqlConnection("DataSource=.;InitialCatalog=Sales;IntegratedSecurity=False;UserID=sa;Password=123456;")
  8. cn.Open()
  9. cmd=NewsqlCommand("insertintotxlvalues('"&TextBox1.Text&"','"&TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')",cn)
  10. cmd.ExecuteNonQuery()
  11. cn.Close()
  12. MessageBox.Show("插入成功")
  13. CatchexAsException
  14. MessageBox.Show(ex.ToString&cmd.CommandText)
  15. EndTry
  16. EndSub
  17. @H_301_238@ PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click @H_301_238@ da=NewsqlDataAdapter("select*fromtxl",cn)
  18. ds=NewDataSet()
  19. da.Fill(ds,"txl")
  20. DataGridView1.DataSource=ds.Tables("txl")
  21. cn.Close()
  22. EndSub
  23. PrivateSubButton2_Click(senderAsObject,eAsEventArgs)
  24. EndClass




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

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

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

猜你在找的VB相关文章