如何用VB向SQL数据库中添加记录

Sub 添加_OnClick(ByVal sender As Object, ByVal e As EventArgs)

Dim SqlConn As New SqlConnection

SqlConn.ConnectionString = "Persist Security Info=trueInitial Catalog=Datauid=sapwd=123456Data Source=."

SqlConn.Open()

Dim SqlCmd As New SqlCommand

SqlCmd.Connection = SqlConn

SqlCmd.CommandText = "Insert into #table (客户编号,性别,电话,电子信箱,地址,住址)values('" &客户编号.Text &"','" &性别.Text &"','" &电话.Text&"','" &电子信箱.Text &"'," &地址.Text &",'" &住址.Text &"')"

SqlCmd.ExecuteNonQuery()

SqlConn.Close()

End Sub

Imports System Imports System.Drawing Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports System.Data Imports System.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " …… //此处代码会在你设计窗体的同时自动生成 Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click Dim cnn As System.Data.SqlClient.SqlConnection Dim da As System.Data.SqlClient.SqlDataAdapter Dim ds As System.Data.DataSet Dim strCnn, strSql As String strCnn = "Data Source=(local)Initial Catalog= 数据库的名称 Trusted_Connection=Yes" cnn = New SqlConnection(strCnn) cnn.Open() strSql = "insert into 基本表名 values('" &TextBox1.Text &"','" &TextBox2.Text &"',……)" //有几个文本框（即TextBox）即以此方式写几项 Dim comd As New SqlCommand(strSql, cnn) comd.ExecuteNonQuery() End Sub 窗体上添加几个文本框（TextBox）和一个名叫insert的按钮（bottom）然后直接在程序设计处附上以上源代码， 将上述 粗体字 修改成你建立的数据库的相应内容。 运行后，会出现你设计的窗体，在文本框内按照基本表的属性输入内容，单击按钮，即可添加进数据库。 这是我自己做的程序，正确添加，运行绝对是成功的。 如果还有什么问题，可以再和我联系。

Adodc2.RecordSource = "select * from 表 where 用户名 like '" &Text1.Text &"'"

Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then

MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"

Text1.SetFocus

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Else

'若该用户名还未在表中出现，则增加该用户信息的语句是：

Adodc2.Recordset.AddNew

Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text)

Adodc2.Recordset.Fields("密码") = Trim(Text2.Text)

Adodc2.Recordset.Fields(2) = Trim(Text5.Text)

Adodc2.Recordset.Fields(3) = Trim(Text4.Text)

Adodc2.Recordset.Update

MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"

Form1.Show 1 ‘增加新用户名之后显示登录窗口登录

endif

---