rishif2

if you are working common dialog box control then Try This:- `CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames Or cdlOFNExplorer` the above statement will allow to select multiple files. hope this helps you

try this :- Dim fso As New FileSystemObject If Not fso.FileExists("FileName.txt") Then MsgBox "this is first time" End If before adding above code , you have to add reference for it (Goto Project Menu , Select References and then Select Microsoft Scripting Runtime) hope this helps you to solve the …

try this `Dim fso As New FileSystemObject` fso.CopyFolder "d:\trea", "d:\backup" fso.CopyFolder "d:\inven", "d:\backup" before putting this code first add references and so goto project menu and then select references option and then select Microsoft Scripting Runtime hope this helps you . . .

first of all here i am agree with **Jx_Man's opinion** so first you should specify that what do you mean by the term **Screen** (is it window screen or a visual basic form ?) And if you wanna clear the form screen then you should go with follwing code (its …

i really don't understand the exact the `Query` part as well as the whole question. what type of value for the field `"eftn"` and `"Namn"` ? but try this :- `MsgBox Mid(LstData1.Text, 7)` the above statement will help you to extract the string after 04-26

Here its not possible to exaplain all aspect of `pointer` , so in very short you can understand the pointer as:- A special type of variable (Different from oridinary variable) Basically used to store address of other variable (i.e Pointer variable's value is address of another variable) Pointer variable has …

Try: MsgBox Split(Text1.Text, "-")(0) hope this helps you . . .

As mentioned in the title , i wanna unsubscribe mail service for a particular thread (once i posted there now i get average 3 to 4 mails(when article updated by somebody) per day which are not necessary for me) here , can anybody explain the procedure to do so . …

a few things i wanna make clear from you why using the following :- `myDay = Format$("yy-mm-dd")` why using Format function in following manner(it will not produce what you think) `myDay = Format("now, yy-mm-dd")` here you should write As `myDay = Format(Now,"yy-mm-dd")` why opening recordset which is alredy opend (check …

i think imagelist can work well with jpg , Bitmaps , Gif , ico etc.

can you explain a little bit the following statement > If Text6.Text = Recall Then is Recall a variable or a constant or a function or something other . i see that you are coding for adding new records to the table `Recalls` with using recordset ` rsRecalls` . At …

Here i assume that you are familiar with database connectivity If you wanna extract zipcodes from the database on the basis of textbox value then you must be familiar with database connectivity and for this i would highly recommend `ADODB` > I wisch to enter in the text box wit …

well to add user profile , you must allow the end-users to insert their values . if you know about `struct` then you can do it easily , otherwise create a new function and declare sperate variable for each information and save values to those variables. and i think that …

There is very simple application (it uses some special fonts). Now i wanna create a setup using package & Deployment wizard , So what should be done to add that fonts to the package . These fonts should be installed automatically when user run the setup and so that there …

please make your post more clear and explain you want to do?

> app.path which is actually referring to the path where VB6 is installed it doesn't return the path where vb6 is installed but it returns the path of the project where it is saved. there are probably two reasons 1. may be you're using default vb6 path for saving files. …

well what efforts did you made for this ? and dont forget to put the code because it will be easier to help you with your own code otherwise nobody will code here for you

try this `Dim fso As New FileSystemObject` now code to create a folder `fso.CreateFolder "d:\newfolder"` and now code to delete a folder `fso.DeleteFolder "d:\newfolder"` before putting this code first add references and so goto project menu and then select references option and then select Microsoft Scripting Runtime hope this helps …

well i dont know the exact function name that can solve the issue but you can use of the following to generate the same:- `dt = Month(Date) - 1 & "/" & Day(Date) & "/" & Year(Date)` hope this helps you . . .

@RvSon Are you sure that it will work on classic visual basic (vb 6) ?

i think that you are asking about a very user friendly IDE And you should go for eclipse and this IDE will also provide interactive user interface for better designing . . .

first of all i dont know that why are you not using array for storing days try this(without making day as array) //declare array int temp[7][2]= {0}; int day = 0; int i,aTotal,bTotal; aTotal=bTotal=0; const int lowtemp = 0; const int hightemp = 1; //enter data into array for(i=0;i<7;i++) { …

> it work just a moment, i mean, this 3 lines string comes continuously, but in the splitted text boxt just appear the first value, didn't change like the data came. for this you should be determined about time duration for data coming . After that you have to put …

its simple just use of `PrintForm` method with specified formname. for example if you wanna print form1 the use `Form1.PrintForm` hope this helps you . . .

As the question belongs to India So On this issue , Indian can only express their views on it. And i think that On this issue a politician and an economist can express their view more effectively Not a programmer

hope this thread will result in a meaninfull decision . . .

> January = 1 February = 2 March = 3 April = 4 May = 5 June = 6 July = 7 August = 8 September = 9 October = 10 November = 11 December = 12 first of all i dont know why you are using that code the …

try this int values[]=new int[3]; float sum=0; for(int i=0;i<3;i++) { values[i]=(int)(Math.random()*78); System.out.println("random number="+values[i]); sum+=values[i]; } System.out.print("Average="+(sum/3)); hope this helps you to solve the issue . . .

use of `distinct` will result in what you want(it will return only dictinct values i.e different values only) `"Select distinct student_section from student_tbl"` hope this helps you . . .

its simple use the following code on textbox lostfocus event If Val(Text1.Text) > 100 Then MsgBox "Invalid " Text1.SetFocus End If

replace ` while(( fscanf(f1,"%d",&data) != EOF ) || ( fscanf(f2,"%d",&data1) != EOF ))` to `while(( fscanf(f1,"%d",&data) != EOF ) && ( fscanf(f2,"%d",&data1) != EOF ))` hope this helps you . . .

if the inputted character is letter then use the statement KeyAscii=0 you have to write that code on the key press event of the text box now i hope that you can handle the issue with ASCII VALUES of letters if you think letters as alphabets then ascii value range …

just call command1 event proceudre on command2_click event and so write there command1_click

first of all please dont ask a lot questions in one post i think there should be a seperate post for each question thats why i am gonna tell you right direction for the first question which is regarding to command button try this on click event of comand button …

use of MaxLength property of textbox and set it to 2 it will solve the issue

just compare dates using datetime.datediff function and now i hope that you can handle the issue

First of all , sorry for disturbing , and now i am having some confusions regarding the following issue very interesting topic arises here and that is when to use adOpenStatic,adLockOptimistic and adOpenForwardOnly in fact i've never used adOpenForwardOnly , so the question is when to use it ? thanx …

rs.Open "Select Count(DateIn) as Total from Time_In where Employees_IdNo = '" & sTrID & "'", cn, adOpenKeyset, adLockPessimistic If Not rs.EOF Then lblTotal_Days.Caption = rs!Total Now close rs and once again open it , so type the following rs.Close set rs = Nothing 'now open the open rs rs.open "Select …

do you mean executing triggers what we have in other database engine ?

i think the following statment is producing problem `lblTotal_Days.Caption = Total` so try this `lblTotal_Days.Caption = rs.Fields(0) & " records found"` hope this helps you . . .

how to add scroll bars to mdi form when the height of child form is greater than the actual height of mdi parent form . . .

set of pictures with timer will solve the issue

As i am not more familiar with c# programing but on the basis of other programing i am replying to this thread do while loop is exit control loop , it means that it will check the condition after executing statements and i can see that you didn't specify the …

do you mean that when user fill up the textbox and if this is same with earlier saved item in database table , then update operation should not take place otherwise update record ? if this is the issue then use following code rs.Open "select*from Employees where Employees_IdNo='" & Trim(txtID.Text) …

try this . . . Private Sub cmdSave_Click() On Error GoTo err Set rs = New ADODB.Recordset rs.Open "select*from Employees", cn, adOpenKeyset, adLockOptimistic rs.AddNew rs!Employees_IdNo = txtSearch1.Text rs!Lastname = txtLastname1.Text rs!Firstname = txtFirstname1.Text rs!Middle_Initial = txtMiddle_Initial1.Text rs!Address = txtAddress1.Text rs!Birthdate = DTPickerBirthdate1 rs!Date_Hired = DTPickerDate_Hired1 rs!Position = cboPosition.Text rs!Rate = …

please show us your code

try this first define a function Private Function IsValidEmailAddress(ByVal sEmail As String, Optional ByRef sReason As String) As Boolean sEmail = LCase(Trim(sEmail)) If Len(sEmail) < 7 Then sReason = "Too short" ElseIf sEmail Like "*[!0-9a-z@._+-]*" Then sReason = "Invalid character" ElseIf Not sEmail Like "*@*.*" Then sReason = "Missing the …

try this `rs.Open "Select * from Time_In where Employees_IdNo = '" & strid & "'" & " union Select * from Time_Out where Employees_IdNo = '" & strid & "'", cn, adOpenKeyset, adLockPessimistic` make sure that Employees_IdNo is string or not . now i hope that you will handle that …

if you did not change name property of the form then use form1 not form01 use form2 not form02 if still having problems then what error you are getting now

try this declare public type string variable at module `Public oldstr As String` now On Sub Form (Form2) Private Sub Command1_Click() oldstr = Form2.Text1.Text Form1.Text1.Text = oldstr Unload Form2 End Sub Private Sub Form_Load() If oldstr <> "" Then Form2.Text1.Text = oldstr End If End Sub hope this helps you …