Visual Basic Script поиск, информации в базе данных MS SQL сервер.
Пожалуйста помогите понять, в чём проблема. Написал скрипт для поиска номеров телефонов в базе данных. Суть скрипта в следующем я ввожу номер телефона. Ведётся поиск этого номера по базе MS SQL сервер. Когда номер находится, то у него считывается последний знак 0 или 1. Я написал тестовую программу, но почему то она выдаёт ошибки при подключении к базе данных ms sql сервер.
Вод код:' VB Script Document
option explicit
Dim cn
Dim rs
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "Password=1Q2W4R%#@;" & _
"Data Source = (local) BD Nom;" & "Password= 1Q2W4R%#@;" & _
"Initial Catalog =C:\Users\Сайя\Documents\Visual Studio 2010" & _
"\Projects\WindowsApplication2\WindowsApplication2\vic2.sdf"
cn = Open
Dim sql
Dim Po
Dim Kr
Po = "telephone number" 'Введите названия полей, в которых будет поиск
Kr = InputBox ("Введите критерий, в соответствии с которым будет поиск")
sql = "Select telephone_number, Pre-shared_key, The value of the Key" & _
"From DB phones Where '"+Kr+"' IN ("+Po+")"
Dim Hislo1 ,Hislo3
With rs
.Open sql, cn
.Input(.Open) = Hislo1
End With
If Hislo1 = Hislo3 Then
Hislo3 = Hislo1
End If
MsgBox("Результат поиска: " & Hislo3)
Set cn = Nothing
Set rs = Nothing
Вод код:' VB Script Document
option explicit
Dim cn
Dim rs
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "Password=1Q2W4R%#@;" & _
"Data Source = (local) BD Nom;" & "Password= 1Q2W4R%#@;" & _
"Initial Catalog =C:\Users\Сайя\Documents\Visual Studio 2010" & _
"\Projects\WindowsApplication2\WindowsApplication2\vic2.sdf"
cn = Open
Dim sql
Dim Po
Dim Kr
Po = "telephone number" 'Введите названия полей, в которых будет поиск
Kr = InputBox ("Введите критерий, в соответствии с которым будет поиск")
sql = "Select telephone_number, Pre-shared_key, The value of the Key" & _
"From DB phones Where '"+Kr+"' IN ("+Po+")"
Dim Hislo1 ,Hislo3
With rs
.Open sql, cn
.Input(.Open) = Hislo1
End With
If Hislo1 = Hislo3 Then
Hislo3 = Hislo1
End If
MsgBox("Результат поиска: " & Hislo3)
Set cn = Nothing
Set rs = Nothing
У вас переменные объявлены как Variant(16 байт + 1 бит/символ). Этот тип используется редко и только в том случаи. Если не известин результат вывода. А в некоторых случаях приводит к не правильным результатам.
Код:
Dim cn
Dim rs
Dim sql
Dim Po
Dim Kr
Dim cn As Object
Dim rs As Object
Dim sql As String
Dim Po As String
Dim Kr As String
' Или примерно так
Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
Set Conn = CreateObject("ADODB.Connection")
Set oRes = CreateObject("ADODB.Recordset")
Set oCmd = CreateObject("ADODB.command")
Conn.Open "Provider=SQLOLEDB;Password=@password;Persist Security
Info=True;User ID=Login;Initial Catalog=Mytable;Data Source=192.172.2.155"
Dim rs
Dim sql
Dim Po
Dim Kr
Dim cn As Object
Dim rs As Object
Dim sql As String
Dim Po As String
Dim Kr As String
' Или примерно так
Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
Set Conn = CreateObject("ADODB.Connection")
Set oRes = CreateObject("ADODB.Recordset")
Set oCmd = CreateObject("ADODB.command")
Conn.Open "Provider=SQLOLEDB;Password=@password;Persist Security
Info=True;User ID=Login;Initial Catalog=Mytable;Data Source=192.172.2.155"
Цитата: UserNet2008
У вас переменные объявлены как Variant(16 байт + 1 бит/символ)...
UserNet2008, в VBS, на котором пишет автор темы, существует только тип Variant.
Цитата:
UserNet2008, в VBS, на котором пишет автор темы, существует только тип Variant.
Dmitrii честно сказать не посмотрел в шапке темы Вод код:' VB Script Document
и полностью с вами согласен.