VBForums - Visual Basic 6 and Earlier http://www.vbforums.com/ en Wed, 22 May 2013 17:06:53 GMT vBulletin 60 http://www.vbforums.com/images/misc/rss.png VBForums - Visual Basic 6 and Earlier http://www.vbforums.com/ How to send CTRL+W to an IE8 Browser base in Tab Title http://www.vbforums.com/showthread.php?722495-How-to-send-CTRL-W-to-an-IE8-Browser-base-in-Tab-Title&goto=newpost Wed, 22 May 2013 15:37:40 GMT Local $oIE = _IEAttach($var1) #include _IEQuit($oIE) Thanks Hari]]> Hi Forum members,

Im trying to work out how to send a CTRL+W command to a specific tab that can be defined by a variable. I have written such a script in AutoIT, however, cant seem to get this working in just straight forward VB. Please see below my AutoIT script if it helps.

$var1 = "eSeries Logon"

#include <IE.au3>
Local $oIE = _IEAttach($var1)
#include <IE.au3>
_IEQuit($oIE)


Thanks
Hari ]]> Visual Basic 6 and Earlier Harikara http://www.vbforums.com/showthread.php?722495-How-to-send-CTRL-W-to-an-IE8-Browser-base-in-Tab-Title Check for internet connection gives error in windows 8 http://www.vbforums.com/showthread.php?722487-Check-for-internet-connection-gives-error-in-windows-8&goto=newpost Wed, 22 May 2013 14:53:12 GMT -1) And (lAddress <> 0) Then 'Create the handle for ICMP requests. hIcmp = IcmpCreateFile() If hIcmp Then 'Ping the destination IP address. Call IcmpSendEcho(hIcmp, lAddress, StringToSend, Len(StringToSend), 0, Reply, Len(Reply), lTimeOut) 'Reply status ping = Reply.Status 'Close the Icmp handle. IcmpCloseHandle hIcmp Else 'Debug.Print "failure opening icmp handle." ping = -1 End If Else ping = -1 End If Exit Function ping_EH: Call msglog(Err.Description & Space(10) & "ping", False) End Function --------- It is only a part of coding(I do pass parameters properly such as sAddress with DNS of google etc).Now i have observed that when internet connection is there in windows xp ping = Reply.Status returns 0 (which is for success).Same is the case in Windows 8 also.But when internet connection is not there windows xp returns ping value as 11003(which means no internet connection).But in windows 8 it still returns 0 which is for success. So i think it is problem with IcmpSendEcho function which returns wrong value i have defined following also Code: --------- Private Declare Function IcmpSendEcho Lib "icmp.dll" _ (ByVal IcmpHandle As Long, _ ByVal DestinationAddress As Long, _ ByVal RequestData As String, _ ByVal RequestSize As Long, _ ByVal RequestOptions As Long, _ ReplyBuffer As ICMP_ECHO_REPLY, _ ByVal ReplySize As Long, _ ByVal Timeout As Long) As Long 'This structure describes the options that will be included in the header of an IP packet. 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcetcpip/htm/cerefIP_OPTION_INFORMATION.asp Private Type IP_OPTION_INFORMATION Ttl As Byte Tos As Byte Flags As Byte OptionsSize As Byte OptionsData As Long End Type 'This structure describes the data that is returned in response to an echo request. 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesdkr/htm/_wcesdk_icmp_echo_reply.asp Public Type ICMP_ECHO_REPLY address As Long Status As Long RoundTripTime As Long DataSize As Long Reserved As Integer ptrData As Long Options As IP_OPTION_INFORMATION Data As String * 250 End Type --------- Hint:also in link IcmpSendEcho (http://msdn.microsoft.com/en-us/library/windows/desktop/aa366050%28v=vs.85%29.aspx) IP_OPTION_INFORMATION for 64 bit pc is different etc.. etc.. So please help me to solve the problem]]> I Have a vb6 code which is used to test whether internet connection is there or not for a PC.I make use of checking google DNS for it.It works fine in Windows XP.But in Windows 8 if internet is connected or not it always returns success(Internet is connected). I am making use of Below is part of coding
Code:
Private Function CheckForInternet(ByVal ServerIP As String, ByRef IsTimedOut As Boolean) A

