Visual Basic :: Object Is Not Connected To Server

Server Connected, Client Not
Ok, my program is using 2 programs, the server and client, the server side is saying that it is connected, however the client isnt, so im assuming its the client code, heres the code:

Code:
MsgBox "Attempting To Connect To Server..."

WinsockMain.Close
WinsockMain.Connect strDataLoaded(2), strDataLoaded(3)

xTimer = Timer + 1
Do While Timer < xTimer
Loop

If Not WinsockMain.State = 7 Then
MsgBox "Could Not Connect! The Server Could Be Offline Or Busy!"
WinsockMain.Close
GoTo NextNext2
End If

If WinsockMain.State = 7 Then
MsgBox "Connection Successful!"
WinsockMain.SendData strDataLoaded(1)
End If

Heres The Variables:
strDataLoaded(1) = "Filepath Here"
strDataLoaded(2) = "127.0.0.1"
strDataLoaded(3) = "6669"

and on the server side, its using localport 6669 and is accepting the clients connection, i cant figure out y the client is not connecting properly

Checking To See If I'm Connected To Server
I want my VB application to see if my Winsock control is connected to a server than sendthedata but if it isn't display a message box saying that your not connected.
I know how to do the sending data and displaying the message box. The only problem is the checking to see if the app is connected to the server.

Thanx,
Ben

*** How To Determine Computers Connected To A Server ***
Hi to all!!! i would make an application that displays in a combo or a listbox the name of the workstations connected to a workgroup...

e.g. i have a workgroup called "work" and many clients called client1work / client2work / client3work etc...
i wanna to displays a list of these computers in a combobox or a listbox...

can u help me?

pleaseee

TIA

simons

Search Form Connected To SQL Server
Hi

Nothing really is happening when i click on the search button in my form

THe form has 6 text box, the first 3 text boxes are linked to specific column and the last 3 text boxes the user can search for any information for that table specific.

Everything i search for an ID nothign happens. Can someone please help.

VB Code:
Option Explicit Private rsSearch As ADODB.RecordsetPrivate conSQL As ADODB.Connection Private Sub frmHandsetSearch_Load() LoadTheGrid "SELECT * FROM Handsets"End Sub Private Function GetRecordset(ByVal strSQL1 As String) As ADODB.Recordset Set conSQL = New ADODB.Connection Dim strSQLServer As String Dim strSQLDatabaseToOpen As String Dim strConnectString As String Dim rsRecords As ADODB.Recordset strSQLServer = "sfdaqsql1" strSQLDatabaseToOpen = "techlog_copy" strConnectString = "Provider=sqloledb;" & _ "Integrated Security=SSPI;" & _ "Data Source=" & strSQLServer & ";" & _ "Initial Catalog=" & strSQLDatabaseToOpen & ";" conSQL.CursorLocation = adUseClient conSQL.Open (strConnectString) Set rsSearch = New ADODB.Recordset rsSearch.CursorLocation = adUseClient Set rsSearch = conSQL.Execute(strSQL1) 'rsSearch.Close Set rsSearch.ActiveConnection = Nothing conSQL.Close Set GetRecordset = rsSearchEnd Function Private Sub LoadTheGrid(ByVal strSQL1 As String) Dim rs As ADODB.Recordset Dim iCol As Integer, iRow As Integer Dim fld As ADODB.Field Set rs = GetRecordset(strSQL1) iRow = 0 Me.MSFlexGrid1.Rows = rs.RecordCount Me.MSFlexGrid1.Cols = rs.Fields.Count Do Until rs.EOF iCol = 0 For Each fld In rs.Fields If IsNull(fld.Value) = True Then Me.MSFlexGrid1.TextMatrix(iRow, iCol) = vbNullString Else Me.MSFlexGrid1.TextMatrix(iRow, iCol) = fld.Value End If iCol = iCol + 1 Next fld iRow = iRow + 1 rs.MoveNext Loop ' With Me.MSFlexGrid1' .ColWidth(0) = 3000' .ColWidth(1) = 3000' .ColWidth(2) = 3000' .ColWidth(3) = .Width - 8000'' .Row = 0' .Text = "abcd"' .Col = 1' .Text = "Handset Date"' .Col = 2' .Text = "Telephia_Asset_Number"' .Col = 3' .Text = "ESN"' .Col = 4' .Text = "SIM_ID"' .Col = 5' .Text = "Min"' .Col = 6' .Text = "Phone_Plan"' .Col = 7' .Text = "Phone_Minutes"' .Col = 8' .Text = "Type"' .Col = 9' .Text = "Model"' .Col = 10' .Text = "Carrier"' .Col = 11' .Text = "Unit"' .Col = 12' .Text = "City Activation"' .Col = 13' .Text = "Cost"' .Col = 14' .Text = "Andrew RGA"' .Col = 15' .Text = "DT For Qualification"' .Col = 16' .Text = "DT Qualified"' .Col = 17' .Text = "D Dispatched"' .Col = 18' .Text = "Market"' .Col = 19' .Text = "DT Shipped"' .Col = 20' .Text = "DT Returned"' .Col = 21' .Text = "Date_purchased"' .Col = 22' .Text = "Status"' .Col = 23' .Text = "Type_mobile_test"' .Col = 24' .Text = "PO_number"' .Col = 25' .Text = "Comments"' End WithEnd Sub Private Sub cmdSearch_Click() Dim strSQL1 As String, strWhere As StringstrSQL1 = "SELECT * FROM Handsets" If Text1.Text <> vbNullString Then strWhere = strWhere & " AND [Telephia_Asset_Number_Handset] LIKE '" & Text1.Text & "*'"End IfIf Text2.Text <> vbNullString Then strWhere = strWhere & " AND [ESN] LIKE """ & Text2.Text & "%"""End IfIf Text3.Text <> vbNullString Then strWhere = strWhere & " AND [MIN] LIKE """ & Text3.Text & "%"""End If'If Text4.Text <> vbNullString Then' strWhere = strWhere & " AND [Keyword LIKE """ & Text4.Text & "*"""'End If'If Text5.Text <> vbNullString Then' strWhere = strWhere & " AND [Location In Unit] LIKE """ & Text5.Text & "*"""'End IfIf strWhere <> vbNullString Then strSQL1 = strSQL1 & " WHERE " & Mid$(strWhere, 5)End IfLoadTheGrid (strSQL1)Debug.Print strSQL1End Sub Private Sub frmSearch_Unload(Cancel As Integer)rsSearch.CloseconSQL.CloseSet rsSearch = NothingSet conSQL = NothingEnd Sub

