我有这段代码:
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和用户名并传递给我的数据库
答案 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
结束班