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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VB.net数据库编程（07）：SQLserver中的通讯录，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2480字，纯文字阅读大概需要4分钟。

内容图文

前面用过Access的通讯录，下面用一个SQLserver的通讯录。 首先，在SQL2012中建立一个表，插入一个记录： use Salesgocreate table txl( tID int identity(10000,1) primary key, tName varchar(50) not null, tEmail varchar(50), tMobile char(11), tHomePh

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

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

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

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

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

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

注意：SQL语句中的单引号

Imports System.Data.SqlClient

Public Class Form1
    Dim cn As SqlConnection
    Dim cmd As SqlCommand
    Dim da As SqlDataAdapter
    Dim ds As DataSet

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try
            cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")
            cn.Open()
            cmd = New SqlCommand("insert into txl values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", cn)
            cmd.ExecuteNonQuery()
            cn.Close()
            MessageBox.Show("插入成功")
        Catch ex As Exception
            MessageBox.Show(ex.ToString & cmd.CommandText)
        End Try
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")
        da = New SqlDataAdapter("select * from txl", cn)
        ds = New DataSet()
        da.Fill(ds, "txl")
        DataGridView1.DataSource = ds.Tables("txl")
        cn.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
        Try
            cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")
            cn.Open()
            cmd = New SqlCommand("insert into txl values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", cn)
            cmd.ExecuteNonQuery()
            cn.Close()
            MessageBox.Show("插入成功")
        Catch ex As Exception
            MessageBox.Show(ex.ToString & cmd.CommandText)
        End Try
    End Sub
End Class

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

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

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

内容总结

以上是互联网集市为您收集整理的VB.net数据库编程（07）：SQLserver中的通讯录全部内容，希望文章能够帮你解决VB.net数据库编程（07）：SQLserver中的通讯录所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---