Thanks

ActiveReport W/ADO (by Code) Connected To SQL Server

I hope I can explain the issue I'm having suffiently ... in any case here it is:

I connected to the SQL server successfully but I'm having problems generating my reports anyway. And I suspect it's due to the & "" below ... but if I remove them I get an error too.

CODEField1.DataValue = !SumOfASal & ""
Field2.DataValue = !SumOfAAwd & ""
Field3.DataValue = !SumOfABen & ""
Field4.DataValue = !SumOfAOT & ""

Need Example Vb-source That Is Connected To Sql Server 2000
we are developing a desktop application for mutual funds, using VB-Access but the transactions are exceeding over lakhs of entries and that is why the system got slower, so we have decided to upgrade in sql server after 5 yrs, now i don't have any idea for the indexes that was we used in dao (existing) application.

e.g.,
in a dao application

rs.index = "<indexName>"
rs.seet "=", <key-value>

if rs.nomatch=false then
  ...
  ...
else
  ...
  ...
end if

the above e.g. is faster then the select query for lakhs of records in a table, but to perform such a fast activity i am not getting what to do with sql-server as dao not supported for sql-server.

thanks,

Client Exists But Server Behaves Still Connected
Hi everybody,

I have a problem that I havent figured out the reason behind it yet. When a client connects to my server, and lets say stays connected for an hour or so, the server doesnt realize if the client exits.

But it works when they are connected for respectively small amount of time.

I do not have a ping system to check whether a client is idle or not. Does anybody have any ideas?

How comes a winsock control cant realize that the client is not connected anymore?

EpcH

Check How Many Users That Are Connected To An SQL Server Database
Is there any way from VB code to check how many computers/users that are connected to an database on an SQL server 7.

I have a program that i have developed in VB that works against an SQL server. Now i want to implement an licens check, so if a customer has 5 license the program will only allow 5 simultanious users against the server.

Is there any easier/better way of solving this problem?
Thaks

5000 Computers All Connected To 1 Server Share Using Vb App
Hi, I have created a vb application, and I have 5,000 users using this application all at the same time...  Right now I have this application using:

if fso.fileexists(app.path & " est.txt") then 'etc

The application has a timer which runs every 30 seconds, and checks for this file using fso.. Well as you can imagine, it bogs down the server.  Normally the files test.txt is not there.. Its only there about 3 times a day.

Is there a better way to check for the existance of this file?  Can I have 5,000 computers monitoring the share for a newly created file called test.txt, or will this kill the server?

Thanks

Client Information Connected To Citrix Server
Hello,

How can I get user, client information connected to Citrix server?

