Post your Vb 6.0 Questions Here

Sir
am not at your end to enable me get exactly what you want me do. Yes u sent a demo for me but I have given u solution, even sent you code that will enable you send document to your printer(s) since you dont want to use printer dialogue box. But if you think the solution is not enough then we can start afresh.


U dont need to write any code for export in crystal report. Enable the icon for that and u are done.

If you have crystal report in your system, use vb to add it and it will create a form for you embedding crystal report control viewer, get its property and play with it as u are changing the property keep running until u know their functions that will enable you export your report to any format u like.

Hi luckyCO ,

I love the effort you have been making to solving problems.

I have been working on a standard package like for 3 years now. Now, I intend to package it. And I get exceptions on missing files or .dll. I used crystal report. When I try to run setup on a virgin system, it requires Vb and crystal report for the package to run. what do you think the problems is? Thanks for your time

Hi Lucky CO,

I have a problem printing the values from my textboxes in my GUI to a plain sheet of paper in a certain order.
I actually am working on a scheduling application and would like to print out my values in a matrix order,

How exactly do you print out values from various textboxes (same form) such that they are aligned in a certain way on a sheet of plain paper?
The textboxes are many and are as much as 100.
Please publish solutions for tabular format on any arrangement you know (eg. 5 X 5 Format) and/or non-tabular formats…

I will understand.

Thanks…

pls i need to know how to link mysql server with vb6.0 thanks.

can u pls teach me how i can link mysql server with Vb6.0. i use mysql 4 and microsoft sql server. but i've been unable to establish a reasonanble connection with each of them from vb. pls explain and i will appreciate an example. thanks so much

tolubonnke,

To link VB6.0 to SQL Server, use System DSN in Windows Control Panel. I have put some code together for you incorporating the System DSN called SureOne.

For this code to work, don't forget to create a System DSN called SureOne,  If you need help, please ask.

Now, copy the following code and paste it on a Module within Visual Basic 6.0 and save it with any name of your choice. You can then make code calls to each of the procedures in the module passing the correct parameters and returning the correct data types to the client as required.


'Code Begin------------------

Public Function CreateClientRecordSet( _
    ByVal i_strSQL As String, _
    ByRef i_strError As String) As ADODB.Recordset
'+-----------------------------------------------------------------------------+
'| Purpose : This method returns a disconnected ADO recordset to be passed to
'|           the client for displaying within lists
'|
'| Inputs  : i_strSQL        - SQL statement used to create recordset
'|           i_strError      - Error string
'|
'| Returns : ADO Recordset containing matching details
'|
'+-----------------------------------------------------------------------------+
Dim rsADODBRecordset As ADODB.Recordset
Dim condb As ADODB.Connection
Dim strConn As String

On Error GoTo ErrorHandler

    'Open database connection
    Set condb = OpenDatabaseConnection(i_strError)

    'Check for open database connection error
    If Trim$(i_strError) <> vbNullString Then Exit Function
   
    'Create new ADO recordset
    Set rsADODBRecordset = New ADODB.Recordset
   
    With rsADODBRecordset
       
        'Set cursor location to client to allow disconnected
        'recordset to be returned to client
        .CursorLocation = adUseClient
       
        'Set open dynamic
        .CursorType = adOpenDynamic
       
        'Set optimistic locking
        .LockType = adLockOptimistic
       
        .ActiveConnection = condb
       
        'Create ADO recordset
        .Open i_strSQL
       
        'Disconnect recordset from database connection
        Set .ActiveConnection = Nothing
       
    End With
   
    'Close database connection as recordset disconnected
    Call CloseDatabaseConnection(condb, i_strError)
   
    'Check for close database connection error
    If Trim$(i_strError) <> vbNullString Then Exit Function
   
    'Return recordset to client
    Set CreateClientRecordSet = rsADODBRecordset

GoExit:
    Exit Function
   
ErrorHandler:
    i_strError = i_strError & " " & "Retrieve Data Error, " & vbCrLf & vbCrLf & _
    Err.Number & " " & Err.Description & " (CreateClientRecordSet)"
    Call CloseDatabaseConnection(condb, i_strError)
    Resume GoExit
End Function 'CreateClientRecordSet

Public Function ExecuteSQLStatement(ByVal i_strSQL As String, _
                                    ByRef i_strError As String) As Long
'+-----------------------------------------------------------------------------+
'| Purpose : Executes a SQL statement to update or delete a number of database
'|           records and returns the number of rows affected
'|
'| Inputs  : i_strSQL - SQL statement to be executed
'|           i_strError - Error string
'|
'| Outputs : Rows affected
'|
'+-----------------------------------------------------------------------------+
On Error GoTo ErrorHandler

