Refer following sites for moving controls around form using mouse

http://www.vb-helper.com/howto_user_move_controls.html
http://www.freevbcode.com/ShowCode.asp?ID=4349...

Hi

These sites may helpful for you
http://www.vb6.us/tutorials/convert-c-strings-vb-strings

http://www.vbthunder.com/articles/readcpp.php

Nice.. but still try to improve the better version ..

Also use CODE tags
http://www.daniweb.com/forums/misc-explaincode.html
for better understand.

First you find the ascii for the special characters then try to code it ..

Ex:

0-32 Allowed
91-96 Allowed
>= 123 Allowed then

Sure, I can give some alternatives,before that if u have a time, u try your own..

Try it.
>>Controls characters are within the range 0 to 32..
You should dont restrict the key ascii between...

Hi,

change the above code like this


Private Sub Text1_KeyPress(KeyAscii As Integer)

'If ( KeyAscii > 47 And KeyAscii < 58) Then
If ( IsNumeric ( Chr ( KeyAscii ) ) Then

Hi

Visit here for control array tutorial and try it

http://www.vb6.us/tutorials/vb6-control-array-tutorial

Hi, Use Key_Press event in VB6 to capture the keypress within vb application.

Hi,

Where you get error, Can u specify? Then only we can find error easily. That is the line in which the error occured.

Hi,

ReDim statement is used to change the size of a dynamic array in procedure level.

Preserve keyword is used to preserve the data in an existing array when you change the size.
Ex
...

HI

Use \ operator instead of / operator, because / operator in vb gives floating result and \ operator gives integer result. so floating value will be rounded to integer.

For example

Dim...

Hi, U can use Usercontrol.Parent Property get the Parent object and use WithEvents keyword to capture the Parent events


'In UserControl
Option Explicit

Dim WithEvents mParent As Form
...

Hi

Use

Dim sJanDate as String

'Retrieve empty string if the record is null
sJanDate = rsmnth("JanDate") & ""

'Then check it

Hi,

I dont think so such query exist but u can use like this


INSERT INTO VALUES ( .... ) , ( .... ) , ....


Make such SQL and Execute the single query.

Yes, I agree Comatose

Hi, Try

For Each Loop instead of For Loop

Hi,
Refer FindWindow(), SetWindowText() APIs which helps you to change the Name of start button.

Hi, use

DoEvents function so that other process get chance. This function helps to disable your form.

Example

Dim bStop As Boolean

Private Sub cmdProcess_Click()
Do While bStop <>...

Hi,

Try ADODB.RecordSet.GetRows () Method which returns array of records. It may seem to be fast.

Try ADO Tutorials (http://functionx.com/vb6/Lesson14.htm)

Hi,

Refer ADODB.RecordSet (http://msdn.microsoft.com/en-us/library/ms675841(VS.85).aspx) Properties (RecordSet.RecordCount (http://msdn.microsoft.com/en-us/library/ms676701(VS.85).aspx))...

Hi,

You can also use PaintPicture () to get the portion of image

Code

Option Explicit
Dim iX As Integer, iY As Integer, iHeight As Integer, iWidth As Integer

Private Sub...

Yes, Debasisdas is correct.
Refer

WeekDayName ()
WeekDay ()
&
Other Date Functions
to achieve this.

WeekDayName ( WeekDay ( Date ) ) returns today date in String

Hi, You have to display a message box, when closing a form or changing one tab to another.

If Changing from one tab to another,
set editing flag on All the controls change event (Current Tab)...

Hi, ComboBox.Style is ReadOnly property at Runtime, that means you can change its value only design time.

Try another logic instead of using Style property.

Hi, I think there is no record and you have not called ADODC.RecordSet.AddNew method to Add new record.

Call Adodc.RecordSet.AddNew() method before enter any value to the text box

Hi, Make your Exe path on the local system's registry "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run". It will run automatically when system is on

Hi,

Use DeviceIoControl() API, to eject the removable storage media. Refer http://support.microsoft.com/kb/165721

In the first column u should put the data from the recordset's first column. I have given the sample code only

To do

Open the Database Connection
Open the Recordset
Move to the first record
...

Hi
Change ListView.View to Report
Add Columns as per the recordset columns
Use ListView.ListItems.Add() method to add an item to ListView. It will return a ListItem object. Then use that...

Hi,

Specify in which line error occurs.
I guess it from your SQL query. Check whether the fields are existing and spelled correctly.

This link will help you but not quite http://support.microsoft.com/kb/189468.

Hi,

Use MSFlexGrid.TextMatrix ( row, column ) to get/set then value rom/to the grid.

No there might be no option for such Add in in Add in menu. You have to create your own Add In Project.

Hi,
My suggestion
> Use ORDER BY Clause
> Iterate thru all records
> If duplicate occurs (If current = previous), simply ignores it

Hi,

Why dont you design your message box using Form, Label and Buttons?

> Click Add Form from project menu
> Choose "Dialog" from the templates

Hi,
You can do it thru Add ins in VB6.

Hi,
Check the fields (item_code, ProductName and maxofunit) are available and spelled correctly ..

Instead of using INSERT query, you can use


'In form Load
RS.Open ("SELECT * FROM TABLE")

'To Add, Use
RS.AddNew

'To update

Hi.

When u insert a record, did u give any primary key constrain ?