Visual Basic :: Data Shows On My Computer But Not On Others.

Grd Shows More Data Than It Should. URGENT
I have a datagrid connected to a table in an MS Access 2002 database by ADODC. This table contains a list of items.
When I run the program, the grid shows the complete list of items but at the end there are some of these items re-listed again (like ghosts of previous rows). These additional rows do not exist in the underlying database table when I open it alone with Microsoft Access.
I tried to delete the ADODC control and put a new one. I also tried to remove the grd and put a new one. No use.

If I simply delete these rows, then I check the database table, the original rows that are not repeated are missing.

What's going on?

Eman_2005
Technical Communicator
www.smartistek.com

How To Ensure The Data Sent From One Computer To Another Computer Through TCP_IP To Be Read Before A
Hi! Everybody!
I meet a great problem! In my application, i will connect two computers through TCP_IP by the winsock control in VB. However, i find when i use the SendData method to send two different strings from one computer to another computer, the Data_arrival event in another computer will get the two strings merged together. I write the code as follows:

'In first computer
winsock1.SendData "abc"
winsock1.SendData "de"

'In second computer
Private Sub WinSocket_DataArrival(ByVal bytesTotal As Long)

Dim RecData As String

WinSocket.GetData RecData, vbString
'i find where the RecData is "abcde"
end sub

Actually, i want the data_arrival events to be triggered twice to get the data
of "abc" and "de" separately. How can i achieve this? Besides, is there any characters or string appearing in the data sent to indicate the string is end?
Or what is the max string length of the data send?

Could anybody help me?
Thank you very much!

Running DataReport Shows 'Invalid Data Source'
Hi

I have written a DataReport in VB6 that I am now running from another PC.

I get the message "Invalid data source" - there is no RTE or any other information.

I am using a DataEnvironment, etc, at design time to link to a local database to give me the fields to design the report, but then overwriting the relevant information in VB code at runtime i.e.

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gsDatabaselocation$ & "Televet.mdb" & ";User Id=admin;Password=;"

I've tested it locally against databases in a different location to the design time location.

The databases to be used are Access 97 and 2K. The failing PC is running Vista, but I haven't had chance to test on an independant XP machine yet.

Thanks in advance

Data View Window Shows Only ONE CONNECTION Object ??
Hi,

I am developing an application with VB and Oracle. I have TWO DATA ENVIRONMENT objects, each having a CONNECTION object.

DATAENVIRONMENT.CONNECTION and
DATAENVIRONMENT1.CONNECTION1

However, my Data View Window displays only ONE CONNECTION object ??
(sometimes only CONNECTION and sometimes only CONNECTION1)

1. Why is it not showing both the Connection's at the same time ?
2. Where does VB store these details / Could I edit these details ?
3. OR Is my .VBP / .VBW / .DSR / .DSX / .DCA file corrupted ?

Thanks in advance for any response ...

Prabhu

Data Report Shows No Records Unless I Pause After Command Execution
I am using the data environment to set up commands to get records which are placed onto data reports. I have found that if the command is simply returning records (in this case one record) and not using groupings or aggregates then no record detail is placed on the report. If, however, I pause for say 5 secs after calling the command and use DoEvents then the record detail is on the report! Why? It's as though the command execution is asynchronoous (I haven't set this to be the case). How do I resolve this problem without using an arbitrary pause? Here is an example of my code:

'populate the report temp table with details first
    If Not bPopVolTempReport(vdtmFrom, vdtmUntil) Then
        bVolumeReport = False
        Exit Function
    End If

    If deReport.rscmdVolumeRep.State = adStateOpen Then
        deReport.rscmdVolumeRepByDate.Close
    End If

    'generate recordset to place in report
    Call deReport.cmdVolumeRepByDate

    'Need to pause report output
    'without the next 6 lines or if PauseTime is less than 5
    'no details appear on report
    Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 5   ' Set duration in secs.
    Start = Timer   ' Set start time.
    Do While Timer < Start + PauseTime
       DoEvents   ' Yield to other processes.
    Loop

    'Ensure records have been got
    If deReport.rscmdVolumeRepByDate.State <> adStateOpen Then
        deReport.rscmdVolumeRepByDate.Open
    Else
        deReport.rscmdVolumeRepByDate.Requery
    End If

    While (deReport.rscmdVolumeRepByDate.State <> adStateOpen)
        DoEvents
    Wend

    'Load the report
    Load repTransactionVolumes

    Call repTransactionVolumes.ExportReport(rptKeyHTML, vstrPath &
gstr_RSP_TransVolume, True, False)

    'Wait for the asynchronous process to
    While repTransactionVolumes.AsyncCount > 0
        DoEvents
    Wend

