Search:

Type: Posts; User: KhalidMughal

Search: Search took 0.02 seconds.

  1. Replies
    0
    Views
    4,518

    Count the No. of Records in a Text File

    Here a useful sample code to count the No. of records in a text file before it use.
  2. Replies
    6
    Views
    717

    Re: function substr

    A sample code is here:


    Private Sub Command1_Click()
    dim Address As String
    Address = "Pakistan Punjab Channu"
    MsgBox Mid(Address, InStrRev(Address, " "))

    End Sub
  3. Replies
    10
    Views
    1,052

    Re: getting ip thru computer name

    Try the Following:

    http://www.vbcode.com/code/WhoIs01202003.zip

    Hope it will help you
  4. Replies
    3
    Views
    456

    Re: Numeric data format

    You can use the Format() for this. like:



    Private Sub Command1_Click()
    Dim n As Integer
    n = InputBox("Input Any Integer Value", "Input Integer")
    MsgBox "Example 1 = " & Format(n, "00000000")...
  5. You may use ADODB for the connectivity with your...

    You may use ADODB for the connectivity with your Access Database, and use SQL queries to insert the data into the database.
  6. Replies
    1
    Views
    416

    You can also use SQL Query with a flag. for...

    You can also use SQL Query with a flag.

    for Example: Dim isNew as Boolean

    Check if data found in the table then
    isNew = False
    else
    isNew = True
  7. I think following type of code you needed: ...

    I think following type of code you needed:


    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
    ...
  8. Replies
    21
    Views
    986

    While installation be sure that you have the...

    While installation be sure that you have the Administrator rights to install the application.
  9. Replies
    7
    Views
    696

    The alternate of all your Code is:...

    The alternate of all your Code is:
    ========================

    Sub OptimisticTrans(strOldCity As String, strNewCity As String)
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim...
  10. Replies
    5
    Views
    788

    When you make a Package, it will automatically...

    When you make a Package, it will automatically pick the activeX control for CR8 and at the time of installation it is registered on client machines automatically.
  11. Replies
    11
    Views
    974

    You should send your project to me. I will add...

    You should send your project to me. I will add the login form in your project free of cost.
  12. Replies
    11
    Views
    933

    You should send your project to me. I will add...

    You should send your project to me. I will add the login form in your project free of cost.
  13. Replies
    11
    Views
    974

    Here is the sample code: and Sample form is...

    Here is the sample code: and Sample form is attached herewith:
    ==============================================


    Private Sub Combo1_CLICK()
    Dim rsLocal As New ADODB.Recordset
    rsLocal.Open...
  14. Thread: SQL Order

    by KhalidMughal
    Replies
    4
    Views
    495

    If you are using ORACLE you need to write the...

    If you are using ORACLE you need to write the query in the following way:

    "Select * Table1 Order By to_char(ItemCode,'9999')"

    if your are using ACCESS:

    "Select * Table1 Order By...
  15. Replies
    11
    Views
    974

    What is your requirement/problem to design a form...

    What is your requirement/problem to design a form or to change the user password. Because, to change the password there must be some database as back-end of your form. You also need to define.
  16. Thanks for the positive response. Khalid...

    Thanks for the positive response.

    Khalid Mahmood.
  17. Replies
    25
    Views
    1,207

    Try This: Private Sub Command1_Click() ...

    Try This:

    Private Sub Command1_Click()
    Dim a As Double
    a = InputBox("Input Any Value in Three Decimal")
    MsgBox Round(a - 0.001, 2)
    End Sub
  18. Replies
    1
    Views
    314

    You can show it through coding. This is not a...

    You can show it through coding. This is not a ready made.
  19. Yes, it is possible. And it has more than 1...

    Yes, it is possible.
    And it has more than 1 ways to solve.
  20. Replies
    4
    Views
    438

    You need the following in your Visual Basic...

    You need the following in your Visual Basic Editor:

    Click On ==> Project ==> Preferences.... ==> Microsoft DAO 3.0 Object Library


    I think in this way your problem will be solved.
  21. Replies
    2
    Views
    457

    At the end of your query Write: ORDER BY...

    At the end of your query Write:


    ORDER BY USERNAME, DATE
  22. Another Solution: ============ For i = 0 To...

    Another Solution:
    ============

    For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then
    List1.RemoveItem (i)
    i = i - 1
    End If
    If i = List1.ListCount - 1 Then
    ...
  23. Replies
    4
    Views
    504

    Thanks CornedBee for the reply. I dont' have...

    Thanks CornedBee for the reply. I dont' have the idea how to use UNICODE. Can you give me a little example ?
  24. Replies
    4
    Views
    504

    I am using Windows 2000, and want to display on a...

    I am using Windows 2000, and want to display on a Monitor Screen.
  25. Replies
    4
    Views
    504

    Urdu or Arabic

    I want to display a message in Urdu or Arabic Language. How can I do it?
  26. Replies
    9
    Views
    815

    For Example You have a field name field1: ...

    For Example You have a field name field1:

    rs!Field1 = Month & "/" & Month & "/" & Year
  27. Replies
    4
    Views
    448

    Try the following: rs.refresh rs.addnew...

    Try the following:

    rs.refresh
    rs.addnew
    rs.fields("name").value=txtname.text
    rrs.fields("password").value=txtpass.text
    rs.update
  28. Replies
    9
    Views
    815

    Yes you can insert all three keys into one cell...

    Yes you can insert all three keys into one cell by concating all of them.


    For Example:
    =========
    Month & "/" & Month & "/" & Year
  29. Another Exampel to Search

    Private Sub Command1_Click()
    Dim a As String
    a = InputBox("Enter String/Word To Find", "Find")
    If Len(Trim(a)) > 0 Then
    If InStr(UCase(Text1.Text), UCase(Trim(a))) > 0 Then
    ...
  30. Dim pathStr(10) as String 'Declare String as...

    Dim pathStr(10) as String 'Declare String as Global
    Dim SS as Integer 'Declare Global to use as SubScript

    Private Sub Form_Load()
    Dim oFSO As New FileSystemObject

    Set...
  31. Displaying and deleting image

    1. Navigate through the Next and Previous Button.
    You should store all your paths having picture extensions in
    an global array on FormLoad event. You should also declare a
    global...
  32. Replies
    3
    Views
    17,521

    VB6 - Who is connected with your PC?

    Through this utility you can get the comple information that:
    Who is Connected with your PC?
    - User Name
    - Computer Name
    - IP Address
  33. VB: 8 Chess Queens on 1 Chess Board [Source]

    A source code of a logic game.
    Arrange these 8 queens on a chess board in a way so that any queen could not reach to any other queen.
  34. Replies
    0
    Views
    3,517

    Save Pictures in Access DataBase

    Here is a sample program to Save Pictures in Access Database.
  35. Replies
    2
    Views
    558

    I think qtimer.h file is not available in...

    I think qtimer.h file is not available in 'include' directory. If it is in other than 'include' directory. use the following sentence to include:

    #include "c:\project\sealkernel\qtimer.h"
Results 1 to 35 of 35



Click Here to Expand Forum to Full Width