Работа с Access

[Alexey-VB]

Подскажите как дописать код. Нужно открыть файл Access и из таблицы значений выбрать - подходящее.

Начал с примера так:

Код: Выделить всё

        myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\iptocountry.mdb;"
        myConn.Open()
        strSQL = "select co_name from ip_base where ip_from<=" & IPNumber & "and ip_to>=" & IPNumber

А вот что писать после этого? Нужно получить данные с колонки "co_code", которая будет соответствовать выбранному значению.

[Nord777]

Код: Выделить всё

         Dim command As New OleDbCommand(strSQL , myConn)
         Dim Reader As OleDbDataReader = command.ExecuteReader()

         Do While Reader.Read
         ......
         Loop

[Alexey-VB]

Дело в следующем, хочу сделать проверку ip-адреса с помощью vb.net и access.
для этого сделал базу "ip_base" в access с списком ip-адресов. В базе 3 колонки: "ip_from" (начальный диапазон адресов), "ip_to" (конечный диапазон адресов), "co_name" (страна где зарегистрирован ip).

Далее нужно в vb.net открыть базу, сделать запрос и получить результат.

Я делаю так:

Код: Выделить всё

    Dim myConn As New OleDbConnection
    Dim myCmd As New OleDb.OleDbCommand
    Dim myDA As New OleDbDataAdapter
    Dim myDR As OleDbDataReader
    Dim strSQL As String

        myConn.Close()
        myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\iptocountry.mdb;"
        myConn.Open()


        'strSQL = "select co_name from ip_base where ip_from<=" & IPNumber & " and ip_to>=" & IPNumber


Что далее писать в коде что бы отправить запрос и получить результат?
Пробовал это:

Код: Выделить всё

        myCmd.CommandText = strSQL
        myCmd.Connection = myConn
        myDA.SelectCommand = myCmd
        myDR = myCmd.ExecuteReader()

Но ра строке "'myDR = myCmd.ExecuteReader()" - выходит ошибка.

Подскажите как дописать код для отправки запроса и получения результата в переменную, а то я только убиваю время в пустую

[Nord777]

Но ра строке "'myDR = myCmd.ExecuteReader()" - выходит ошибка.

Как звучит ошибка?

[Alexey-VB]

Ошибка - "Отсутствует значение для одного или нескольких требуемых параметров." OleDbExeption was unhandled bu user code.

[Nord777]

1. Ты обратился не в тот раздел. Тебе надо сюда: ASP.NET
2. select co_name from ip_base where ip_from<=" & IPNumber & "and ip_to>=" & IPNumber
   В твоей базе отсутствует поле co_name, но есть поле co_code(исправь это в своём запросе)
3. поля (ip_from и ip_to) имеют тип данных - MEMO. Замени их на числовой, а поле co_code на текстовый.