User will connect to Citrix Server using Web Interface and Windows Login/Password. Once user logs onto Citrix, he will see a kind of Desktop within a Webpage and that desktop shows Icons to run applications. These applications are already published on Citrix Server.

I have a VB 6.0 application published on Citrix Server and user will run it through the Icon shown within Citrix Desktop. When application runs, it will load on user's Windows machine. From this VB 6.0 app, I want to capture user's machine information (Name, IP Address), which has logged onto Citrix and running the application.

I am able to get Windows login username of the user. But if I use gethostname, it gives me machine info of the Citrix server and not of the user machine who is logged onto Citrix.

Can anyone help?

Thanks,
Hardik

How To Get All Client IP Address Connected To Server(main Computer)?
we have 3 computers at home, we set-up all computers connected to LAN so we
can share files, my computer serves as the main computer, i just want to get all
IP address of the computers connected to main computer(that is my computer) and list them
in combo box or Listview. How to do this using winsock(VB6)?Need your help. thanks.

Edited by - edd_hills on 6/5/2007 9:43:46 PM

How To Get User, Client Information Connected To Citrix Server?
How to get user, client information connected to Citrix server?

How To Fetch Ipaddress Of The Terminal As Soon It Is Connected To The Main Server.
i am working on vb and asp. using visual basic i have to fetch the ipaddresses of all the terminals connected to the main server as soon as they get connected.

URGENT: How To Display Text "Success" Once My VB Application Gets Connected To Server
Hey folks,

I wanted to ask you how to display text "Success" in a text box once my VB application gets connected to a Linux server through PUTTY.

And further to it.....if it doesnt get connected, I need to display "Failure"

Thanks and regards...
sri

Want To Know That Connected With Internet Or Not From A LAN Connected Computer
I have 3 computer which are LAN connected I use Internet. I want to make such a program which can detect that is any of my computers are connected with internet or not. If I am using internet from a LAN connected computer still it can know that is any one of my computer is connected to internet or not. Please help me.

Crystal Report "server Not Yet Connected"
Crytal report 8.5(RDC)
Problem with (Add databaseTo Report)
Platform vc++

Given programatically as
pDatabase->AddOLEDBSource(bstrAccessConnect, table_name);

By fetching the table names of the DB through
OpenSchema (..) method

This shows the all the tables of db in the tree view
But if i save this report MORE THAN ONCE OR TWICE and view it in the crviewer it gives
"SERVER NOT YET CONNECTED"

Is there any othere method for (Add databaseTo Report)
Db is off ms access, oledb,.....
I got only two functions

1)AddADOCommand (table name is not shown)
2)AddOLEDBSource
---------------

I refered to this

Crystal Knowledge Base

which gives the following

"" Note that a report (.rpt) file already stores the physical server/data source name (DSN), and the user id (UID) used to create the report. If these values remain unchanged at runtime, then these parameters are not needed. The values stored in the report file will be used at runtime""

As mentioned above i have connected while creating the report
and saved But still the error occurs

But the error is due to the
pDatabase->AddOLEDBSource(bstrAccessConnect, table_name);

If i pass the above through loop for eg 2 table names
Database error doesn't come
But if the tables are more than 2 or 3
this error occurs

If I open the same rpt in design time after saving once in runtime
And try to saveas this rpt with diff name or same name in design time , AND OPEN IT ,THE SAME ERROR COMES IN THE PREVIEW

How To Get The Iis Server Object In Vb6
i'm using an application wrote in vb6 which getting the request from asp page, manipulate the request with the back office application and return the xml response.
i have to use HTMLEncode method in order to send the xml data which include hebrew characters.
please help me how to use the getObject method to get the iis server object

462 - Object Cant Create Server
Hi All,

Attached is my current code.

If word is already running, then when the code below is used everything
works no problem and I can press my print button time after time and it
all works, i get no document instances lying around and no extra versions
of winword running that shouldn't be. However if word isn't already
loaded, then the code below runs fine first time in, then on a subsequent
attempt I get the above error. There are no instances of winword still
running. If I unload and reload my App, then I can print again and my
document count is still as expected.

Stepping the code, it errors when it's trying to create the table. However
I think this is a red herring since it works fine if word is already
loaded.

Regards
Bill Crawley

Activex Server Object Reference
Hi,
i've problems with an object reference given to an ActiveX Server (Visual Basic 6). I create an object outside the server (from a class which is defined in another component) and pass it through any method from client to the server. If i send back then the reference of the object in the server to the client in an event and then try to access the object again, the server crashes (in debug mode in the IDE and compiled). So the steps of passing the object reference to crash the server are:
client => server => server.event => client
This problem is always reproduceable.

In VB this would look like this:

Code:
Client
...
Private WithEvents moMyServer as MyServer.MyClass
...

Private Sub Form_Load()
set moMyServer = New MyServer.MyClass
End Sub

Private Sub anyMethod()
dim o as AnotherComponent.AnyClass
set o = New AnotherComponent.AnyClass
moMyServer.queue o
End Sub

Private Sub moMyServer_evtSomething(o as AnotherComponent.AnyClass)
...
end

ActiveX Server
...
Public Event evtSomething(o As AnotherComponent.AnyClass)
...

Public Sub queue(o As AnotherComponent.AnyClass)
'* queue the object for processing
...
End Sub

'* This method is called by another method which takes first queued object
Public Sub processObject(o As AnotherComponent.AnyClass)
'* do something with the object
...
RaiseEvent evtSomething(o)
'* If object is used after event, server crashes, for example
debug.print(o.toString)
End Sub
The AnotherComponent is in my case another ActiveX Server.
Do you think that's a VB bug?

VB6 Can't Find An Object That Exists On SQL Server
I was trying to be clever and added some bits of code to my project to help it handle two unfortunately all-too-common scenarios:

Scenario 1: Object (usually a stored procedure) that it is trying to execute does not exist

Scenario 2: User does not have permission to execute the object they are trying to execute

These scenarios pop up from time to time when an object creation script has been written incorrectly (by me) or has failed (my fault), or the DBAs forgot to run it and we released a new version of the app that tries to use the object in question.

With me so far?

To test this, I dropped a stored procedure on my SQL Server, then attempted to run the report that uses it. As I expected, my system told me that the object didn't exist and exited gracefully.

I then added the object back, but deliberately did not set permissions for it...and ran the project again, expecting the error to be handled differently.

It was not...the system again told me that the object didn't exist.

I set the permissions on the object in question so my app user had permission to run it, and ran the report again. No errors, no problem.

I am VERY confused. Here is the function that I wrote to tell me if the object exists or not, which is returning FALSE when the object exists but permissions are not set...strObjName is the name of the object I'm looking for:

VB Code:
Public Function SQLObjectExists(strObjName As String) As Boolean Dim rst As ADODB.RecordsetDim strSource As StringDim lngCount As Long 'MsgBox "Object name is: " & strObjName & vbCrLf & _' "Length of object name is: " & Len(strObjName) strSource = "SELECT * FROM SYSOBJECTS WHERE NAME = " & "'" & strObjName & "'"Set rst = New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open strSource, cnConn, adOpenForwardOnly, adLockReadOnly, adCmdText lngCount = rst.RecordCountMsgBox lngCount If lngCount = 0 Then SQLObjectExists = FalseElse SQLObjectExists = TrueEnd If End Function

I've tested the function in isolation and it doesn't work there either. It returns false even when permissions are set, which makes me think it's not simply this function that is the problem...but I want to work on it first since there's clearly something I'm missing!

Object Server Not Correctly Registered
I get this error message when I try to look at custom controls from my tools menu in VB4. I also get the error 'object variable not set' when I try to retrieve the fields for one of my grids. Not to mention that I get the error 'Item not found in this collection' whenever I run the program and access the recordset bound to the grid.
It's funny though that the grid actually works and retrieves/displays the data after closing the pesky error message.
Can anyone provide insight on this problem???

Business Object Server Access Using VB
Dear all,
I would like to access a business object server and query some data from the server without running the application from the client. (hidden interface).

COM+ - Object Server Is Stopping When OLE Service Contacts It
When the COM+ dll does not start automatically through a client activation (automation error on the client) I try to start it manually through the "component services" of the "control panel". But then I get the following error

=> "An error occured while processing the last operation. Error code 80080008 - Object server is stopping when OLE service contacts it."

=> visual basic 6.0 dll
=> windows 2000 server

When I restart windows it works fine again for +- 10 days. It's not always the same dll component that fails...

is there a solution for this problem??

thanks!

Get Modified Datetime Of An DB Object In SQL-Server 2000
Hi Wizzies,
I've got one more query for you. I know that I can get the creation datetime of a database object from "crdate" column of sysobjects table. Same way, is there anything in SQL-Server 2000 for fetching MODIFIED datetime of a database object?

WebBrowser Object And Server Security Dialog Box
Some sites cause IE to throw up a dialog box for a username and password before you begin surfing to their site. I have a browser which will supply the correct username and password to the site but I must first click cancel on the dialog box because it fires on BeforeNavigate2 event (I think). Is there a way to send a cancel = true, or something, to this server calling command so that the dialog box never shows up?