s Boolean
On Error GoTo CheckForInternet_EH

Dim Reply As ICMP_ECHO_REPLY
Dim lngSuccess As Long
Dim strIPAddress As String
Dim a As String
Dim startTimer As Single
Dim EndTimer As Single
Const Time_out_in_ms As Integer = 1000
'Get the sockets ready.
If SocketsInitialize() Then
    'Address to ping
    strIPAddress = ServerIP

    'Ping the IP that is passing the address and get a reply.
    lngSuccess = ping(strIPAddress, Time_out_in_ms, Reply)

    'Clean up the sockets.
    SocketsCleanup

    ''Return Value
    If lngSuccess = ICMP_SUCCESS Then
        CheckForInternet = True
    ElseIf lngSuccess = ICMP_STATUS_REQUEST_TIMED_OUT Then
        IsTimedOut = True
    End If
'Else
'    'Winsock error failure, initializing the sockets.
'    Debug.Print WINSOCK_ERROR
End If

Exit Function
CheckForInternet_EH:
Call msglog(Err.Description & Space(10) & "CheckForInternet", False)
End Function
And below is ping procedure
Code:
Public Function ping(ByVal sAddress As String, ByVal time_out As Long, Reply As ICMP_ECHO_REPLY) As Long
On Error GoTo ping_EH

Dim hIcmp As Long
Dim lAddress As Long
Dim lTimeOut As Long
Dim StringToSend As String

'Short string of data to send
StringToSend = "hello"

'ICMP (ping) timeout
lTimeOut = time_out ''ms

'Convert string address to a long representation.
lAddress = inet_addr(sAddress)

If (lAddress <> -1) And (lAddress <> 0) Then

    'Create the handle for ICMP requests.
    hIcmp = IcmpCreateFile()

    If hIcmp Then
        'Ping the destination IP address.
        Call IcmpSendEcho(hIcmp, lAddress, StringToSend, Len(StringToSend), 0, Reply, Len(Reply), lTimeOut)

        'Reply status
        ping = Reply.Status

        'Close the Icmp handle.
        IcmpCloseHandle hIcmp
    Else
        'Debug.Print "failure opening icmp handle."
        ping = -1
    End If
Else
    ping = -1
End If
Exit Function
ping_EH:
Call msglog(Err.Description & Space(10) & "ping", False)
End Function
It is only a part of coding(I do pass parameters properly such as sAddress with DNS of google etc).Now i have observed that when internet connection is there in windows xp ping = Reply.Status returns 0 (which is for success).Same is the case in Windows 8 also.But when internet connection is not there windows xp returns ping value as 11003(which means no internet connection).But in windows 8 it still returns 0 which is for success.

So i think it is problem with IcmpSendEcho function which returns wrong value

i have defined following also

Code:
Private Declare Function IcmpSendEcho Lib "icmp.dll" _
  (ByVal IcmpHandle As Long, _
    ByVal DestinationAddress As Long, _
    ByVal RequestData As String, _
    ByVal RequestSize As Long, _
    ByVal RequestOptions As Long, _
    ReplyBuffer As ICMP_ECHO_REPLY, _
    ByVal ReplySize As Long, _
    ByVal Timeout As Long) As Long

'This structure describes the options that will be included in the header of an IP packet.
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcetcpip/htm/cerefIP_OPTION_INFORMATION.asp
Private Type IP_OPTION_INFORMATION
  Ttl            As Byte
  Tos            As Byte
  Flags          As Byte
  OptionsSize    As Byte
  OptionsData    As Long
End Type

'This structure describes the data that is returned in response to an echo request.
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesdkr/htm/_wcesdk_icmp_echo_reply.asp
Public Type ICMP_ECHO_REPLY
  address        As Long
  Status          As Long
  RoundTripTime  As Long
  DataSize        As Long
  Reserved        As Integer
  ptrData                As Long
  Options        As IP_OPTION_INFORMATION
  Data            As String * 250
End Type


Hint:also in link IcmpSendEcho IP_OPTION_INFORMATION for 64 bit pc is different etc.. etc..