Dim condb As ADODB.Connection
Dim comDB As ADODB.Command
Dim lngRecordsAffected As Long

    Set condb = OpenDatabaseConnection(i_strError)
   
    'Check for open database connection error
    If Trim$(i_strError) <> vbNullString Then Exit Function
   
    Set comDB = New ADODB.Command

    'Connect command to active database connection
    Set comDB.ActiveConnection = condb

    comDB.CommandText = i_strSQL
    comDB.CommandType = adCmdText
    comDB.CommandTimeout = 40

    'Execute SQL statement
    comDB.Execute lngRecordsAffected

    'Close database connection as SQL executed
    Call CloseDatabaseConnection(condb, i_strError)
   
    'Check for close database connection error
    If Trim$(i_strError) <> vbNullString Then Exit Function

    Set comDB = Nothing
   
    'Return number of records affected
    ExecuteSQLStatement = lngRecordsAffected

GoExit:
    Exit Function
   
ErrorHandler:
    i_strError = i_strError & " " & "Retrieve Data Error, " & vbCrLf & vbCrLf & _
    Err.Number & " " & Err.Description & " (ExecuteSQLStatement)"
    Call CloseDatabaseConnection(condb, i_strError)
    Set condb = Nothing
    Set comDB = Nothing
    Resume GoExit
End Function 'ExecuteSQLStatement

Public Function OpenDatabaseConnection(ByRef i_strError As String) As ADODB.Connection
'+-----------------------------------------------------------------------------+
'| Purpose : This operation returns a new database connection
'|
'| Inputs  : i_strError
'|
'| Returns : Open ADO database connection
'|
'+-----------------------------------------------------------------------------+
Dim condb As ADODB.Connection

On Error GoTo ErrorHandler

    Set condb = New ADODB.Connection

    'Setup connection using: System DSN called SureOne
    With condb
        .ConnectionString = "DSN=SureOne;UID=;PWD=;"
        .Open
    End With

    'Return database connection
    Set OpenDatabaseConnection = condb

GoExit:
    Exit Function

ErrorHandler:
    i_strError = "Open Database Error, " & vbCrLf & vbCrLf & _
    Err.Number & " " & Err.Description & " (OpenDatabaseConnection)"
    Resume GoExit
End Function

Public Sub CloseDatabaseConnection(ByRef i_conDB As ADODB.Connection, _
                                   ByRef i_strError As String)
'+-----------------------------------------------------------------------------+
'| Purpose : This method disconnects the current process from the database
'|
'| Inputs  : i_conDB    - Open database connection
'|           i_strError - Error string
'|
'| Outputs : None
'|
'+-----------------------------------------------------------------------------+
On Error GoTo ErrorHandler

    'Check whether connection object has been instantiated
    If Not (i_conDB Is Nothing) Then

        'Close database connection
        If i_conDB.State <> adStateClosed Then
            Call i_conDB.Close

        End If
       
        Set i_conDB = Nothing
    End If

GoExit:
    Exit Sub
   
ErrorHandler:
    i_strError = "Close Database Error, " & vbCrLf & vbCrLf & _
    Err.Number & " " & Err.Description & " (CloseDatabaseConnection)"
    Resume GoExit
End Sub 'CloseDatabaseConnection

'Code Ended-------------------------------


Let me know if you need help.

Hi Mr. LuckyCo the guru, good to you and to all the respectable members of this forum. My question is on DataGrid, though i have seen on page 7 and 8 of this thread you have respond to something close to this (i.e MSHFlexgrid) but mine is how to export data displayed  on DataGrid to Excel using vb6. I know how to display the data from the tables of my database into the Datagrid. But what i dont know is how to export it (display) to Excel. below is the sample of the code i use when displaying the data into the Datagrid which works perfectly;