This is for our people to quickly get into websites to make sure that newly added content (like porn sites) is as it should be and not erroring on pages (like missing .jpgs or .giffs. or streaming video because of poor coding).

Forgot to mention I am pulling the correct username and password from the database but I need to kill this Security Dialog Box so I can send the username password immediately. This should probably be in general, but...[wimpering voice]...sorry.

Connecting To Sql Server From Ado Connection Object(urgent!!!!)
i am not able to connect to sql server database through ado connection object. i am using the connectionstring property to connect to the sql server.And in the initial catalog i am specifying the database name, which i have created on sql server and in the datasource property i am giving the odbc datasource name for connecting to the server.

i have also registered the sql server locally through the wizard.this is the code which i am using.

Public Function setconnection() As Boolean
On Error GoTo err:

Dim dbpath As String
Dim dbstring As String
If con.State = 0 Then
'dbpath = App.Path + "FAX_database"

'mydsn is the odbc datasource name for connecting to server and rxdb is the database name at the server.
con.ConnectionString "Provider=SQLOLEDB.1;Data
Source=mydsn;Initial Catalog=rxdb;userid=sa;password=;Persist Security Info=true"

'coDBCONN.ConnectionTimeout = 100
con.CursorLocation = adUseClient
con.Open

setconnection = True
Exit Function
ElseIf con.State = 1 Then
Exit Function
End If

err:
MsgBox err.Description
MsgBox err.Number

is there any other way that i can retrieve the path of the server and the database at runtime which i can return to the datasource name property.

Anyone Know Anything About SharePoint Portal Server Object Model?
Specifically how can you modify / delete an existing KnowledgePropertyDef object?

Inserting A New Row Into Sql Server 2000 From Vb6 Using Connect Object
I'm back!!!
I'm really not having a good time with "connect object"
I tried saving into a table using the ADO control(adodc.recordset.save)
But i found out it doesn't work all the time( i don't know why).
So i decided to connect to the table using connect object and then use an insert statement:

Dim cnn As ADODB.Connection
        Dim rst As ADODB.Recordset

        Set cnn = New ADODB.Connection
               cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=xxxxx;Persist Security Info=True;User ID=xxxxx;Initial Catalog=AOS;Data Source=xxx.xxx.xxx.xxx"
       If cnn.State = adStateOpen Then
            cnn.Close
        End If

        cnn.Open
        Set rst = cnn.Execute("insert into invoice (projcode, StartDate,EndDate,INVOICEDATE,HOURSAMT,EXPENSEAMT,ACTUALAMT,INVOICEAMT,INVOICEBAL,invoiceno) values ('" & DataCombo1.BoundText & "', '" & DTPicker1.Value & "','" & DTPicker2.Value & "','" & DTPicker3.Value & "','" & Text6.Text & "','" & Text7.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text1.Text & "')")
        rst.Close
        cnn.Close

I guess i'm not getting something right coz it's not working and it's not giving any error message so i don't know what's wrong.

can anyone tell me how to add code to my post so that it doesn't come up as text.

Edited by - wonkotsane on 3/25/2004 6:02:00 AM

File System Object Hangs Up My Server
I am trying to open a file system object and it hangs up my server or my ASP.DLL file. I don't know why. all ASP files work fine locally until I try to run the following file. My browser times out. Then I can no longer open an ASP file.

<vbcode>

Dim fso, MyText
Set fso = Server.CreateObject("Scripting.FileSystemObject")

</vbcode>

File System Object Hangs Up My Server
I am trying to open a file system object and it hangs up my server or my ASP.DLL file. I don't know why. all ASP files work fine locally until I try to run the following file. My browser times out. Then I can no longer open an ASP file.

Dim fso, MyText
set fso = Server.CreateObject("Scripting.FileSystemObject")

Object Server Is Stopping When OLE Service Contacts It
Hi,

I have a BIG problem :

I have an application that has been tested in a development. The application calls components that are registered as COM+ Applications. All components are developed using VB6 and
are called from ASP on IIS5. The components and the ASP web application are on the same box. The error description that I am getting back from various components reads:

Object server is stopping when OLE service contacts it

and the error number is:

-2146959352

Thank you,
Ionascu

Delay Instantiating COM Object On Remote Server
System consist of COM Component Hosted on the Remote M/c
of Configuration Win2000 Server with Service Pack 2.
Client is Visual basic in Win2000 Professional and Connectivity between client and server is via WAN When try to instantiate Object using
CREATEOBJECT(Objectname,ServerName)
there Substiantial time lag in object creation.Kindly help to how speed up object creation as it is affection application performance badly.

Active Server Pages - Request Object
Hi,