So please help me to solve the problem ]]> Visual Basic 6 and Earlier winman http://www.vbforums.com/showthread.php?722487-Check-for-internet-connection-gives-error-in-windows-8 Apostrophe in String Data causes error. http://www.vbforums.com/showthread.php?722477-Apostrophe-in-String-Data-causes-error&goto=newpost Wed, 22 May 2013 11:17:50 GMT ' < e.g. rosie.o'grady@domain.com which crashed the email lookup function. The failing code is as follows: Private Function FindRecord(EmlDBObj As Object, SQLSearchString As String) If EmlDBObj.RecordCount > 0 Then EmlDBObj.MoveFirst EmlDBObj.Find SQLSearchString, , adSearchForward End If I would greatly appreciate any suggestions of how to handle the apostrophe issue. Thanks in advance .... Colin]]> Hi

I am a noob to VB6 but am supporting some code written by another person a long time ago. Upto now I have been doing OK but I recently hit an issue that is outside of my experience and I was hoping someone could point me in the right direction. The program in question is auto-processing emails (the client is Outlook) and performing actions based upon the content of the email.

The issue I have hit however is that for the first time we received an email from an sender who's email address contained an apostrophe character > ' < e.g. rosie.o'grady@domain.com which crashed the email lookup function. The failing code is as follows:

Private Function FindRecord(EmlDBObj As Object, SQLSearchString As String)
If EmlDBObj.RecordCount > 0 Then
EmlDBObj.MoveFirst
EmlDBObj.Find SQLSearchString, , adSearchForward
End If

I would greatly appreciate any suggestions of how to handle the apostrophe issue.

Thanks in advance .... Colin ]]> Visual Basic 6 and Earlier kolw http://www.vbforums.com/showthread.php?722477-Apostrophe-in-String-Data-causes-error SSTAB (Microsoft Tabbed Dialoge Control) Tutorial http://www.vbforums.com/showthread.php?722465-SSTAB-(Microsoft-Tabbed-Dialoge-Control)-Tutorial&goto=newpost Wed, 22 May 2013 08:33:11 GMT Hi, Anyone can give / suggest the tutorial of SSTAB Control Hi,
Anyone can give / suggest the tutorial of SSTAB Control ]]> Visual Basic 6 and Earlier hafizfarooq http://www.vbforums.com/showthread.php?722465-SSTAB-(Microsoft-Tabbed-Dialoge-Control)-Tutorial winsock multiple client wiht same ip and different port with a server http://www.vbforums.com/showthread.php?722453-winsock-multiple-client-wiht-same-ip-and-different-port-with-a-server&goto=newpost Wed, 22 May 2013 05:35:55 GMT HIIIII

i am using winsock with as server and multiple client its working fine

Now in my project i want multiple client to be created so i have created multiple client with same ip but having different port no

Can winsock send data to such client possessing same IP but different port

i want to create multiple dummy client at same PC can it be done & can winsock send data to all those client carrying same ip

