ник: АлаяЗаря
я так и делаю... вот весь код
str = "SELECT dbo.tabl_codeaccess.idaccess, dbo.tabl_codeaccess.Nameaccess, dbo.tabl_codeaccess.gorod FROM dbo.tabl_codeaccess INNER JOIN dbo.Gorod ON dbo.tabl_codeaccess.gorod = dbo.Gorod.Kod"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Set xlApp = CreateObject("excel.Application")
Set xlbook = xlApp.Workbooks.Add
Set xlsheet = xlbook.Worksheets.Add
rst.Open str, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
xlsheet.Range("A2").CopyFromRecordset rst
xlApp.Visible = True
Set xlsheet = Nothing
Set xlbook = Nothing
|
а вот так заработало
str = "SELECT * FROM dbo.tabl_codeaccess INNER JOIN dbo.Gorod ON dbo.tabl_codeaccess.gorod = dbo.Gorod.Kod"
|
почему так?
у меня просто через * не получиться, т.к. беру значения и из других таблиц
вобщем, нужно связи расставлять... схему нужно сделать, аксесовская удалилась я так понял =)
Спасибо осмор... Ты мне подарил счастливые выходные =)))