-----------------------------------------------------------

New Message on MumbaiUserGroup

-----------------------------------------------------------
From: omsss
Message 1 in Discussion

Hi all,   Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Private Sub Form_Load()
conn.Open "Mydsn", "sa", "444"
 Set cmd = New ADODB.Command
Set param = New ADODB.Parameter cmd.ActiveConnection = conn
cmd.CommandText = "Checkid1"
cmd.CommandType = adCmdStoredProc Set param = cmd.CreateParameter("@name1", adVarChar, 
adParamInput, 7, "pradeep")
cmd.Parameters.Append param
cmd.Parameters(0).Value = "Pradeep"
Set rs = cmd.Execute   If Not rs.EOF Or rs.BOF Then
Do While Not rs.EOF
MsgBox rs("test_id")
rs.MoveNext
Loop
End If 'I = mycommand("name1")
'MsgBox "" & I
'Do While Not rs.EOF
'MsgBox rs(0)
'rs.MoveNext
'Loop
End Sub
   what is wrong with this code   It disply operation not allowed it is closed   Help 
Me    

-----------------------------------------------------------

To stop getting this e-mail, or change how often it arrives, go to your E-mail 
Settings.
http://groups.msn.com/MumbaiUserGroup/_emailsettings.msnw

Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help

For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact

If you do not want to receive future e-mail from this MSN group, or if you received 
this message by mistake, please click the "Remove" link below. On the pre-addressed 
e-mail message that opens, simply click "Send". Your e-mail address will be deleted 
from this group's mailing list.
mailto:[EMAIL PROTECTED]

Reply via email to