Or is there any alternative to do this ]]> Visual Basic 6 and Earlier bhavik http://www.vbforums.com/showthread.php?722453-winsock-multiple-client-wiht-same-ip-and-different-port-with-a-server <![CDATA[[RESOLVED] Highlighting Complete Row of FlexGrid]]> http://www.vbforums.com/showthread.php?722447-RESOLVED-Highlighting-Complete-Row-of-FlexGrid&goto=newpost Wed, 22 May 2013 05:03:48 GMT Hi, I want to highlight the complete row of flexgrid, i m using the below code to search and highlight but it starting the highlight from 2nd column. I have 5 columns, last one of them is hidden as its colwodth is 0 Code: --------- Dim Target As String Dim z As Integer Target = LCase$(Srch) For z = 1 To msh.Rows - 1 If InStr(1, LCase$(msh.TextMatrix(z, 0)), Target) Then With msh Dim y As Integer For y = 1 To .Cols - 1 .Row = z .Col = y .CellBackColor = RGB(145, 175, 210) .CellFontBold = True Next y End With End If Next z --------- Hi,
I want to highlight the complete row of flexgrid, i m using the below code to search and highlight but it starting the highlight from 2nd column. I have 5 columns, last one of them is hidden as its colwodth is 0
Code:
Dim Target As String
Dim z As Integer

   
    Target = LCase$(Srch)
    For z = 1 To msh.Rows - 1
        If InStr(1, LCase$(msh.TextMatrix(z, 0)), Target) Then
            With msh
                Dim y As Integer
                    For y = 1 To .Cols - 1
                        .Row = z
                        .Col = y
                        .CellBackColor = RGB(145, 175, 210)
                        .CellFontBold = True
                    Next y
            End With
        End If
    Next z
]]> Visual Basic 6 and Earlier hafizfarooq http://www.vbforums.com/showthread.php?722447-RESOLVED-Highlighting-Complete-Row-of-FlexGrid printing msflexgrid data excluding empty rows http://www.vbforums.com/showthread.php?722439-printing-msflexgrid-data-excluding-empty-rows&goto=newpost Wed, 22 May 2013 02:07:31 GMT I am in a progress of making point of sale program.now,my problem is when i print the data in msflexgrid as a receipt the empty rows will also give a space.what i wanted to happen is to print data in the msflexgrid without having space for the empty rows..can someone help me please..thank you.. I am in a progress of making point of sale program.now,my problem is when i print the data in msflexgrid as a receipt the empty rows will also give a space.what i wanted to happen is to print data in the msflexgrid without having space for the empty rows..can someone help me please..thank you.. ]]> Visual Basic 6 and Earlier jumjum http://www.vbforums.com/showthread.php?722439-printing-msflexgrid-data-excluding-empty-rows help making this software : little tired cant think strait http://www.vbforums.com/showthread.php?722437-help-making-this-software-little-tired-cant-think-strait&goto=newpost Wed, 22 May 2013 01:41:36 GMT i have this paid service running online many users make online request i carry out there request then get paid now , i wish to make things more smooth easy fast as possible to handle many customers same time what i need a tool that can add username request info $ payment info how much has been paid and owed and save the data. after request has been completed by our staff we need to inform user he needs to pay remaining amount owed. i will off course make a client and server so i can send and retrieve data. i got some ideas just thought il make this post and get some more ideas out of you:pplz i have this paid service running online many users make online request i carry out there request then get paid now , i wish to make things more smooth easy fast as possible to handle many customers same time


what i need a tool that can

add username
request info
$ payment info how much has been paid and owed
and save the data.

after request has been completed by our staff we need to inform user he needs to pay remaining amount owed.

i will off course make a client and server so i can send and retrieve data.

i got some ideas just thought il make this post and get some more ideas out of you:pplz ]]> Visual Basic 6 and Earlier ladoo http://www.vbforums.com/showthread.php?722437-help-making-this-software-little-tired-cant-think-strait Small System Explination! http://www.vbforums.com/showthread.php?722435-Small-System-Explination!&goto=newpost Wed, 22 May 2013 00:08:45 GMT I have a small visual basic program that i'd be very grateful if someone could briefly explain how it works.

PM me and i'll send the program over.

