adoPrimaryRS.Open "select FirmTypeID,FirmType from FirmType WHERE FirmType Like '" & Text1.Text &"'", db, adOpenStatic, adLockOptimistic
Мужики круто!
adoPrimaryRS.Close
adoPrimaryRS.Open "SELECT тра-та-та"
alibek писал(а):Rainbow, если WithEvents, то не может быть модуль, только форма или класс
y-nov писал(а):Но там точно нет Set db=nothing и db.Close
Rainbow писал(а):Это хорошо. Но все же если VB говорит "закрыт", значит ты его где-то закрыл. Так что вопрос лучше кодом...
А как строку
db.Open "PROVIDER=MSDASQL;dsn=LandODBC;uid=;pwd=;database=MyBase"
брать из инишника, т.к. я не знаю как будет называться база?
g_cn.Open "File Name=" & App.Path & "My.udl"
Я написал в файле My.udl
Вероятно, у товарища нет "построителя".
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=EMT;Data Source=(local)
[/quote]О каком построителе идет речь
Сейчас этот форум просматривают: Google-бот и гости: 4