Any insight into the use of commands in the data environment and reports would be very welcome.

Cheers
Phil

Crystal Report Doesn't Show Field's Data With Type Of Big Integer Nad Shows 0
I have a field in SQL server 2000 with type of big integer.If this field contains 10 digit number or less I can view it in my report else if It contains >10 digit number it doesn't show field's data and shows 0.How can I solve this problem?My crystal report version is 8.5.
Thank you

RESOLVED - Data Report Designer "Show" Only Shows Page 1
When previewing a report created using Data Report Designer using the .Show method
only page 1 displays. Is it possible to preview all pages?

Thank you

Edited by - jbkzmiller on 8/2/2005 5:46:28 PM

Data Report Shows Same Report
I am using data report with the data environment - connection is to an access database.
When I show the report for the first time it works OK
If I show it again , any changes to the database are not reflected in the report.
If the program is restarted then the report shows the changes.
How can I get the report to show the updated data without stoppimg the program.

Help please

Getting Computer Data
How can VB to show up

Current Ram use
Total Ram Usable
Size of HD
Amount aready used
Computer Temperature
Processor Temp

These sorts of things

anyone?

Send Data From One Computer To Another
I am devloping a project with vb6.0 and access I have a data base file and i want to enter something in the data base from another computer.
this computers are in long distance and both are connected with internet.
now i want to enter some data in the computer from another by internet Is it possable?

Problem With Data Report In Certain Computer.
Hi,
I've installed my program into a few pc. This program works fine but the data report works only in certain pc. I've tested with 2 different pc with same spec. and resolution but only 1 pc can work but the other can't.

The error is,
"Report width is larger than the paper width"

Any idea? Thanx in advance..

Saving Data To A Remote Computer
What would be the best way to save data to a remote location from within the program I am working on?

The data is text and resides in a text box. I am currently using the Internet Transfer control to view the remote directories and to load the data using the execute method GET followed by GetChunk. It appears that most of the functions only allow for file transfer and I am looking for a way to save the data directly without having to save it locally then transfer the file. I guess what I want is something opposite to the OpenURL method.

Any help will be appreciated.

Thanks

Save Data One Computer To Another By Internet
suppose i have a computer in one office and another computer in another office and the both of the computer are connected with internet and now i want to save date from one computer to another computer by vb6.0

will you please help me
thank you

Send Data Directly To Someone Computer
Here are ways to get a screenshot:
http://www.vbforums.com/showthread.p...ght=screenshot
http://www.vbforums.com/showthread.p...ght=screenshot
http://www.vbforums.com/showthread.p...ght=screenshot

Send Data To Another Computer Using Modem - Help Please...
Say I have an internet connection already established (so does my friend) how can I get my vb program to send him a string of text through vb. I am making a dice game, highest number wins...

How can i get my dice number through to him, to display on his computer as "Tim rolled 6 + 6 = 12."

Any help is cool. Thanks.

Data Couldn't Be Populated To Another Computer
Hi,

I am experiencing a tricky problem. I wrote a program to populate data into SQL2000 using VB6 with OLE DB provider. I tested it in my computer working very well, but when I loaded this program in different computer, data never be populated to database and also no any error message generated. Any suggestion? Thanks in advance.

vbliker

Show How Well User's Computer Is Receiving Data?
Hi,

In the game client i'm making, i want to make a progress bar that goes up and down depending on how fast/slow the users computer is receiving data from the internet.

basically, i want to give the user knowledge of how laggy their connection is

Any ideas how i would do this?

Thanks

James

Upload Data From Local Computer To The Web Server
Hi All,

I want to upload my exiting SQL Server 2000 database to on a hosted Web Server.
my database name is "emp_records" i want to upload it on web server through FTP software.
How can i do ????
Please Help me?????

How Do You Get The Data (after The Program Runs) To Show Up On Your Computer Screen??
Hello,
I am very new to VB. Well I have always been told that there is no such thing as a dumb question, so here it goes.....