Thanks ]]> Visual Basic 6 and Earlier machineman http://www.vbforums.com/showthread.php?722435-Small-System-Explination! <![CDATA[[RESOLVED] CommonDialog and font style]]> http://www.vbforums.com/showthread.php?722431-RESOLVED-CommonDialog-and-font-style&goto=newpost Tue, 21 May 2013 23:17:31 GMT When calling up the CommonDialog for Fonts, is there a way to NOT display the font style (bold, regular, italic, etc.)? All I want to user to be able to select a font and size. When calling up the CommonDialog for Fonts, is there a way to NOT display the font style (bold, regular, italic, etc.)? All I want to user to be able to select a font and size. ]]> Visual Basic 6 and Earlier mickeykelley http://www.vbforums.com/showthread.php?722431-RESOLVED-CommonDialog-and-font-style <![CDATA[[RESOLVED] Help control array change borderstyle]]> http://www.vbforums.com/showthread.php?722429-RESOLVED-Help-control-array-change-borderstyle&goto=newpost Tue, 21 May 2013 22:36:38 GMT There are 5 images. When I click on one I want to change it's borderstyle. Only one image can have a borderstyle = 1 at any time. So how I change the previous image borderstyle back to zero.
Code:
        If imgCar(Index).BorderStyle = 0 Then
            imgCar(Index).BorderStyle = 1
        Else
            imgCar(Index).BorderStyle = 0
        End If
]]> Visual Basic 6 and Earlier firezap http://www.vbforums.com/showthread.php?722429-RESOLVED-Help-control-array-change-borderstyle Visual Basic 1 code? http://www.vbforums.com/showthread.php?722423-Visual-Basic-1-code&goto=newpost Tue, 21 May 2013 20:31:25 GMT >||||| 530 FOR I=0 TO 50 540 J=I+2,C+(C+I)MOD8 550 LINE(319-J,99-I)-(320+J,100+I),PSET,C,D 560 NEXT I 570 NEXT Z 580 '|||||<< BOX-Z >>||||| 590 FOR SS=1 TO 1000 STEP 10 600 FOR I=0 TO 310 STEP SS 610 J=I/3,3|C=(C+I)MOD7 620 LINE(319-I,99-J)-(320+I,100+J),PSET,C,D 630 NEXT I 640 NEXT SS 650 '|||||<< BOX-Z >>||||| 660 FOR I=0 TO 100 670 J=I/3,3 680 LINE(319-I,99-J)-(320+I,100+J),PSET,O,D 690 NEXT I 700 '|||||<< FLASH-3 >>||||| 710 FOR J=1 TO 100 | C=RND16+I 720 CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)-322,101)-(340,100)-(322,99)-(320,90),C 730 NEXT J 740 FOR I=101 TO 319 750 J=I/3,3 760 LINE(319-I,99-J)-(320+I,100+J),PSET,O,D 770 NEXT I 780 '|||||<< FLASH-3>>||||| 790 FOR J=1 TO 100 | C=RND16+I 800 CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)(340,100)-(322,99)-(320,90),C 810 NEXT J 820 '|||||<< STAR-3 >>||||| 830 FOR J=1 to 100 840 I=3,2|J 850 C=RND16+I 860 X1=(320-I)+RND|I| X2+RND|I+319 870 Y1=(100+J)+RND|J|Y2+RND|J+99 880 PSET(X1,Y1,C)|PSET(X2,Y2,C)|PSET(X1,Y2,C)|PSET(X2,Y1,C) 890 NEXT J 900 GOTO 400 --------- I first though it was SINCLAIR basic, but someone said it looked more like Visual Basic. The video is from 1992, so I'm guessing Visual Basic 1 or so. Anyway, some characters were quite unclear so I may have been mistaken with several( like | for example). It would be awesome if someone who knows the language well could help me fix this. Thanks.]]> Hi, I'm completely new to visual basic, and for a contest I'm competing in I had to take a piece of code shown in a video.
Since the video was a bit unclear this is what I could read from it:
Code:
470                C+RND16+I|X=RND1639 | Y=RND|199
480                LINE(320,100)-(X,Y),PSET,C| LINE(320,100)-(X,Y),PSET,O
490                NEXT I
500                NEXT Z
510                  FOR Z=1 TO 5
520 '|||||<< BOX-Z >>|||||
530                FOR I=0 TO 50
540                J=I+2,C+(C+I)MOD8
550                LINE(319-J,99-I)-(320+J,100+I),PSET,C,D
560                NEXT I
570                NEXT Z
580 '|||||<< BOX-Z >>|||||
590                FOR SS=1 TO 1000 STEP 10
600                FOR I=0 TO 310 STEP SS
610                J=I/3,3|C=(C+I)MOD7
620                LINE(319-I,99-J)-(320+I,100+J),PSET,C,D
630                NEXT I
640                NEXT SS
650 '|||||<< BOX-Z >>|||||
660                FOR I=0 TO 100
670                J=I/3,3
680                LINE(319-I,99-J)-(320+I,100+J),PSET,O,D
690                NEXT I
700 '|||||<< FLASH-3 >>|||||
710                FOR J=1 TO 100 | C=RND16+I
720                CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)-322,101)-(340,100)-(322,99)-(320,90),C
730                NEXT J
740                FOR I=101 TO 319
750                J=I/3,3
760                LINE(319-I,99-J)-(320+I,100+J),PSET,O,D
770                NEXT I
780 '|||||<< FLASH-3>>|||||
790                FOR J=1 TO 100 | C=RND16+I
800                CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)(340,100)-(322,99)-(320,90),C
810                NEXT J
820 '|||||<< STAR-3 >>|||||
830                FOR J=1 to 100
840                I=3,2|J
850                C=RND16+I
860                X1=(320-I)+RND|I| X2+RND|I+319
870                Y1=(100+J)+RND|J|Y2+RND|J+99
880                PSET(X1,Y1,C)|PSET(X2,Y2,C)|PSET(X1,Y2,C)|PSET(X2,Y1,C)
890                NEXT J
900                GOTO 400
I first though it was SINCLAIR basic, but someone said it looked more like Visual Basic. The video is from 1992, so I'm guessing Visual Basic 1 or so. Anyway, some characters were quite unclear so I may have been mistaken with several( like | for example).

