Search Results - VBForums

Search:

Type: Posts; User: firoz.raj

Page 1 of 13 1 2 3 4

Search: Search took 0.06 seconds.

  1. Replies
    10
    Views
    151

    Re: Why isnt this working

    problem is that did you debug .please debug step by step .anyway try the following . hope it might help .

    Private Sub Command1_Click()
    dim Con as new adodb.Connection
    dim sql as string...
  2. Replies
    4
    Views
    94

    Re: Do For Loop. ect

    Obvioulsly i it will skip and keep only latest data. so better way to do add all the receiving data into array .another things i have notice remove on error resume next.

    Private Sub...
  3. Replies
    10
    Views
    151

    Re: Why isnt this working

    other things i have notices lots of logical mistake .anyway try the following way . hope it might help.


    Private Sub Command1_Click()
    dim Con as adodb.Connection
    dim rs as adodb.recordset...
  4. Re: displaying a progress bar on a status bar doesn't seem to work

    try the following way . hope it might help .
    Dim ProgressPane As StatusBarProgressPane
    Set ProgressPane = frmMain.CommandBars.StatusBar.FindPane(ID_INDICATOR_PROGRESS)
    ProgressPane.Visible...
  5. Replies
    6
    Views
    169

    Re: Connection with server

    try the following way . hope it might help .

    If cnn2.State Then cnn2.Close
    cnn2.Open "Driver=SQL Server;Server=" & SvrName & ";Database=" & "test" & ";uid=" & Suid & ";pwd=" & Spwd & ";"
    ...
  6. Re: [RESOLVED] Application defined or object defined issue

    another point i have seen why you have used timer funciton here .T = Timer
    Debug.Print Timer - T. because i don't see any reason to use timer funciton here .

    Public Sub...
  7. Replies
    3
    Views
    137

    Re: assign variable powerpoint.presentation

    try the following way . hope it might help.

    dim pptAPP as object
    dim ppt as powerpoint.presentation

    Set pptAPP = createobject("Powerpoint.application") ' ppt
    pptAPP.Visible=true ...
  8. Re: [RESOLVED] Application defined or object defined issue

    problem is that it has 549210 lines in the recordset . and as i have seen all the lines are stores at Tmp 2d Array .
    and when altogether lines are copied by ArrFillFromTopLeft to the excel range...
  9. Re: [RESOLVED] Application defined or object defined issue

    Hi, Schmidt

    i just want to approach UDT Array as you suggested .as i did not work on UDT Array .
    so Kindly can you implement UDT Array for me my brother . any help would be highly appreciated .
  10. Re: [RESOLVED] Application defined or object defined issue

    Still waiting for some suggestion .
  11. Re: MDAC error (Windows XP SP3-VB6-ADODB-SQL-Jet

    really there is no any issue installing vb6 even on Wndows 8 .
  12. Thread: Loop

    by firoz.raj
    Replies
    5
    Views
    151

    Re: Loop

    you can do the following way .

    Option Explicit
    Private Sub BtTest_Click()
    Dim num As Integer
    num = 0
    Me.AutoRedraw = True
    Do
    Print num
    num = num + 1
  13. Re: [RESOLVED] Application defined or object defined issue

    Sorry it has 300,000 not 3 Million lines in a collection . for 3 hundered upto 1 million data there should not be a Issue.
    i have corrected my earlier Post . i have corrected my #30 post .



    it...
  14. Re: [RESOLVED] Application defined or object defined issue

    Hi,

    Olaf another point , i have noticed when i tried to take some of 300,000 or more lines . i got all my rows in the collection no doubt . but when it tries to come ArrFillFromTopLeft Method it...
  15. transfer an Excel-Cell-Range into a 2D-Variant-array and perform sorting

    Hi, i have been working on best seller report . problem is that user is getting
    each week a Trading Excel sheet with more that 50,000 lines and 67 cols .
    i have written code to write data from...
  16. Replies
    31
    Views
    806

    Re: Open Different Data Source Name

    why you have written the following sub in the module .and opening other connection in cmdopenclose_click event . i am persure following code
    is the cause of this issue .

    Public Sub openCon()...
  17. Replies
    10
    Views
    319

    Re: Syntax error in query expression

    I Would like to suggest the following way . hope it might help .

    public function Validata() as bollean
    If Text1.Text = "" Then
    MsgBox "Please Input Information!", vbCritical, "Empty...
  18. Re: Selecting Database Columns from ComboBox

    can you tell what are you getting in debug window ?.post what are you getting in immediate window .



    strsql = "Select id,code,"
    strsql = strsql + "'" & cmbpayperiod.text & "'"
    strsql = strsql...
  19. Replies
    11
    Views
    353

    Re: run time error 3201

    another point i have noticed .the End while is not available in vb6 . so you cannot do the following .

    With rs1
    sSQL = "Select * From duereport Where partyname ='" & cmbPartyName.Text & "'"...
  20. Re: how to keep alive connection from winsock

    You need to do the following Way . hope it might help .

    If Winsock1.State = sckClosed Then
    Winsock1.State = sckOpen
    Winsock1.Connect IP, YOURPORT
    End If



    or following is also valid...
  21. Re: VB 2008 Split Function/Method (please help)

    i am 100% sure . you don't know how split works .first you have written vb6 code in vb.net code window .together with by seeing this .anybody will come to know you don't know how split work . so have...
  22. Re: [RESOLVED] Application defined or object defined issue

    Thx , all of you . i have solved the issue following way

    ws.Range("A2").Select 'we select Range("A2")
    'ws.Range("A2").Sort key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    '...
  23. Re: [RESOLVED] Application defined or object defined issue

    Yes everything is available at google . but i am still confession to sort the range data based on specific col. following i tried so far .


    ws.Cells.EntireColumn.AutoFit
    ws.Cells.Select...
  24. Re: Using alot of textboxes and combos one form

    check if the no of fields sames as values .anyway try the following .

    Dim SqlQuery As String = "INSERT INTO AddClient...
  25. Re: [RESOLVED] Application defined or object defined issue

    another point i would like to ask . i simple want to sort all of my excel sheet data .in ascending order based on columno1 .means
    by post_date .any idea please .

    Public Sub WritemyExcel()
    Dim...
  26. Replies
    16
    Views
    639

    Re: Pop up Alert vb 6

    what error message are you getting ? .
  27. Replies
    16
    Views
    639

    Re: Pop up Alert vb 6

    then don't show the expire message in the messagebox .better show at the form try the following way .i added the code me.autoredraw = true.and instead of showing at the message box .i modified the...
  28. Replies
    17
    Views
    396

    Re: Password Attemp

    try the following way hope it might help .

    Private Sub cmdOK_Click()
    Static count As Integer

    'check for correct password
    If txtPassword = "password" Then
    'place code to here to pass the...
  29. Replies
    17
    Views
    396

    Re: Password Attemp

    try the following way hope it might help .

    Private Sub cmdOK_Click()
    Static count As Integer

    'check for correct password
    If txtPassword = "password" Then
    'place code to here to pass the...
  30. simplified code to get adapter informatin in vb.net

    Hi friends,

    following way you can get easily adapter information .and their dns information .

    Imports System.Net.NetworkInformation
    Imports System.Net
    Public Class Form1
    Private Sub...
  31. Replies
    19
    Views
    614

    Re: Help with codes!

    You have missed to set the variable .try the following hope it might help .

    Private Sub Command2_Click()

    confirm3 = MsgBox("Are you sure you want to update data?", vbYesNo, "Confirmation")
    If...
  32. Replies
    13
    Views
    397

    Re: Printer font not setting correctly

    Did you try what i have been suggested to you .try the following way .

    Public Sub PrintItemSummaryHeader()
    If Printer.Page <> 0 Then
    Printer.Font.Name = "Anonymous Pro"
    Printer.FontSize = 12...
  33. Replies
    13
    Views
    397

    Re: Printer font not setting correctly

    why are you not using page property of printer object ? .problem is that i even cannot debug your code . try the following .

    Public Sub PrintItemSummaryHeader()
    If Printer.Page <> 0 Then
    ...
  34. Replies
    19
    Views
    614

    Re: Help with codes!

    personally i prefer if ... elseif....end if block .like the following .

    Private Sub Command3_Click()
    Dim Units As Long
    Dim Rate As Integer

    Units = Val(Label1.Caption)
    if Units > 250...
  35. Replies
    10
    Views
    464

    Re: How can i download the file?

    as westconn,as suggested please show us code .and where you are confessiong ? .
  36. Re: How do I save a file by date and time

    Hi James ,

    why are you not storing the file the following way .

    FileName = "C:\MNS\" & "Salesfile" & Format$(Now, "ddmmyyyy_HHMMSS") & ".xlsx"

    or
    if you want to use app.path the following...
  37. Replies
    3
    Views
    158

    Re: What wrong here

    Inside your Do Statement i did not see any conditon .like the following .just a google a bit .

    do
    stat1
    stat2
    condition
    counter
    loop
  38. Re: [RESOLVED] Application defined or object defined issue

    Hi Olaf , great post . very first time i realized i need to give rate .for this post . really it took only 1.5 minutes to generates 51745 lines
    in a worksheet .and in first time in my life at...
  39. Re: Application defined or object defined issue

    thx to every one .
    i was just waiting to finish os backlog for some sort of break at each 100 iteration .that was time consuming .so i remove it .another point i comment 'excl.UserControl = True...
  40. Replies
    7
    Views
    241

    Re: frzzing app on output

    i have still doubt about your soutput .can you debug and see what are coming at soutput when it tries to readtoend() .


    sOutput = oStreamReader.ReadToEnd()
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.