PDA

View Full Version : سوال: مشکل در کد



talabaki
پنج شنبه 31 اردیبهشت 1388, 12:30 عصر
سلام دوستان
من کد زیر را دارم







Private Sub Command2_Click()

Dim count As Integer

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

Dim cmd As ADODB.Command

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB;Data Source=T36;Initial Catalog=mrp; Integrated Security=SSPI; User Id='sa'; Password='emamreza'"

conn.Open

Set cmd = New ADODB.Command

cmd.ActiveConnection = conn

cmd.CommandType = adCmdText

cmd.CommandText = "SELECT * FROM dbo.T_mojodi_material"

Set rst = cmd.Execute

count = rst.RecordCount

Me.Text0 = count

rst.Close

conn.Close

End Sub




وقتی این کد را اجرا میکنم و recordcount را میخواهم 1- را برمیگرداند
مشکل چیست چکارکنم
با تشکر

talabaki
چهارشنبه 06 خرداد 1388, 12:52 عصر
سلام دوستان
من بالاخره با ياري يكي از همكارانم فهميدم مشكل چيه
مشكل در اينست كه در ACCESS ظاهرا recordcount جواب ني دهد اما مي شه كد را باترفندهاي ديگري مثلا با rst.eof‌و غيره طوري تغيير داد كه همان جواب را بگيريم

dadsara
چهارشنبه 06 خرداد 1388, 13:09 عصر
سلام
دوست عزیز شما کافیست یکبار به ابتدا رکوردست برورید ، سپس به آخر رکوردست بروید و در انتها از رکوردست استفاده کنید

rst.movefirst
rst.movelast
rst.recordcount