It would be awesome if someone who knows the language well could help me fix this.

Thanks. ]]> Visual Basic 6 and Earlier stefan bauwens http://www.vbforums.com/showthread.php?722423-Visual-Basic-1-code wall stop http://www.vbforums.com/showthread.php?722399-wall-stop&goto=newpost Tue, 21 May 2013 17:42:42 GMT hey, I am trying to make some kind of pacman game, but I have no idea how to stop my pacman from going trough the walls. I am using pictureboxes for pacman and for the walls. Is there some kind of code for this? hey,

I am trying to make some kind of pacman game, but I have no idea how to stop my pacman from going trough the walls.

I am using pictureboxes for pacman and for the walls. Is there some kind of code for this? ]]> Visual Basic 6 and Earlier maarten http://www.vbforums.com/showthread.php?722399-wall-stop How to show recordset MySQL data fast(er) in excel? http://www.vbforums.com/showthread.php?722379-How-to-show-recordset-MySQL-data-fast(er)-in-excel&goto=newpost Tue, 21 May 2013 14:00:23 GMT = '" & Year(Sheet1.Range("E10").Value) & "-" & Month(Sheet1.Range("E10").Value) & "-" mySQL = mySQL & Day(Sheet1.Range("E10").Value) & "'" mySQL = mySQL & " AND InputDate <= '" & Year(Sheet1.Range("G10").Value) & "-" & Month(Sheet1.Range("G10").Value) & "-" mySQL = mySQL & Day(Sheet1.Range("G10").Value) + 1 & "')" mySQL = mySQL & " ORDER BY txtShipmentID" 'MsgBox mySQL myRS.Source = mySQL Set myRS.ActiveConnection = myconn myRS.CursorLocation = adUseClient myRS.Open Do While Not myRS.EOF Sheet2.Range("A" & Step1).Value = myRS.Fields("txtShipmentID").Value Sheet2.Range("B" & Step1).Value = "B" Sheet2.Range("C" & Step1).Value = myRS.Fields("ID").Value Sheet2.Range("D" & Step1).Value = myRS.Fields("txtDateInvoice").Value Sheet2.Range("E" & Step1).Value = myRS.Fields("txtVolgNr").Value Sheet2.Range("F" & Step1).Value = Replace(myRS.Fields("txtAmountEX").Value, ",", ".") Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1 Sheet2.Range("G" & Step1).Value = myRS.Fields("txtROE").Value Sheet2.Range("H" & Step1).Value = myRS.Fields("txtPaid").Value Sheet2.Range("I" & Step1).Value = myRS.Fields("txtCUR").Value Sheet2.Range("J" & Step1).Value = myRS.Fields("txtJPost").Value If myRS.Fields("txtCUR").Value <> "EUR" Then Sheet2.Range("F" & Step1).Value = myRS.Fields("txtAmountEX").Value * CDec(myRS.Fields("txtROE").Value) Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1 End If myRS.MoveNext Step1 = Step1 + 1 Loop myRS.Close myconn.Close --------- Appreciated!]]> Hi There,
Please see below code.
it takes about 0.01 seconds to get data from the MySQl database
It takes a lot longer to fill every single cell with the proper value
does any faster way exist to fill cells with the proper data?
tried playing around with the getstring option as this holds ALL data but couldn't find a proper way to use this and show data properly

