در مورد نحوی اجرای کوری

[reza1357]

سلام
با چه دستوری میتوان کوری ساخته شده در Access در Vb اجرا و از انها اسفتاده کرد؟

[zerobit-ltd]

باید نام query رو به خاصیت command text شی command بدی. یا نام query رو به عنوان پارامتر command text، موقع فراخوانی متد execute شی connection پاس کنی.

[reza1357]

باید نام query رو به خاصیت command text کنترل command بدی.


یعنی چی میشه بیشتر توضیح بدین ؟

[zerobit-ltd]

اگر از ado استفاده می کنید، باید نام query رو به خاصیت CommandText مربوط به command بدید. در پایان هم متد execute رو فراخوانی می کنید.
مثلا اگر نام query شما، "Query1" باشه، باید به صورت زیر عمل کنید:
cmd.CommandText = "Query1"
cmd.Execute
اگر query شما رکورد بر می گردونه، طبیعتا باید نتیجه cmd.Execute رو تو یه recordset بریزید.

[reza1357]

ببخشید نتونستم اونو عملی کنم.
کار کوری من این است که یکسری رکوردهایی به تیبل (کارکرد ...) اضافه میکنه.



اگر از ado استفاده می کنید، باید نام query رو به خاصیت CommandText مربوط به command بدید. در پایان هم متد execute رو فراخوانی می کنید.
مثلا اگر نام query شما، "Query1" باشه، باید به صورت زیر عمل کنید:


راستش رو بخواهید این CommandText و execute نمیتونم پیداشون کنم منظورتون همان CommandText (SQL)o است؟

با تشکر

[zerobit-ltd]

dim cn as new adodb.connection
dim cmd as new adodb.command
--------------------------------------
cn.connectionstring = "connectionstring"
cn.open
cmd.activeconnection = cn
cmd.commandtext = "QueryName"
cmd.execute
cn.close
set cn = nothing

[reza1357]

از روشی که دوست عزیز zerobit-ltd (http://barnamenevis.org/forum/member.php?u=32673) گفتند نتونستم جواب بگیرم و پیغام خطا میده !

راه بهتر و آسان تر نیست ؟

با سپاس

[S_VB.max]

اول از پنجره References کتابخانه Microsoft ActiveX Data Object را اضافه کن بعد از این کد استفاده کن


Dim db As New Connection
Dim rec As New Recordset

db.CursorLocation = adUseClient
db.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db1.mdb"
rec.Open "select * from Query1", db, adOpenKeyset, adLockPessimistic

پرووایدر Oledb نسخه چهار مربوط به اکسس 97 به بالا است
در ضمن روش کار با Query همانند کار با Table است

[zerobit-ltd]

از روشی که دوست عزیز zerobit-ltd (http://barnamenevis.org/forum/member.php?u=32673) گفتند نتونستم جواب بگیرم و پیغام خطا میده !

راه بهتر و آسان تر نیست ؟

با سپاس

این راه یه راه استاندارده.
شما لطف کنید کدتون رو اینجا قرار بدید تا ببینیم مشکل کجاست.

[reza1357]

6899
دوستان این دیتابیس برنامه است اگه ممکنه از کوری موجود در VB استفاده کنید ببینید اصلا جواب میده !؟

با تشکر

[reza1357]

6899
دوستان این دیتابیس برنامه است اگه ممکنه از کوری موجود در VB استفاده کنید ببینید اصلا جواب میده !؟

با تشکر

http://forum.ya-mahdi.info/Smileys/default/106.gif

[zerobit-ltd]

با اینکه نفهمیدم query شما چه کاری انجام می ده، ولی خب مهم نیست؛ کد زیر query مورد نظر رو برای شما اجرا می کنه.


Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\ME\Desktop\haghogh.mdb;Persist Security Info=False"
cn.Open
cmd.ActiveConnection = cn
cmd.CommandText = "updatemah"
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Append cmd.CreateParameter("year", adBigInt, adParamInput)
cmd.Parameters.Append cmd.CreateParameter("date", adChar, adParamInput, 10)
cmd.Parameters.Append cmd.CreateParameter("mah", adChar, adParamInput, 10)

cmd.Parameters(0).Value = 9
cmd.Parameters(1).Value = 9
cmd.Parameters(2).Value = 9
cmd.Execute
cn.Close
Set cn = Nothing
End Sub

[reza1357]

دوست عزیز دستت درد نکنه درود بر شما.
توی فرم اضافش کردم جواب داد.

خیلی ممنون.

[reza1357]

اگه بخوام این کوری از طریق Adodc اجرا کنم چکار باید بکنم ؟

[reza1357]

اگه بخوام این کوری از طریق Adodc اجرا کنم چکار باید بکنم ؟
http://forum.ya-mahdi.info/Smileys/default/297.gif