[Private Sub PayLoan()
'On Error Resume Next
Dim rsPayLoan As New ADODB.Recordset

    With rsPayLoan
    .Open "Select Member_ID, Member_Name, Loan_ID, Loan_Name, Loan_Date, Monthly_Refund, Refund_Date, Total_Refund, Balance_To_Refund, Loan_Status from PayLoan ORDER BY Refund_Date ASC", Conn, adOpenDynamic, adLockOptimistic
   
        If rsPayLoan.RecordCount >= 0 Then
       
            With dtgPayLoan
           
                .ClearFields
                Set .DataSource = rsPayLoan
                .Refresh
               
                .Columns(0).Caption = "MEMB ID"
                .Columns(0).Width = 1200
                .Columns(0).Alignment = dbgCenter
                .Columns(1).Caption = "MEMB NAME"
                .Columns(1).Width = 2250
                .Columns(2).Caption = "LOAN ID"
                .Columns(2).Width = 1200
                .Columns(2).Alignment = dbgCenter
                .Columns(3).Caption = "LOAN NAME"
                .Columns(3).Width = 2500
                .Columns(4).Caption = "LOAN DATE"
                .Columns(4).Width = 1300
                .Columns(5).Caption = "MONTH RFD"
                .Columns(5).Width = 1200
                .Columns(6).Caption = "RFD_DATE"
                .Columns(6).Width = 1300
                .Columns(7).Caption = "TOTAL RFD"
                .Columns(7).Width = 1200
                .Columns(.Caption = "BAL REMAIN"
                .Columns(.Width = 1300
                .Columns(9).Caption = "LN STATUS"
                .Columns(9).Width = 1400
               
           End With
           
        End If
       
    End With
End Sub]
So pls i need your help on this, also about our previous discussion on the Encryption/Decryption of program i am still on it when the time come i will give you a call.
Thanks!!!!

See code . long like hell.

Hi Beknown Thank you very much for your quick response to my question and Mr luckyco i thanks as well. As regards to above code you sent i Coppied and paste it  on my program, and i then created command button and set it as a click event, and insert the code "Call ProcessExcel(Datagrid, String)", But when i try to RUN the program its giving me error message as compile error "Expected: (" at the end of this line code the call Process thats after the word string) the close bracket is Hilighted in blue, when i put the open bracket "(" in place of the ")" it will demand me to write something like "Number As long,Character", when i write this another error message will pop Up as "Expected: list separator" with "As" being hilighted in blue. And if i made call statement without "(Datagrid, String)", that's "Call ProcessExcel" this error message will pop Up "Argurement not optional" with the "Call ProcessExcel" being Hilighted in blue, when right click on the Hilighted potion and select "Definition" it will take me to this line of the code "Public Sub ProcessExcel(ByVal i_dgdResult As DataGrid, ByRef i_strError As String)".  So pls how do i take care of this error? and make work.

NB; When i coppy and paste that code in my program i made some modification in order for the code to suit into the definition of my program, like "i_dgdResult" i changed it  to dtgpayloan which is the name i gave to the datagrid in my program and some other little changes which i known are necessary in order to make my program in consunance with your code.
                       

Beknown;

 Thank you very much for quick resfond to my question. I have corrected the validation code and command button section where I "Call processExcel(datagrid, string)", i was able trace the problem and rectify it and code work perfectly.
 Once again thank you very much for that wonderful and working CODE. But another thing is that how do insert the caption (Heading) of my datagrid on Excel sheet so that when i print the data, the heading will appear?. Because now when i printed the data the heading did not appear.

Beknown;
Thank you very much for your quick resfond to my Question. The CODE really work perfectly. thanks once again for the wonderful assistance you people are rendering to beginners like us.

Pls i need code to export record in my Ms Access linking to vb 6 to Ms Excel
thanks

Try the open source website:

http://sourceforge.net/

Hi all the gurus in the house i salut you. pls i have a small problem with date(datetime) stamping on my program. You see i have some table(four) that are storing some related information that i want one of the table(the fouth table) to use the three other tables to updates itself any time any one of those three table are altererd(updated), and i want anytime the fouth table is update, the system Date or the present date should be saved on a column to the coresponding row. But i am not getting that. This is what i do;

[Dim StrDate As String or
Dim StrDate AS Date
StrDate = Format(Now, "YYYY-DD-MM")]
Then at the vbmysql code side i have
   !Date = StrDate
But the problem is that the program when runned will pick the present system Date and saved it as needed, but when but anothe event occur on that same day(date) the program will not saved date (sameDate) but rather it will saved time (12:00:00AM) to the coresponding row, and so it will continue depending on the number of Update perform that day, and when you come the next day the first update of that day will pick date but the remaining will be time.
  So pls help because the above did not give exactly what i want. i even try [strDate = Format(SystemTime, "YYYY-DD-MM")] but is not picking any date.

Hi all, pls supposing i have a table that store some data at mysql side, if for example i have input some info that update the table to about more than 100 row, and i want perform a search of the last row and display the info on datagrid on my form and i want use the Last Row as the condition. How do i go about it. I use this;
[.Open "Select * From accountstate where Account_Balance =  (Select LAST(Account_Balance) from accountstate)", Conn, adOpenDynamic, adLockOptimistic] and is giving error messge. But when I search for Maximum Value using this:
[.Open "Select * From accountstate where Account_Balance =  (Select MAX(Account_Balance) from accountstate)", Conn, adOpenDynamic, adLockOptimistic] it works perfectly.
NOTE: am interested on the info in the Account Balance column thats why i put the column heading.
pls guys i need you help.

  Thanks in advance.