Code:
  mySQL = ""
    mySQL = mySQL & "SELECT ID, txtJPost, txtVolgnr, txtShipmentID, txtDateInvoice, txtAmountex, txtcur, txtROE, txtPaid"
    mySQL = mySQL & " FROM invoicedb"
    mySQL = mySQL & " WHERE txtShipmentID IN "
    mySQL = mySQL & "(SELECT shipmentID FROM shipmentdb "
    mySQL = mySQL & "WHERE InputDate >= '" & Year(Sheet1.Range("E10").Value) & "-" & Month(Sheet1.Range("E10").Value) & "-"
    mySQL = mySQL & Day(Sheet1.Range("E10").Value) & "'"
    mySQL = mySQL & " AND InputDate <= '" & Year(Sheet1.Range("G10").Value) & "-" & Month(Sheet1.Range("G10").Value) & "-"
    mySQL = mySQL & Day(Sheet1.Range("G10").Value) + 1 & "')"
    mySQL = mySQL & " ORDER BY txtShipmentID"
    'MsgBox mySQL
    myRS.Source = mySQL
    Set myRS.ActiveConnection = myconn
    myRS.CursorLocation = adUseClient
    myRS.Open
    Do While Not myRS.EOF
      Sheet2.Range("A" & Step1).Value = myRS.Fields("txtShipmentID").Value
      Sheet2.Range("B" & Step1).Value = "B"
      Sheet2.Range("C" & Step1).Value = myRS.Fields("ID").Value
      Sheet2.Range("D" & Step1).Value = myRS.Fields("txtDateInvoice").Value
      Sheet2.Range("E" & Step1).Value = myRS.Fields("txtVolgNr").Value
      Sheet2.Range("F" & Step1).Value = Replace(myRS.Fields("txtAmountEX").Value, ",", ".")
      Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1
      Sheet2.Range("G" & Step1).Value = myRS.Fields("txtROE").Value
      Sheet2.Range("H" & Step1).Value = myRS.Fields("txtPaid").Value
      Sheet2.Range("I" & Step1).Value = myRS.Fields("txtCUR").Value
      Sheet2.Range("J" & Step1).Value = myRS.Fields("txtJPost").Value
      If myRS.Fields("txtCUR").Value <> "EUR" Then
        Sheet2.Range("F" & Step1).Value = myRS.Fields("txtAmountEX").Value * CDec(myRS.Fields("txtROE").Value)
        Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1
      End If
      myRS.MoveNext
      Step1 = Step1 + 1
    Loop
  myRS.Close
  myconn.Close
Appreciated! ]]> Visual Basic 6 and Earlier Mrslow2013 http://www.vbforums.com/showthread.php?722379-How-to-show-recordset-MySQL-data-fast(er)-in-excel richtx32.ocx file not found http://www.vbforums.com/showthread.php?722373-richtx32-ocx-file-not-found&goto=newpost Tue, 21 May 2013 13:51:38 GMT I am using vb 6.0. In one of my programs I use a rich text control. When I loaded the program to make some changes there was an error because the rich textbox was not loaded. It was before though. When I tried to add this component again I got the message that the file could not be found although it is present according to Windows Explorer. I found somewhere that this control has been labeled unsafe by Microsoft. Does this have something to with it? Thanks for any help. Peter Schoots I am using vb 6.0. In one of my programs I use a rich text control. When I loaded the program to make some changes there was an error because the rich textbox was not loaded. It was before though. When I tried to add this component again I got the message that the file could not be found although it is present according to Windows Explorer.
I found somewhere that this control has been labeled unsafe by Microsoft. Does this have something to with it?
Thanks for any help.
Peter Schoots ]]> Visual Basic 6 and Earlier Peter Schoots http://www.vbforums.com/showthread.php?722373-richtx32-ocx-file-not-found