When I execute the program...I do not get any data on my screen.

How to you print the data to the screen or how do you make the data show up on the screen???

Could you please provide some code that I can use to look at and learn from.

I have posted my code, so far, below:

Thanks

bhowerton

Code:
Private Sub mnuFileOpen_Click()
Dim i As Integer, n As Long
Dim Lines() As String

Open "c:gdss.txt" For Input As #1 'Open the file
Lines() = Split(Input(LOF(1), 1), vbCrLf) 'Read all the lines into an array
Close #1 'Close the file

n = UBound(Lines) 'Find out how many lines were read
ReDim aircraft(n) 'Dimension all the arrays to the needed size
ReDim mission_type(n)
ReDim mission_number(n)
ReDim leg(n)
ReDim icao(n)
ReDim sched_depart_date_time(n)
ReDim actual_depart_date_time(n)
ReDim delay_code(n)
ReDim delay_time(n)

For i = 0 To n 'For all the lines read
lineParts = Split(Lines(i), ";") ' Split into fields
aircraft(i) = lineParts(0) ' Assign the fields.
mission_type(i) = lineParts(1)
mission_number(i) = lineParts(2)
leg(i) = lineParts(3)
icao(i) = lineParts(4)
sched_depart_date_time(i) = lineParts(5)
actual_depart_date_time(i) = lineParts(6)
delay_code(i) = lineParts(7)
delay_time(i) = lineParts(8)
Next
End Sub

Using Winsock Or Soemthing To Send Data To Antoehr Computer?
is that what winsock is for? if so, how would I set it up so that i can, say, send a line of text to one of my friends when i click a button?

Sending A Files From Client Computer To Host Computer, Via LAN/internet
Hi everyone:

Please help me..I need to finish my project..

Below is my explanation:

Client:
Execute program=>click a button=>program seek for certain folder (c:myfolder)=>sending all files (2kB) to host

Host:
Always looking for incoming files=>save in a folder
(host could be a desktop-webserver, installed tomcat/apache, assumed with static ip)

Please help...Thanks in advance.

Text Wrap In Labels - Varies From Computer To Computer
I have some applications in which labels that look fine on my computer will have the text wrapped on other people's computers. Can someone tell me how this can be fixed? I assume it has something to do with screen resolution and/or system font size. Is there some way to sense this and correct the label size or reduce the size of the font in the label?

Thanks,
Ken

Norman Sandbox - A Computer Inside A Computer - How It Works?
I was having this idea of having a computer inside a computer
when I started learning programming quite a long time ago,
particularly useful in tricking viruses into thinking they're wrecking
stuffs in the real environment where in fact they're inside a virtual
computer. Unfortunately, not long then, I found out that there's
already company doing this, but for different purposes.

Now this norman sandbox got me recalled of this virtual computer.
So basically, when the virus make system calls, how could we
intercept it and return false values as to trick it and simulate a
virtual computer environment?

Call Exe File From Other Networked Computer And Run It On Original Computer
Good to all to you experts! I had a hard time just to call the exe file which is actually the file that i set-up to that particular networked computer and call it from the server computer and onced it has called it will then run on the computer where it resides. thanks in advance.

Grid Shows B-A Instead Of A-B
Hi, All!

My grid is showing the last item in the array first instead of the first item. Tried looking for a Sort property for the grid (MSHFlexGrid), but there isn't one. Don't know where else to look.

Below is the code.

Any help would be appreciated!

Thanks in advance,

vbprogwb (Bob)

'ReDimming the array
'As names and etc., are added to the Little Black Book

ReDim BlackBook_RecArray(totalRecs)
RecCount = totalRecs

Grid1.Col = 1
Grid1.Row = 1

'This fills up the array with Type - udtItemRec/itemStruc

For X = 1 To RecCount
Get #1, X, udtItemRec
BlackBook_RecArray(I) = udtItemRec.strLName & Chr(9) & udtItemRec.strFName & Chr(9) & udtItemRec.strPhone & Chr(9) & udtItemRec.strEmail
I = I + 1
Debug.Print BlackBook_RecArray(I) 'x = x + 1
Next X

I = 0

For I = 0 To RecCount - 1

If I <> RecCount Then
Debug.Print BlackBook_RecArray(I)

