Click here to Skip to main content
15,895,557 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
Eddy Vluggen5-Jan-11 7:01
professionalEddy Vluggen5-Jan-11 7:01 
GeneralRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
Yance Lawang5-Jan-11 1:46
Yance Lawang5-Jan-11 1:46 
GeneralRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
Dave Kreskowiak5-Jan-11 4:38
mveDave Kreskowiak5-Jan-11 4:38 
GeneralRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
Eddy Vluggen5-Jan-11 6:58
professionalEddy Vluggen5-Jan-11 6:58 
JokeRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
reto.knaak15-Jan-11 10:32
reto.knaak15-Jan-11 10:32 
GeneralRe: Disable CTRL+ALT+DEL IN Windows Vista & 7 Pin
Eddy Vluggen15-Jan-11 10:44
professionalEddy Vluggen15-Jan-11 10:44 
AnswerRe: Disable CTRL+ALT+DEL in Windows Vista & 7 Pin
Luc Pattyn5-Jan-11 3:04
sitebuilderLuc Pattyn5-Jan-11 3:04 
QuestionProblem to read data when i execute store procedure.... Pin
Saurabh Chandak4-Jan-11 20:20
Saurabh Chandak4-Jan-11 20:20 
Dim objCmd As New ADODB.Command
   Dim objparameter As New ADODB.Parameter
   Dim objRs As New ADODB.Recordset
   Dim con2 As New ADODB.Connection

   Dim xmlstr, clisttype, clistremarks, clistfdate, clisttdate, cno, cjudge1, cjudge2, cjudge3, constr As String
   xmlstr = "<?xml version=""1.0"" encoding=""iso-8859-1"" ?><causelist><date>"

   constr = " Provider=MSDataShape;Persist Security Info=False;Data Source=10.130.8.15;User ID=sa;Password=sa;Initial Catalog=dbname;Data Provider=SQLOLEDB.1"


   'chandak
   xmlstr = xmlstr + "<causelisttodate>" & clisttdate & "</causelisttodate>"
   xmlstr = xmlstr + "<causelistfromdate>" & clistfdate & "</causelistfromdate>"
   xmlstr = xmlstr + "<common_remarks>" & clistremarks & "</common_remarks>"
   xmlstr = xmlstr + "<end_remarks>" & clistremarks & "</end_remarks>"
   xmlstr = xmlstr + "<court>"
   xmlstr = xmlstr + "<courtno>" & cno & "</courtno>"
   xmlstr = xmlstr + "<courtremarks></courtremarks>"
   xmlstr = xmlstr + "<judge1>" & cjudge1 & "</judge1>"
   xmlstr = xmlstr + "<judge2></judge2>"
   xmlstr = xmlstr + "<judge3></judge3>"
   xmlstr = xmlstr + "<judge4></judge4>"
   xmlstr = xmlstr + "<judge5></judge5>"
   con2.Open constr

   objCmd.ActiveConnection = con2


   objCmd.CommandType = adCmdStoredProc
   objCmd.CommandText = "causelistxml"
   objCmd.Parameters.Append objCmd.CreateParameter("date", adVarChar, adParamInput, 10, Text1.Text)
   objCmd.Parameters.Append objCmd.CreateParameter("courtno", adVarChar, adParamInput, 10, Text2.Text)
   objCmd.Parameters.Append objCmd.CreateParameter("courtno2", adVarChar, adParamInput, 10, Croom)
   objCmd.Parameters.Append objCmd.CreateParameter("date2", adVarChar, adParamInput, 10, clistfdate)
   objCmd.Parameters.Append objCmd.CreateParameter("alloted", adVarChar, adParamInput, 10, Alloted)



   'objRs.Open con, adOpenStatic, adLockReadOnly
   Dim pstage As String
   Dim ii As Integer
   'ii = objRs.RecordCount
   pstage = ""

   Set objRs = objCmd.Execute
   'con.Open constr
   'OpenConnection
   objRs.Open
   'objRs.Open objCmd, adOpenStatic, adLockReadOnly
   For ii = 0 To objRs.RecordCount
   xmlstr = xmlstr + objRs.Fields("part1") + objRs.Fields("part2")
   Next ii

    'If Not objRs.EOF Then
       'Do While Not (objRs.EOF)
          ' xmlstr = xmlstr + objRs.Fields(0) + objRs.Fields(1)
          ' objRs.MoveNext
     '  Loop
  ' End If

   Set objCmd.ActiveConnection = Nothing
   objRs.Close


I used debug when cursor focus on for loop, Its throw a Error :
Run Time Error '3704'
Operation is not allowed when the the object is closed
Help plz.......
AnswerRe: Problem to read data when i execute store procedure.... Pin
Eddy Vluggen5-Jan-11 0:17
professionalEddy Vluggen5-Jan-11 0:17 
QuestionHow to expose a datatable in a strongly typed dataset (without exposing the whole dataset). Pin
Jon_Boy4-Jan-11 1:17
Jon_Boy4-Jan-11 1:17 
AnswerRe: How to expose a datatable in a strongly typed dataset (without exposing the whole dataset). Pin
Jon_Boy5-Jan-11 9:42
Jon_Boy5-Jan-11 9:42 
QuestionGetting an error From Richtextbox1.savefile Pin
Bso_Cool3-Jan-11 11:03
Bso_Cool3-Jan-11 11:03 
AnswerRe: Getting an error From Richtextbox1.savefile Pin
Luc Pattyn3-Jan-11 11:40
sitebuilderLuc Pattyn3-Jan-11 11:40 
Questionquiz website using vb.net [modified] Pin
raisinah2-Jan-11 19:27
raisinah2-Jan-11 19:27 
AnswerRe: quiz website using vb.net Pin
Pradeep K V2-Jan-11 23:19
Pradeep K V2-Jan-11 23:19 
GeneralRe: quiz website using vb.net Pin
raisinah3-Jan-11 14:59
raisinah3-Jan-11 14:59 
AnswerRe: quiz website using vb.net Pin
Nuri Ismail2-Jan-11 23:55
Nuri Ismail2-Jan-11 23:55 
QuestionChange the Date Format at Runtime VB.NET Pin
Noufe1-Jan-11 18:36
Noufe1-Jan-11 18:36 
AnswerRe: Change the Date Format at Runtime VB.NET Pin
thatraja1-Jan-11 18:58
professionalthatraja1-Jan-11 18:58 
AnswerRe: Change the Date Format at Runtime VB.NET Pin
Luc Pattyn1-Jan-11 23:56
sitebuilderLuc Pattyn1-Jan-11 23:56 
AnswerRe: Change the Date Format at Runtime VB.NET Pin
Аslam Iqbal3-Jan-11 8:31
professionalАslam Iqbal3-Jan-11 8:31 
GeneralRe: Change the Date Format at Runtime VB.NET Pin
Henry Minute3-Jan-11 15:52
Henry Minute3-Jan-11 15:52 
QuestionSend message to specific RDP terminal with VBScript [modified] Pin
jamosdelnorte31-Dec-10 7:34
jamosdelnorte31-Dec-10 7:34 
AnswerRe: Send message to specific RDP terminal with VBScript Pin
Henry Minute31-Dec-10 12:11
Henry Minute31-Dec-10 12:11 
GeneralRe: Send message to specific RDP terminal with VBScript Pin
jamosdelnorte31-Dec-10 14:16
jamosdelnorte31-Dec-10 14:16 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.