如何用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）然后直接在程序设计处附上以上源代码， 将上述 粗体字 修改成你建立的数据库的相应内容。 运行后，会出现你设计的窗体，在文本框内按照基本表的属性输入内容，单击按钮，即可添加进数据库。 这是我自己做的程序，正确添加，运行绝对是成功的。 如果还有什么问题，可以再和我联系。

---