I am looking through some ASP and trying to determine where an item of data is coming from.
There is a stock ASP object called 'Request', which has a collection called 'Server.Variables'. Ihave take a look on MSDN at a list of predefined variables that apply, yet the one i am looking for is NOT in the predefined list and taking a search through all my .asp and .js pages fails to show where it is being defined.

I am trying to determine where the variable HTTP_HOST comes from. This is how it looks in my asp pages ...

Session("DLAM").HostPath = "http://" & Request.ServerVariables("HTTP_HOST") & "/oasis/uk/images/"

Now, HTTP_HOST returns the name of the server upon which IIS is running, but HOW does it get set ? Where does the value come from ?

MSDN states ...

HTTP_<HeaderName> The value stored in the header HeaderName. Any header other than those listed in this table must be prefixed by HTTP_ in order for the ServerVariables collection to retrieve its value.
Note The server interprets any underscore (_) characters in HeaderName as dashes in the actual header. For example if you specify HTTP_MY_HEADER, the server searches for a header sent as MY-HEADER.

... but i do not understand what it means when it talks about 'headers'. Can somebody please help me determine where I might find where HTTP_HOST is being set ? Have you come across it before ? If it's NOT a stock variable then erhaps you could give me some pointers on how these headers work and how asp determines what HOST is, because it is never 'Set' in the code!

Thanks for your help, sorry for the long post.

Jase

<no witty trailer supplied>

Fail To Create Excel Object In Win2k Server
Hi Experts,
I have a problem to deploy a standard exe which calling excel object and generate excel file on the server. I have make it success on my PC since my PC have the Excel 2000 installed but the server is not. What procedure should I take to make the exe can do the same thing without installing the Excel 2000 on the Server? Thanks for your help.

Excel Object Model - Server Threw An Exception
I have a strange problem with the Excel 97 object model within in VB6.

The code I wrote about a year ago ran under Windows NT 4.0 Workstation perfectly until I recently upgraded to Windows XP SP1 Integrated. I now find that a 'Server Threw An Exception' error occurs when my code attempts to add a workbook to an Excel Application object. What's even more bizzare is that after this error has occurred, an Excel journal entry appears as a deleted item in Outlook 2000.

Has anyone else come across this problem or does anyone know how to solve it?

Many thanks

What SQL Server Version Install? Command Object Question.
I have 3 questions:

- What SQL Server version install for 20 clients a 1 server?
Is Personal or Desktop enough?

- If i do this..whattype of recordset i get???

Dim rst As ADODB.Recordset
Dim CMD As ADODB.Command

Set CMD = New ADODB.Command
Set rst = New ADODB.Recordset

Set CMD.ActiveConnection = Cn
CMD.CommandText = "SP_MYSP"
CMD.CommandType = adCmdStoredProc
CMD.Parameters.Append ... SOME PARAMETER
Set rst = CMD.Execute

Is rst ReadOnly and ForwardOnly???

Error In Creating A Server Object From Custom Activex Dll
I have written an ActiveX dll to perform some work. At the top of my ASP script I place the following line.



I try to create an object using the following line.

Set MyObj = Server.CreateObject("MyClass")

I get the error "Invalid class string " on that line.

What am I doing wrong?

Pass Reference Of Current Object To Out Of Process COM Server?
I've got an application that uses an COM server to generate report data.

The server is set up with a main class interface cReport and various classes that implement it.

In the main application I have the following code:

Private mVarReport as cReport

Public Sub Generate()
    set mVarReport = CreateObject("MyClass.cBuyerReport")
End Sub

