вопрос по выборке

[Sirik]

есть 2 таблицы: t1 и t2
в t1 такие поля: code (цифровой код), name (текстовое поле)
в t2 такие поля: code2 (цифровой код), name2 (текстовое поле)

надо организовать запрос, который выбирает данные из t1 (критерий выборки я делаю сам), который:
а) выбирает засиси из таблицы t1
б) сортирует выборку по альфовиту, вот тут вот интересно: цифровой код code отвечает коду code2, а сортировать надо по name2

[Antonariy]

Делаешь left join t2 on t2.Code2=t1.code order by name2
Надеюсь тебе не нужно редактировать t1?

[Sirik]

блин, у меня проблеммы с синтаксисом:
можешь полностью написать?

зы. вот такой у меня раньше был запрос: SELECT * FROM [tbl_LineWeigth] ORDER BY [ID] ;

естественно что надо поменять часть та что справа от ORDER BY

[Antonariy]

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

select t1.*, t2.name2 left join t2 on t2.Code2=t1.code order by name2

name2 выбирается потому что только в этом случае можно сделать по ней сортировку. Или это справедливо только для вьюшек? Не помню.

[Sirik]

ошибка:
SELECT tbl_LineWeigth.*,tbl_Line.Name LEFT JOIN tbl_Line ON tbl_Line.ID=tbl_LineWeigth.ID_Line ORDER BY tbl_Line.Name ;

[Antonariy]

Какая?

[Sirik]

ошибка синтаксиса: пропущен оператор

[Antonariy]

from tbl_LineWeigth забыл. Мой косяк.

[Sirik]

м-да, глупо получмлось, но
опять ошибка: вот конечная строка:
SELECT FROM tbl_LineWeigth.* , tbl_Line.Name LEFT JOIN tbl_Line ON tbl_Line.ID=tbl_LineWeigth.ID_Line ORDER BY tbl_Line.Name ;

ошибка: ошибочное или пропущенное зарезирвированное слово или аргумент в конструкции SELECT или неверная путуация

[Konst_One]

FROM

[Konst_One]

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

SELECT
    tbl_LineWeigth.*,
    tbl_Line.Name   
FROM
       tbl_LineWeigth LEFT JOIN tbl_Line ON
       tbl_Line.ID=tbl_LineWeigth.ID_Line
ORDER BY tbl_Line.Name

[Sirik]

это ж надо было так лопухнуться... спасибо, всё работает

[Sirik]

извеняюсь что подымаю данную тему потому, что:
если надо уделать такое же, но таблицы находяться в разных базах данных?

[Antonariy]

Если Access, то Файл - Внешние данные - Связь с таблицами.
Если MSSQL - select database.dbo.table.*
Или даже select server.database.dbo.table.*

[Sirik]

access, я не могу использовать внешние данные, так как у меня свзять не постоянная:
время от времени перелинковую базы

может программным путём как-то можно?

[GSerg]

Может в поиск?..
http://bbs.vbstreets.ru/viewtopic.php?p=144094#144094

[VVitafresh]

access, я не могу использовать внешние данные, так как у меня свзять не постоянная:
время от времени перелинковую базы

может программным путём как-то можно?

У тебя есть три варианта:
1. Указывать имя внешней базы непосредственно в SQL-запросе.

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

SELECT T1.Field1, T1.Field2 FROM Table1 as T1 IN 'С:\db2.mdb'

2. Программно прилинковывать таблицы следующей ф-ией:

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

Public Function LinkJetTable(sDestPath As String, sDestPWD As String, sLinkTblAs As String, sSourcePath As String, sSourcePWD As String, sLinkTbl As String) As Boolean
'Прилинковка таблицы из другой базы Access
    'sDestPath, sDestPWD - путь и пароль к базе, в которую нужно прилинковать табл.
    'sLinkTblAs - под каким именем прилинковывать таблицу
    'sSourcePath, sSourcePWD - путь и пароль к базе, в которой находится подсоединяемая табл.
    'sLinkTbl - имя таблицы в этой базе
    Dim cat As New ADOX.Catalog
    Dim tbl As New ADOX.Table
    On Error Resume Next
   ' Open the catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & sDestPath & ";Jet OLEDB:Database Password=" & sDestPWD
    If Err.Number <> 0 Then Exit Function
    ' Set the name and target catalog for the table
    tbl.Name = sLinkTblAs
    Set tbl.ParentCatalog = cat
    ' Set the properties to create the link
    tbl.Properties("Jet OLEDB:Create Link") = True
    tbl.Properties("Jet OLEDB:Link Datasource") = sSourcePath
    tbl.Properties("Jet OLEDB:Link Provider String") = ";Pwd=" & sSourcePWD & ";"
    tbl.Properties("Jet OLEDB:Remote Table Name") = sLinkTbl
    ' Append the table to the collection
    cat.Tables.Append tbl
    If Err.Number = 0 Then LinkJetTable = True
    Set tbl = Nothing
    Set cat = Nothing
End Function

3. Воспользоваться статьей, которую рекомендует GSerg (хотя это почти равносильно 2-ому варианту)