使用ASP.NET / VB.NET将数据插入SQL数据库

时间:2011-11-21 13:02:36

标签: asp.net vb.net sql-server-2008 insert

我有这段代码:

    Dim myConn As SqlConnection
    Dim cmd As SqlCommand
    Dim sqlstring, DNAME, DEXP, DCREATION, DLASTUPDATE, DCOMMENTS As String

    DNAME = TextBox1.Text
    DEXP = TextBox2.Text
    DCREATION = TextBox3.Text
    DLASTUPDATE = TextBox4.Text
    DCOMMENTS = TextBox5.Text


    myConn = New SqlConnection("Integrated Security=SSPI;Data Source=.;Initial Catalog=DOMAIN_NAME;User ID=sa;Password=***********")

    myConn.Open()

    sqlstring = " INSERT INTO ROLAND (D_NAME, D_EXPIRATION, D_CREATION, D_LASTUPDATE,D_COMMENTS) VALUES ('" + DNAME + "','" + DEXP + "','" + DCREATION + "','" + DLASTUPDATE + "','" + DCOMMENTS + "')"

    cmd = New SqlCommand(sqlstring, myConn)

    cmd.ExecuteNonQuery()

    myConn.Close()

    Response.Redirect(Request.RawUrl, True)

当我执行时,它给了我这个错误:

Cannot open database "DOMAIN_NAME" requested by the login. The login failed.
Login failed for user 'comm-pc10\pcuser10.comm'.

并突出显示 myConn.Open()

这里有什么问题,有什么帮助吗?我有SQLServer 2008和用户名并传递给我的数据库

4 个答案:

答案 0 :(得分:2)

您已将安全性集成为ON,这意味着SQL Server使用Windows身份验证,因此会忽略您的用户和密码设置。我想你的Windows用户无法访问数据库。

设置“Integrated security = false”以使用用户名/密码。

答案 1 :(得分:1)

您正在使用与窗口使用身份验证相关联的Integrated Security = SSPI。 您应该将该用户添加到数据库以删除它。

答案 2 :(得分:0)

问题是连接字符串:

Initial Catalog = Database Name Not Domain Name

并确保您的用户ID和密码正确且Data Source是正确的服务器地址。

详见以下内容: Connection Strings

答案 3 :(得分:0)

'此代码有助于使用vb.net 2010从数据库访问多条记录 'sunil先生

导入系统

Imports System.Data

导入System.Data.SqlClient

导入System.Data.DataSet

导入System.Data.SqlTypes

公共类insert_extracode     Dim i As Int16     Private Sub insert_extracode_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)处理MyBase.Load

    i = 0

End Sub

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 adp As New SqlDataAdapter

    Dim data As New DataSet

    con.ConnectionString = "Data Source=DELL-PC\SQLEXPRESS;Initial Catalog=hotel;Integrated Security=True"

    cmd.Connection = con

    Dim str As String = "select * from customer"

    cmd = New SqlCommand(str, con)

    adp = New SqlDataAdapter(cmd)

    adp.Fill(data)

    TextBox1.Text = data.Tables(0).Rows(i).Item(0)
    TextBox2.Text = data.Tables(0).Rows(i).Item(1)
    TextBox3.Text = data.Tables(0).Rows(i).Item(2)
    i = i + 1
End Sub

结束班