VB.net数据库编程（07）：SQLserver中的通讯录-tutoriel mysql-php.cn

前面用过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','一个剑客')

Copier après la connexion

注：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

Copier après la connexion