Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Был mdb стал SQL
 
 автор: Maxik   (01.10.2006 в 12:51)
 
 

Народ, подскажите! У меня была база мдб, я ее решил перелить на sql..
И.. теперь клиент не работает с таблицами.. большинство команд и запросов не работы с базой не работает, какой основной принцип работы с sql таблицами?
ТИПа этих :
===
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("БазаИсточник", dbOpenDynaset)

If rst.RecordCount = 0 Then
GoTo exitsub
End If
With rst
.MoveLast
.MoveFirst
Do Until .EOF

rst.Close

=====
Dim Del As Recordset
Dim str As String
Set Del = CurrentDb.OpenRecordset("SELECT * FROM [БазаИсточник] WHERE [Код]=" & Me.lvDocList.SelectedItem.Tag)
With Del
str = !БазаИсточник
End With
========
CurrentDb.Execute "DELETE * FROM [БазаИсточник] WHERE [Код]=" & Me.lvDocList.SelectedItem.Tag

  Ответить  
 
 автор: osmor   (01.10.2006 в 19:14)   личное сообщение
 
 

Как вы соеденяетесь с SQL server? через ODBC? Если Да, то нужно использовать Connection а не Currentdb.
А вообще лучше уж ADO, а не DAO

  Ответить  
 
 автор: Maxik   (02.10.2006 в 14:02)
 
 

Олег, я незнаю как, я ни когда не работал с серверами. Я просто поставил Sql Server и в Access мастером закинул туда таблицы. Теперь с таблицами не работает Curr.
А что еще по мимо Connection надо еще дописывать?
А почему DAO не пойдет?

  Ответить  
 
 автор: Explorer   (02.10.2006 в 14:09)   личное сообщение
 
 

как много нам открытий чудных готовит ... майкрософ...

почему вы решили, что дело только и ограничится переносом таблиц на M$SQL? У вас впереди еще много работы

  Ответить  
 
 автор: Maxik   (02.10.2006 в 14:16)
 
 

Нет я не думал что этим все ограничится!
Просто я не знал с чего начать, но вот кажется нарыл,
=======
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set rst = New ADODB.Recordset
Set con = Application.CurrentProject.Connection
rst.Open "БазаИсточник", con, adOpenDynamic
====
Теперь просто надо заменить, да?
А что делать с командой DoCmd.RunSQL и почему некоторые запросы не работают?
EXLORER что меня еще ожидает?

  Ответить  
 
 автор: Explorer   (02.10.2006 в 14:33)   личное сообщение
 
 

ну начать с того, что вас ожидают неожиданности при переходе c DAO на ADO - разные идеологии разные объекты и разные методы

и продолжить тем, что вас ожидают неожиданности при переходе с JET на SQL - они не конгруэнтны - это просто разные инструменты

в общем, если вы пока ничего об этом не знаете - купите кнжку для начала - сэкономите кучу времени и траффика

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList