VB怎么在SQL2000数据库中添加一条新记录啊?具体代码怎么写?给个例子给...

发布网友发布时间：2024-09-28 08:02

共1个回答

热心网友时间：2024-10-23 21:04

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