ник: АлаяЗаря
Доброго времени суток =) и все у меня было хорошо пока не перешел я на SQL Server =)
Сперва отказались работать рекордсеты, вроде как пыхтя в хелпе разобрался, подключился через ОДБС - работает - УРА!
и вот дашел до запросов. Как написать запрос в SQL знаю, как в VB знаю, а вот как через VB в SQL не знаю. =(
есть не один подобный запрос:
Function paswd()
Dim strSelect As String
Dim strFrom As String
Dim strWhere As String
Dim qqq As String
Dim www As String
Dim strsql As String
strSelect = "SELECT "
strSelect = strSelect & "pas.id, pas.idparol, pas.iduser, pas.idrole, pas.idnaim"
strFrom = " FROM pas"
strWhere = " WHERE true"
If Nz([Form_Avtorizaciy].[Пароль], 0) > 0 Then qqq = [Form_Avtorizaciy].[Пароль]
If Nz([Form_Avtorizaciy].[Логин], 0) > 0 Then www = [Form_Avtorizaciy].[Логин]
If Nz(qqq, 0) > 0 Then strWhere = strWhere & " and pas.idparol = " & """" & qqq & """"
If Nz(www, 0) > 0 Then strWhere = strWhere & " and pas.iduser = " & """" & www & """"
strsql = strSelect & strFrom & strWhere & ";"
CurrentDb.QueryDefs("password").SQL = strsql
paswd = strsql
End Function
|
недавно кстате на форуме его обсуждали... и что... не работает... как только не поключался...
что посоветуйте.... блин... обкатка вот вот, а у меня все отчета по запросам... это вообще жопа будет....