Grid1.AddItem (BlackBook_RecArray(I)), 1
End If

Next I

BitBlt (nothing Shows Up)
Hi, I want my pic1 picturebox to show up somewhere on top of the screen (which displays over EVERYTHING). My project file is attached. I have been trying to figure this one out for some time now.

Thanks in advance.

Vb Shows 2 Forms Instead One
i made something like de MDI sample from the VB help.when i reference the first element of the array(an array of forms),Vb loads 2 forms.And the UBound() of the array shows that is only one element in the array.
That'is when i reference array(0),Vb shows 2 forms and UBound(array)=0.any idea?
thanks

Err.Number Shows 0
I have the following code that, on an error, writes to a DB.
The problem is, when I get the first error in the select case,
run-time error 76 - Path not found
my error reporting doesn't show Err.Number as 76 but 0
Also Err.Description is empty as well.

Am I missing something obvious here?

vb Code:
Private Sub mnuHelpBackup_Click()On Error GoTo ErrTrap Dim BackupDestination As String 'get backup destination from registry (Options form)BackupDestination = GetRegistryStr(hkeyCurrent_User, strSubKey, "BackUpPath") 'copyfile actual fileFileCopy App.Path & "CLDB.mdb", BackupDestination & "CLDB.mdb" Exit Sub ErrTrap: Select Case Err.Number Case Is = 76 'path not found - possible folder deleted or moved MsgBox "The selected path does not exist. It may have been " & vbCrLf & _ "moved or deleted. Please select a new path.", vbOKOnly + vbInformation, _ "Path does not exist" Case Is = 4004 'Backup failed MsgBox Err.Description & vbCrLf & "Error number " & Err.Number, _ vbOKOnly + vbInformation, "Backup Error" Case Else MsgBox "Database cannot be copied." & vbCrLf & "Error Number = " & Err.Number & vbCrLf & _ "Error Description = " & Err.Description, vbOKOnly + vbInformation, "Backup Error"End Select ProcedureName = "frmCodeLib mnuHelpBackup"Call ErrorControl(strUser, Err.Number, Err.Description, ProcedureName, _ Format(Now, "dd/mm/yyyy"), Format(Now, "hh:mm:ss"))

EDIT
When run in the VB IDE this works, but when I compile the program, I get the problem explained above.

Listbox Shows Twice The Same Value
Hi, I was just wondering how do you do this:?

Add something to the listbox but if the value I added is already in there, then it does not come up again. For example, If I add the Name "George" to the listbox and try to add it again, the name "George" should not come up again since its already in there.

How can I do this with the IF....THEN statement?

Thank You,
EnYcE

Computer A Call Computer B Run A Program In Network
Hello everybody !

I have a network, I am computer A, can I write a program where the program function is call computer B in network running another program ? like notepad..etc

Thank a lot

MSN Messager ID:lkching7@msn.com

Color Cursor Shows Up B/w
I loaded various color cursors into form/picture box properties but they only show up black on white. Any ideas why?

Unwanted Form Shows
I started programming with a normal form as the startupform. I have several forms now and replaced the initial startupform with an MDI as the startup object (and made all my other forms 'CHILD')...

Unfortunately when I run the program some of my forms are loaded when I'm not wanting them to. I had to add some useless 'Unload frmxx' code to my project to prevent this...
Before, when I didn't have an MDI, it never happened.

I'm almost sure I'm not loading these forms in my code...

How comes they appear anyway

tia

You Slove One Problem And The Next Shows Up
ok i need to clear the form so that the bullets wont make a line but by clearing the form the "plane" blinks and it is very annoying. make it stop blinking or tell me how. sry if the dl doesnt work right this is my first time using it

PPT: Access Custom Shows
I've been looking for help with this for days and I'm just stuck. I want to select powerpoint slides defined in a custom show and copy them to a new presentation. The only thing google turned up was a 3rd party extension...and that won't work. Frustrating.

ActivePresentation.SlideShowSettings _
.NamedSlideShows("Quick Show").Delete

You'd think, I just change "delete" to "copy"...but no...that doesn't work either.

I got this far, but it shows the slide IDs in a message box; I need them to add themselves to a range Array and I can't figure out how to get them there instead of in a mesage box:

