DB соединение не открыто

Question

я попробовать этот простой код с подключением к OLEDB, но соединение не открыто

Imports System.Data.OleDb 
Public Class WebForm2 
    Inherits System.Web.UI.Page 
    Protected Sub SubmitButton_Click(sender As Object, e As EventArgs) Handles SubmitButton.Click 

     Dim connetionString As String 
     Dim cnn As OleDbConnection 
     connetionString = "Provider=SQLOLEDB;Data Source=((localdb)\v11.0);Initial Catalog=test;User Id=MyUsername; Password=MyPassword;Integrated Security=SSPI;" 
     cnn = New OleDbConnection(connetionString) 
     Try 
      cnn.Open() 
      MsgBox("Connection Open ! ") 
      cnn.Close() 
     Catch ex As Exception 
      MsgBox("Can not open connection ! ") 
     End Try 

я также попробовать это строки соединения

 connetionString = "Provider=SQLOLEDB;Data Source=test;Integrated Security=SSPI;" 

же DB хорошо работает с SQL клиентом это соединение строки

Imports System.Data.SqlClient 

Public Class WebForm2 

    Inherits System.Web.UI.Page 
    Dim globalp As String 
    Dim globals As String 
    Private strConn As String = "Data Source=(localdb)\v11.0;Initial Catalog=test;Integrated Security=True" 

экстренный код не упоминается для простоты вопроса. любая вещь дополнительно требуется поэтому просьба указать в комментариях. еще одна проблема заключается в том, что некоторые сказали мне, что эта проблема возникает из-за проверки подлинности SQL Server Я пытаюсь изменить режим проверки подлинности в визуальной студии, встроенной в sql-сервер, но я не получаю всплывающее меню свойств или прямо внизу в разделе угла свойства, из обозревателя объектов,

Новая ошибка происходит в этом разделе кода `ИМПОРТНОЕ System.Data.OleDb

Открытый класс WebForm2

Inherits System.Web.UI.Page 
Dim globalp As String 
Dim globals As String 
'Dim strConn As String = "Provider=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=((localdb)\v11.0);Initial Catalog=test;Integrated Security=SSPI;" 
Dim strConn As String = "Provider=SQLNCLI11.1;Integrated Security=SSPI;Initial Catalog=Test;Data Source=(localdb)\v11.0;" 

Dim conn As OleDbConnection 
' Dim strConn As String = "Provider=SQLOLEDB; Data Source=(localdb)\v11.0; Initial Catalog=test; Integrated Security=SSPI" 
' Private strConn As String = " Provider=Microsoft.Jet.OLEDB.4.0; Data Source=(localdb)\v11.0;Initial Catalog=test; User Id=MyUsername; Password=MyPassword" 
' Private sqlCon As OleDbCommand 
'Private strConn As OleDbCommand 
'Provider=SQLOLEDB; 


Protected Sub SubmitButton_Click(sender As Object, e As EventArgs) Handles SubmitButton.Click 


    If Page.IsValid Then 

     ' cnn = New OleDbConnection(strConn) 
     ' cnn.Open() 
     ' MsgBox("Connection Open ! ") 
     ' cnn.Close() 





     'sqlComm.CommandText = "sp1_userinformation" 
     ' sqlComm.CommandType = CommandType.StoredProcedure 



     ' sqlComm.Parameters.AddWithValue("UserName", name.Text) 
     ' sqlComm.Parameters.AddWithValue("pass_word", fname.Text) 
     ' sqlComm.Parameters.AddWithValue("CNIC", (cnic.Text)) 
     ' sqlComm.Parameters.AddWithValue("PartialAddress", (limitedtextarea.Text)) 
     ' sqlComm.Parameters.AddWithValue("Email", (email.Text)) 

     ' sqlCon.Open() 
     'lcit.Text = sname 
     ' sqlComm.ExecuteNonQuery() 
     ' Dim sname As String = name.Text 
     Dim sfname As String = fname.Text 
     Dim scnic As String = cnic.Text 
     Dim slimit As String = limitedtextarea.Text 
     Dim semail As String = email.Text 
     Dim stel As Int64 = Int64.Parse(tel.Text) 
     Dim stel1 As Int64 = 0 & stel 
     Dim query As String = String.Empty 
     Dim sdob As Date = Date.Parse(dob.Text) 

     query &= "INSERT INTO Userinfo (UserName, pass_word, CNIC, " 
     query &= "      PartialAddress, Email, Telephone,DateOfBirth) " 
     query &= "VALUES (@colName,@colID, @colPhone, @colBranch,@colCourse,@coldblFee,@dobv)" 
     ' query &= "      PartialAddress, Email) " 
     ' query &= "VALUES (@colName,@colID, @colPhone, @colBranch,@colCourse)" 
     ' Using (sqlCon) 
     'sqlCon = New SqlConnection(strConn) 
     ' Dim sqlComm As New SqlCommand() 

     ' sqlComm.Connection = sqlCon 
     Using conn As New OleDbConnection(strConn) 
      Using comm As New OleDbCommand() 
       With comm 
        .Connection = conn 
        .CommandType = CommandType.Text 
        .CommandText = query 
        .Parameters.AddWithValue("@colName", username.Text) 
        .Parameters.AddWithValue("@colID", sfname) 
        .Parameters.AddWithValue("@colPhone", scnic) 
        .Parameters.AddWithValue("@colBranch", slimit) 
        .Parameters.AddWithValue("@colCourse", semail) 
        .Parameters.AddWithValue("@coldblFee", stel1) 
        .Parameters.AddWithValue("@dobv", sdob) 


       End With 
       ' Try 
       conn.Open() 
       comm.ExecuteNonQuery() 
       ' Catch(ex as SqlException) 
       'MessageBox.Show(ex.Message.ToString(), "Error Message") 
       ' End Try 
      End Using 
     End Using 

     ' End Using 

    End If 


End Sub` 

ошибка (Необходимо объявить скалярную переменную "@colName" .)
ошибка расположение comm.ExecuteNonQuery()

Answer 1

Попробуйте с SQL Server Native Client вместо:

Provider=SQLNCLI11.1;Integrated Security=SSPI;Initial Catalog=Test;Data Source=(localdb)\v11.0; 

EDIT:

Ваш код будет:

Dim connetionString As String 
    Dim cnn As OleDbConnection 
    connetionString = "Provider=SQLNCLI11.1;Integrated Security=SSPI;Initial Catalog=Test;Data Source=(localdb)\v11.0;" 
    cnn = New OleDbConnection(connetionString) 
    Try 
     cnn.Open() 
     MsgBox("Connection Open ! ") 
     cnn.Close() 
    Catch ex As Exception 
     MsgBox("Can not open connection ! ") 
    End Try 

Side Примечание: SQL LocalDB не работает со стандартной аутентификацией SQL Server, он работает только с интегрированной аутентификацией Windows.

Answer 2

Использование позиционных параметров OleDbCommand и знак вопроса? как маркер параметра, так же как и SqlCommand, который использует именованные параметры. Таким образом, оператор SQL должен быть:

INSERT INTO Userinfo 
(
    UserName, pass_word, CNIC, PartialAddress, 
    Email, Telephone, DateOfBirth 
) 
VALUES (?,?, ?, ?,?,?,?) 

Чтобы добавить параметры в коллекции OleDbCommand.Parameters вам не нужно ничего менять, вы можете использовать имя параметра, который вы хотите, пока все имена параметров различны. Но помните, вам нужно добавить параметры по порядку, потому что параметры позиционные.