小编Mar*_*ipo的帖子

VB快递2010

1个表单,1个文本框,1个按钮

我通过单击Project>add new item>service based database>并命名为DXDB 创建了.mdf sql数据库文件- 表名DXtest和1列名为test

似乎代码工作..当我右键单击DXtest并单击show table data ...没有任何东西... =(看起来它并没有真正插入数据库本身...

这是完整的代码

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

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


        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        Dim Tx1 As String

        Tx1 = TextBox1.Text

        con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DXDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

        con.Open()

        cmd.Connection = con
        cmd.CommandText = "INSERT INTO DXTest(Test) VALUES(@Tx1)"
        cmd.Parameters.Add("@Tx1", SqlDbType.VarChar, 50).Value = Tx1
        cmd.ExecuteNonQuery()

        con.Close()

    End Sub …