I'd like to implement events into the COM server, however I have a serious need to use an interface to define the objects in the client, and you can't implement events defined in the interface :(

What I tried to do is pass a reference of the current object using

     mVarReport.ParentObject = Me

so I can notify the client when the server is done operating (only way I can think of to achieve a callback like operation in this situation) but I get an
Error '98':
"A property or method call cannot include a reference to a private object, either as an argument or as a return value"

Any ideas on what to do to resolve this?

Thanks in advance!

--Michael P. Gerety

Default Date Problem With VB Object And SQL Server Database
I am working on VB 6 and SQL Server 7.

I have an object with different data types and one among is date type. I have a stored procedure with all fields as parameters to update a table. The problem is if I don't set any date to my date variable in the object while saving, it is inserting 01/01/1900 as date. I think it is the default date in VB. If I don't set date, I should only insert NULL value to the database. What are the alternatives.

Its weird when I check the following code
Dim tDate as Date
debug.print isNull(tDate) --> this always return false

VB6 + SQL Server Error: Can't Update. Database Or Object Is Read Only.
Hi,

I'm hoping someone can help.

I'm using a DAO recordset and SQL Server database (not a great combination).

In any case, on some PCs (not all), sometimes when the AddNew command is run, the application throws the error 'Can't update. Database or object is read only'.

The commands to open the recordset are:

set myrecordset = db.openrecordset(sqlstatement)
myrecordset.lockedits = false

Then the line that fails is:
myrecordset.addnew

Does anyone have any ideas what could be causing this?

Thanks!

How To Execute SQL Server Stored Procedure With SQLDMO Object?
I need to run "sp_helpdevice" stored procedure on SQL Server and obtain the result.
Can you show me how to do that?
Thank you.

Sending Email With CDONTS By Logging On To Server With Session Object
Is it possible to use CDONTS to send email from a VB program that is located on a client without SMTP installed? My thought would be to use the Session object of CDONTS and log onto SMTP on the Server and then use the session to send the email.

Any suggestions?
Thanks

How To Specify Database Server Or Connection String In A Crystal Report Object
Hi,
In Visual Basic how can I specify the
database server (or connectionstring)
of a crystal report object at runtime?

I need this because the .exe applications
in terminal computers are trying
to load a crystal report which
database resides in server "(local)"
(obviously because I designed the
report in the server and compiled
the visual basic .exe there too)

Thanks a lot for your help
Roland

How Can I Update A Table In SQL Server From A Dataset Object Created From Access
I have no problem creating a dataset using the dataAdapter object. The problem is that all of the documetation provided opens a dataset updates it and inserts back into the same database. I am merely trying to open a dataset in Access, then inserting that dataset into a SQL Server table of the same name and and structure. Here is my code.

Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        Dim cn As New OleDb.OleDbConnection(AuditConnString)
        Dim cn1 As New OleDb.OleDbConnection(OledbAuditSQLConnString)
        Dim cmd As New OleDb.OleDbCommand()
        Dim cmdInsert As New OleDb.OleDbCommand()
        'The SQL string will fill one table in SQL Server as opposed to three tables for reporting purposes
        Dim sql As String = " Select * from tblReportFindingsFCAudit where upload_status = 0" & _
                            "Select * from tblReportFindingsBRRAudit where upload status = 0"
        Dim SQLInsert As String = "Insert into [tblReportFindingsFCAudit] " & _
                                "(RepName,Auditor,Audit_Date,FindingsNumber,original_sent_date,second_letter_date,third_letter_date,close_date,upload_status,CheckState) " & _
                                " VALUES (?,?,?,?,?,?,?,?,?,?)"
        cn.Open()

        'Create a data adapter that reads and writes the tblFCFindings table
        Dim da As New OleDb.OleDbDataAdapter(sql, cn)
        Dim dsAccess As New DataSet()
        Dim daInsert As New OleDb.OleDbDataAdapter(SQLInsert, cn1)
        'Create the dataset
        'Read the tblReportFCFindings into a local DataTable
        da.SelectCommand = New OleDb.OleDbCommand(sql, cn1)
        da.Fill(dsAccess, sql)

        daInsert.SelectCommand = New OleDb.OleDbCommand(SQLInsert, cn1)

        pcInsert.Add("RepName", OleDb.OleDbType.VarChar)
        pcInsert.Add("Auditor", OleDb.OleDbType.VarChar)
        pcInsert.Add("Audit_Date", OleDb.OleDbType.Date)
        pcInsert.Add("FindingsNumber", OleDb.OleDbType.VarChar)
        pcInsert.Add("original_sent_date", OleDb.OleDbType.Date)
        pcInsert.Add("second_letter_date", OleDb.OleDbType.Date)
        pcInsert.Add("third_letter_date", OleDb.OleDbType.Date)
        pcInsert.Add("close_date", OleDb.OleDbType.Date)
        pcInsert.Add("upload_stats", OleDb.OleDbType.Boolean)
        pcInsert.Add("CheckState", OleDb.OleDbType.Boolean)

        daInsert.Fill(dsAccess, SQLInsert)
da.Fill(dsAccess, "tblReportFindingsFCAudit")

        'Update Access Database so no duplicates make it into SQL Server
        'Dim sql1 As String = "Update tblReportFindingsFCAudit Set upload_status = -1"
        'cmd.Connection = cn
        'cmd.CommandText = sql1
        'Dim records As Integer = cmd.ExecuteNonQuery()
        ' Debug.WriteLine(records)

        'close the connection
        cn.Close()
        cn1.Close()

    End Sub

Send Form Object Info And Reading The Server Response
I have a form object,
I set all the input text and all.

I want to be able to send it to a server and read the HTML code that is sent back.
The response HTML will have another Form and I want to put it into a HTML object.

I really need help with this, please show me how. I am not good with the form objects.

VBA - Connection To Server Fails - "object Is Required".
I have an access adp and SQL Server 2000.

I have used code similar to the below many times to make a connection to the server and run a stored procedure. But this time it is telling me that an object is required and blowing up at the .ActiveConnection line.

Can anyone help me figure this one out? Thanks!

Code:

Dim intClaimID As Integer
Dim intPersonID As Integer
Dim intPersonTypeID As Integer

intClaimID = Form_frmClaims.txtClaimID
intPersonID = Me.listPeople.Column(0)
intPersonTypeID = 3

With cmd
.ActiveConnection = CurrentProject.BaseConnectionString
.CommandType = adCmdStoredProc
.CommandText = "CSF_UPDATE_Claim_Person_XREF_T"
.Parameters.Refresh
.Parameters(1) = 0 'Need to autoset the Claim_Person_XREF_ID
.Parameters(2) = intClaimID
.Parameters(3) = intPersonID
.Parameters(4) = intPersonTypeID
.Parameters(5) = 0 'Deleted_B set to zero
Set rst = .Execute
End With

Error In Server.CreateObject("Object.Class")
<html><div style='background-color:'><DIV class=RTE>Hello,</DIV>
<DIV class=RTE> </DIV>
<DIV class=RTE>I have a error when :</DIV>
<DIV class=RTE> </DIV>
<DIV class=RTE>Set oObject = Server.CreateObject("Object.Class") </DIV>
<DIV class=RTE> </DIV>
<DIV class=RTE>From my page.asp.</DIV>
<DIV class=RTE>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>and show this error :</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<TABLE cellSpacing=5 cellPadding=3 width@0>
<TBODY>
<TR>
<TD id=tableProps vAlign=top align=left><IMG id=pagerrorImg height3 src="res://C:WINNTsystem32shdoclc.dll/pagerror.g if" width%></TD>
<TD id=tableProps2 vAlign=center align=left width60>
<H1 id=errortype style="FONT: 13pt/15pt verdana; COLOR: black"><SPAN id=errorText>The page cannot be displayed</SPAN></H1></TD></TR>
<TR>
<TD id=tablePropsWidth width@0 colSpan=2><FONT style="FONT: 8pt/11pt verdana; COLOR: black">There is a problem with the page you are trying to reach and it cannot be displayed.</FONT></TD></TR>
<TR>
<TD id=tablePropsWidth width@0 colSpan=2><FONT id=LID1 style="FONT: 8pt/11pt verdana; COLOR: black">
<HR color=#c0c0c0 noShade>

<P id=LID2>Please try the following:</P>
<UL>
<LI id=instructionsText1>Open the
<SCRIPT> Homepage();</SCRIPT>
<A href="http://jalanya:8081/" target=_top><FONT color=#ff0000>jalanya:8081</FONT></A> home page, and then look for links to the information you want.
<LI id=instructionsText2>Click the <A target=_self xhref="javascript:location.reload()"><IMG height alt="refresh.gif (82 bytes)" src="res://C:WINNTsystem32shdoclc.dll/refresh.gi f" width align=middle border=0></A> <A target=_self xhref="javascript:location.reload()">Refresh</A> button, or try again later.<BR>
<LI id=instructionsText3>Click <A href="javascript:doSearch()"><IMG height alt="search.gif (114 bytes)" src="res://C:WINNTsystem32shdoclc.dll/search.gif " width align=center border=0><FONT color=#ff0000> Search</FONT></A> to look for information on the Internet.
<LI id=instructionsText4>You can also see <A onclick=Related();event.returnValue=false href=""><FONT color=#ff0000>a list of related sites.</FONT></A> </LI></UL>
<P></P>
<P><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><BR></P>
<H2 id=ietext style="FONT: 8pt/11pt verdana; COLOR: black">HTTP 500 - Internal server error <BR>Internet Explorer </H2></FONT></TD></TR></TBODY></TABLE></DIV></DIV>
<P><STRONG>Object.Class</STRONG> this register in COM+ Services.</P>
<P>Help me please.</P>
<P>Best Regards</P>
<P>Jose</P></div><br clear=all><hr>Help STOP spam with <a href="http://g.msn.com/8HMAEN/2731??PS=">the new MSN 8 </a> and get 2 months FREE*</html>

Object Is Not Connected To Server

I get the following error when I try to run an executable:Run-time error '-2147220995 (800401fd)':Automation ErrorObject is not connected to serverAnyone any ideas?

I get the following error when I try to run an executable:

Run-time error '-2147220995 (800401fd)':

Automation Error
Object is not connected to server

Anyone any ideas?