idArray = ActivePresentation.SlideShowSettings _
.NamedSlideShows("show a").SlideIDs
For I = 1 To UBound(idArray)
MsgBox idArray(I)
Next
ActivePresentation.Slides.Range(Array(I)).Copy
Presentations.Add WithWindow:=msoTrue
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.View.Paste

I'm lost. Any help greatly appreciated.

Form Shows Up Late
I'm making a Form that shows a file copying progress. The copy procedure starts on FormLoad. What I'd like to do is to show the whole form and the label.captions... before it starts copying. 'Cause now it just copies the files and shows the form after that.

Flexgrid Shows No Rows
I've been away from VB stuff for a number of months.
Today I opened up my projects and none of the mshflexgrids shows any rows.
I've got them bound to ado controls. I've tried doing an adoctrl.recordset.recordcount to make sure that there should be rows to show, and I get the correct amount of rows, but the rows never show in flexgrid.
The same is true with all the flexgrids in all my projects.

Control That Shows Webcam
Where can I get a control that shows me my webcam's picture, and let me capture it and stuff? I'm sure that there's already one on my computer, but maybe not.

Thx!

Flexgrid Shows Only One Line
I have a problem where a flexgrid will only display one line of data on one machine in the network - it works perfectly on the other machines in the network.
The data is being loaded from a text array.
Thanks for any hints on what may be causing this strange behaviour.

Nothing Shows After Maximizing The Window
Hi:

I’m relatively new to vb. I’m using vb 6 and am having problems with a window not showing correctly. The application uploads a file via ftp to a server. If the window is minimized while the file is being uploaded and then is maximized again, nothing shows in the window until the file is through uploading. I’m not quite sure where to start to correct this. Any help would be appreciated.

Thanks in advance for the help.

Chris

Which Type Shows Decimal.
Hi, im doing a sub routine that calculates a number that is shown as a currency in an excel sheet.

When i had the variables set to Long's it was fine but seemed to round to the nearest number. I tried variant and that worked but then an adding formula i had wouldnt work because it took the values as strings. So im stuck kinda. Either i find a type that works or find out how to switch the variant into a long in the subroutine. Thanks.

Date Shows Up As Time
When updating a record in my table with a new date, the date shows up as a time when I query the record. Looking at the field inside the actual database it looks like there's a date with the year 1895 (not sure how that got there) and a time. Here's my code:

dteDate = Date
strSQL = "UPDATE Topics SET DocumentName = """ & strFileName & """, ChapterTitle = """ & strChapterTitle & """, TopicTitle = """ & strTopicText & """, Notes = """ & strNotes & """, DateModified = " & dteDate & ", IsAddenda = " & blnIsAddenda & ", ProjectName = """ & strProjectName & """ WHERE ID=" & intRecordID & ""
myDB.Execute (strSQL)

The column in my Access database if set to the ShortDate format. Any ideas? Thanks.

If Nothing Shows Up Have A Listbox Say Sometihng?
Hey guys i have a listbox called list11, and it has the results of a scan from a button. IS there a code to get it that if nothing shows up in the list11 listbox, that an item would show up saying "Nothing found"

??
thank you.

When I Run My Program The Code Shows?
When i press play, the code shows up instead of the form..any ideas?

yt

Form That Shows Loading Bar
how would i go about making a preload form that displays a loading bar and then loads the main mdi form after its finished...? here is an example

Text Box Shows Number
hope you understand this i need some coding.......

If i type a number from 0-82 in text1 i want text2 to show the number 1
if i type a number between 83-174 i want text2 to show the number 2
if i type a number between 175-276 i want text2 to show number 3

this seems like really simple coding but i am a noob to vb i am just messing with it thats how i learn

Chosing Which Form Shows First...
how do i choose which form is shown first?

Frame Shows Form
How can I make a frame(the one vb6 provides) show a form?

I tried this but it didn't work:

Private Sub Frame1_Load()
Frame1 = Form.show
End Sub

Anyone knows how?

VbTab In String Shows A Bar??
I have a string as follows

str = "ABC" & vbTab & "DEF"

when I put str into a flexgrid cell the tab converts into a thick vertical bar.

What do I need to do for it to actually put in a tab?

Thanks as always!

Steve

ps. I am still bang my head against the wall regarding how to define a Band in an Hierarchal Flex Grid (so I can make different columns different background colors)