Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: GTO
  • Order by date
  1. GTO

    How to detect terminals on a network?

    'Win98 and VB6 'This will get the network name and all computers and their IPs, that are 'booted to the LAN 'Paste this into a module Option Explicit Dim hostent_addr As Long Dim host As HOSTENT Dim hostip_addr As Long Dim temp_ip_address() As Byte Dim i As Integer Dim ip_address As String...
  2. GTO

    Connecting a Bar Code Reader to VB application

    'Maybe this will get you started Private Sub mscomm2_OnComm() Dim sBarScan as string If iFlag = 1 Then Exit Sub If flag = 1 Then 'Text boxes empty? For i = 0 To 2 txt(i) = "" Next i flag = 0 End If sBarScan =...
  3. GTO

    ADO question...

    Maybe the following will help rs.Open ("SELECT * from ItemInfo where Identifier = '" & sBarScan & "'") iDeptNum = rs(3) 'Get Dept# for scanned item DeptAmt = rs(2) 'Get amt for scanned item This gets 2 items from a record using a barcode which was...
  4. GTO

    Storing history (not in db)

    'Why not do what you say you want? Open a file, save the data, and close file.???????????
  5. GTO

    Fade in Form

    '*This module currently either '*explodes or implodes a form. '*The larger the "Movement" value the slower the '*explosion or implosion. It is possible to have the form '*explode/implode from various directions although this '*code does not include that option. '* '* Call is...
  6. GTO

    Populate ListBox

    I used 4 textboxes to display the data because of ease of positioning the text. Maybe this code might help. Vs is a vertical scroll bar. Option Explicit Dim i As Integer Dim selFile As String Dim sScroll As String Dim pth As String Dim iSelect As Integer Dim DeptMax As Integer Private Sub...
  7. GTO

    Populate ListBox

    It sounds like you are trying to build a Pos system. Will/does it work with a scanner for barcodes. I'm working on one now. I'd be interested in how it's going. What is being incorporated into prog, etc.
  8. GTO

    Populate ListBox

    'after opening recordset Do Until MyRS.EOF with lstProducts .AddItem MyRS(0) .AddItem MyRS(1) .AddItem MyRS(2) .AddItem MyRS(3) MyRS.MoveNext loop
  9. GTO

    Advanced String Searching

    'Haven't tried this, but you can *************************************************************** ' Name: Highlite a string within another string ' Description:when the sub is called a string is searched in anot ' her string and then highlited. when the sub is called again the n ' ext...
  10. GTO

    Format lines of text box

    'Any helpful tips on how to accomplish this is appreciated 'How to allow for different fonts(widths) Private Sub cmdTest Dim sSpace As String sBarScan = "077472006809" 'sBarScan = left(MSComm1.Input, 12) rs.Open ("SELECT ItemDescription, Amount, TaxRate from DeptInfo...
  11. GTO

    Variable use in sql where statement

    Thanks a lot guys. Turns out that I didn't know the correct syntax for the variable. I ended up using woyler's example to get this; rs.Open ("SELECT ItemDescription, Amount from DeptInfo where Identifier = '" & sBarScan & "'") Again, thanks to all who responded.
  12. GTO

    Variable use in sql where statement

    I want to use a bar code readout in a variable as the = 'variable';) in the where part of a sql statement. I just can't seem to get this to work. It doesn't appear to see the variable. It only sees hard coded info. Does anyone know how to make this work?
  13. GTO

    Bit shifting in VB ?

    'This stuff I aquired somewhere, anyway I'm not the author 'maybe you guys would like to see it anyway 'There are two examples here Option Explicit Private m_lPower2(0 To 31) As LongPublic Function RShift(ByVal lThis As Long, ByVal _ lBits As Long) As Long If (lBits <= 0) Then...
  14. GTO

    List Box

    'This might get you by Option Explicit Dim i As Integer Dim chkcount As Integer Dim iCheck As Integer Dim condo As String Dim countStr As String Dim chkArray() As Integer Private Sub Command1_Click() Labelorder = &quot;&quot; condo = &quot;&quot; Lstcondo.ListIndex = 0 For...
  15. GTO

    How to scroll a picture box

    'Picked this up somewhere, never tried it, maybe it'll work 'If not, maybe it'll give you a track to start on. Let us 'know if it does, or code that works if you get it going ' 1 create a new standard app ' 2 add a frame on your app ' 2a borderstyle = none ' 3 put a textbox or whatever on your...
  16. GTO

    help with filecopy

    Try this FileCopy &quot;c:\test.txt&quot;, &quot;c:\windows\system\text.txt&quot;
  17. GTO

    RTB Carets

    Can anyone tell me why, given I have the createcaret api in a bas module, the following code does not create a block caret. I've tried this code in keypress and keydown. Neither worked, no error messages. h& = GetFocus&() Call CreateCaret(h&, 0, 5, 15) m& = ShowCaret&(h&) The only key...
  18. GTO

    Accessing the LPT Port With VB????

    http://www.lvr.com/parport.htm http://www.uct.on.ca/
  19. GTO

    Save Buttom

    Data1.Recordset.Update
  20. GTO

    List box selection problem...

    If you use a dblistbox, it is tied to the db. Just clicking on the name in the list box should bring up the record which would be displayed in db text boxes

Part and Inventory Search

Back
Top