majid325
سه شنبه 21 فروردین 1386, 00:55 صبح
کسی میتونه بگه مشکل کوئری زیر چیه که رکوردست بین رکوردها نمیتونه حرکت کنه؟
Cnnbook.ConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _
& "Data Source=" + Application.CurrentProject.Path + "\ServerLib.mdb"
Cnnbook.mode = adModeReadWrite
Cnnbook.Open
Dim strQBook As String
strQBook = "SELECT Tb_Book.*, Tb_Book_Author.*, Tb_Subject.* " _
& " FROM (Tb_Book INNER JOIN Tb_Book_Author ON Tb_Book.B_Code = Tb_Book_Author.BA_Code) INNER JOIN Tb_Subject ON Tb_Book.B_Code = Tb_Subject.S_Code;"
rstFrmBook.Open strQBook, Cnnbook, adOpenDynamic, adLockOptimistic, 1
BoundDataBook
rstFrmBook.MoveFirst
Cnnbook.ConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _
& "Data Source=" + Application.CurrentProject.Path + "\ServerLib.mdb"
Cnnbook.mode = adModeReadWrite
Cnnbook.Open
Dim strQBook As String
strQBook = "SELECT Tb_Book.*, Tb_Book_Author.*, Tb_Subject.* " _
& " FROM (Tb_Book INNER JOIN Tb_Book_Author ON Tb_Book.B_Code = Tb_Book_Author.BA_Code) INNER JOIN Tb_Subject ON Tb_Book.B_Code = Tb_Subject.S_Code;"
rstFrmBook.Open strQBook, Cnnbook, adOpenDynamic, adLockOptimistic, 1
BoundDataBook
rstFrmBook.MoveFirst