Hi,

Why do you want to use "AppendChunk" for simple string..?

Try This :

nVNBR = "hi how are yodsf sdf"
rsVen("BITS") =nVNBR
rsVen.Fields("BITS_LENGTH") = 19
' Or

Hi,

Declare this API at the top :


Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
...

Hi,

Yes, Little bit tweaking of my code, will do the job:


Dim i As Integer
Dim TAmt As Currency
TAmt = 0
For i = 1 To Grd.Rows-1
TAmt = TAmt +...

Hi,

Try This :


Dim i As Integer
Dim TAmt As Currency
TAmt = 0
For i = 1 To Grd.Rows-1
TAmt = TAmt + Val(Grd.TextMatrix(i, 8))

Hi,

Index should be the Index name and not the Fieldname..

Data1.Recordset.Index = "indStatus"

Regards
Veena

Hi,

Try this :
Report.Printout False

Without vieiwng the report..

Regards
Veena

Hi,

After Selection of ComboBox, To filter out records use this query:

"Select CI.name,I.ServiceID,P.packagename,P.duration,P.price,I.date,I.timeIn,I.timeOut
From CustInfo CI, InDate I,...

Hi,

Write this in FormLoad event:


Me.MousePointer = 99
Me.MouseIcon = LoadPicture("C:\windows\cursors\3dgno.cur")


Change the path accordingly

Hi PlusPlus,

What is AdoReminder....?
if it is a Connection object, then use Execute method..

say:


adoreminder.Execute = "INSERT INTO tblreminder([user-id]) SELECT tbluser.id FROM...

Hi,

One more easier way, is to keep another FlexGrid Hidden, with same number of Rows and Cols as the main Flex Grid.
Save the Info in 2nd grid, corresponding to Same Textmatrix of the main...

Hi,

It shud be some thing like this:


rsinPers.MoveFirst
Do
rsinPers.Find "Name='" & M.qBW![Personnel2] & "'"
If rsinPers.EOF
Exit Do

Hi,

Directly on messagebox, u cannot show ProgressBar. An alternative is to Show another Form in Modal Form, And Place Progress bar on that and Increment the status, from calling form..
...

Hi,

Use DataReader which is very fast. Check This Code:


Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
cn = New...

Hi,

Set this property of Combobox in Propertysheet:

Style = 2 DropDownList

REgards
Veena

Hi,

use "Microsoft SS tab Control"..
U have to add it to ur tool box from this menu:
Project>>Components..

Regards
Veena

Hi,

Every time u Build and run ur project, An "Exe" file is created in The "Bin" folder of the application path, u can use this Exe to re-distribute.
To Create Set-up Package Check This...

Hi,

Check the following:

DB2 ADO Connection Object is open or not.
Declare RST
Dim RST As New ADODB.Recordset
Set RST=Nothing
RST.Open "select Project_Name,BU from Risk_Analysis", db2,...

Hi,

Keep a Public Array of Selected ID's. In the LoadOrders Fill the DataGrid With all the items in the Array.

Say If ur SQL Query Is:
Select * From OrderDet Where ItemId='aa'

Change It...

Hi,

Directly u cannot Configure the ToolBox in VB6..
There's a way around.
Create any dummy Project , add a Common Dialog Control and all the required OCX Controls. Now Place all the Controls...

Hi,

Open a New Project. Place A Command Button on the Form.
Copy and Paste this Code Form Level:


Option Explicit
'
Dim TFlag as Boolean
Private Declare Function FindWindowEx Lib...

Hi,

I noticed this after posting the code.
Sorry that was :


If iPos>0 Then
sSQL = Left(sSQL,(iPos-1))
End If

Hi,

Use Late Binding of the .dll, like Create object.
Dont directly add the reference in VB6 (Calling project).

Dim MyObj As Object
Set MyObj = CreateObject("MyProj.MyDll")
This code...