talabaki
پنج شنبه 31 اردیبهشت 1388, 13: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- را برمیگرداند
مشکل چیست چکارکنم
با تشکر
من کد زیر را دارم
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- را برمیگرداند
مشکل چیست چکارکنم
با تشکر