Rickysay Ответов: 3

Как преобразовать соединение adoDB в SqlConnection?

        Dim sString As String
        Dim sSql As String
        Dim sRS As New ADODB.Recordset
        Dim sConn As New ADODB.Connection
        Dim X As Integer
        Dim Y As Integer

        Me.lstEx.Text = ""
        sString = ""
        sSql = "Select TalentID From tbl_talent_databaseOrder by TalentID"
        sConn = CurrentProject.Connection
        sRS.Open(sSql, sConn, adOpenKeyset, adLockOptimistic)
        If Not sRS.EOF Then
            With sRS
                X = 0
                .MoveFirst()
                Do Until .EOF
                    Y = !TalentID
ChkSeq:
                    X = X + 1
                    If Y <> X Then 'chk to see if TalentID is sequential
                        sString = sString & X & " "  'if it is not, then record the non sequential number into the string
                        GoTo ChkSeq
                    End If
                    .MoveNext()
                Loop
            End With
        End If
        Me.lstEx.Text = sString
        sRS = Nothing


Как я могу преобразовать приведенные выше коды на комплимент метода sqlconnection?

3 Ответов

Рейтинг:
28

Zaf Khan

Вот еще несколько строк подключения для вас,
это показывает, как использовать подключение к источнику данных с помощью OLEDB.
Строку Подкл


А вот совместимый с MS-SQL преобразованный кодовый эквивалент вашего вышеприведенного кодового блока.

Function SomeKnockeUpCode() As String

	Dim intX As Integer = Nothing
	Dim intY As Integer = Nothing
	Dim strSting As String = Nothing
	Dim strSqlQUery As String = Nothing
	Dim cmdSqlCommand As Data.SqlClient.SqlCommand = Nothing
	Dim rdrDataReader As Data.SqlClient.SqlDataReader = Nothing

	'------------------------------------------------------------------------------------------------------------------------
	'-> Process
	'------------------------------------------------------------------------------------------------------------------------
	strSqlQUery = "Select TalentID From tbl_talent_database Order by TalentID"
	msSqlConnection = New Data.SqlClient.SqlConnection()
	'NOTE - You may need to CHECK your connection string!!! in the line below
	msSqlConnection.ConnectionString = CurrentProject.Connection
	cmdSqlCommand = New Data.SqlClient.SqlCommand(strSqlQUery, msSqlConnection)
	If cmdSqlCommand.Connection.State = Data.ConnectionState.Closed Then cmdSqlCommand.Connection.Open()
	rdrDataReader = cmdSqlCommand.ExecuteReader()
	If rdrDataReader.HasRows Then
		Do While rdrDataReader.Read()
			intX = 0
			intY = rdrDataReader.GetValue(rdrDataReader.GetOrdinal("TalentID"))
			Do While intX <> intY
				intX = intX + 1
				If intX <> intY Then
					strSting = strSting & intX & " "	'if it is not, then record the non sequential number into the string
				Else
					Exit Do
				End If
			Loop
		Loop
	End If
	If cmdSqlCommand.Connection.State = Data.ConnectionState.Open Then cmdSqlCommand.Connection.Close()
	'return string
	Return strSting
	'tidy up
	intX = Nothing
	intY = Nothing
	strSting = Nothing
	strSqlQUery = Nothing
	cmdSqlCommand = Nothing
	rdrDataReader = Nothing

End Function

‫بسام الهاملي‬‎

У МЕНЯ ЕСТЬ ВОПРОС О SQLCONNECTION
ЕСТЬ ЛИ КОД ДЛЯ SQLCONNECTION С ИСПОЛЬЗОВАНИЕМ UDL-ФАЙЛА

Рейтинг:
2

Zaf Khan

Я думаю, что вы можете управлять им с помощью OLEDB
Не цитируйте меня по этому поводу, так как я не уверен на 110%.

Может быть эта страница даст вам больше информации

Rickysay

Я так не думаю, так как использую MSSQL в качестве бэкенда.

Zaf Khan

Где ваша строка подключения? что вы используете для подключения к источнику данных?
Преобразовать кодовый блок выше не проблема.
но это не обязательно отвечает на ваш вопрос, который называется.....

Как преобразовать соединение ADODB в SQL.

Рейтинг:
2

‫بسام الهاملي‬‎

у меня есть вопрос о sqlconnection
есть ли код для sqlconnection с использованием udl-файла или этот файл не может быть связан с sqlconnection??

Richard MacCutchan

Это не решение, и этому вопросу уже почти 4 года.