Convert Access database to VB project

First u must provide near your exe file the database file which containes your tables data ..
Uploading all the tabels data into your exe [like puting it as resource] will not be effective if you want to edit them after that , or it will keep a very large amount of memory every time you want to make any thing on them [not at all effective] ..
Usually we make a database conection like ADO as Ron mentioned , you can add it from your application refrence ,, and as I told u , you will have an exe file and a database file that can runs fine together in any computer .

Where u save them ? in access database ? in exel sheets ? how is your tabels then ?

you can mail me the procedure( it must be big) in my email id: amitava_iitm@yahoo.com

thanx for help

you can mail me the procedure( it must be big) in my email id: amitava_iitm@yahoo.com

thanx for help

it's better to share answers for everybody here right ?
I don't mind to contact u but only to have the benefit for everybody .
moreover if u send us the tabel as I told u we will give u good answers here .

well I have removed the unnecessary space created by str() function using LTrim$(str(Gh)) etc.

now can any on tell me what the exact code i need to use for reading the columns of the text file.

For one thing if you don't provide a data type for your variables then VB defaults to type Variant. So Fname, Gh, Cp, Gh1, and Cp1 are all variants not strings or doubles.
If you use the CStr function in stead of the Str function you won't get the leading space. Here is the revised code:
Dim Fname As String, Gh As String, Cp As String, Fn As String
Dim Gh1 As Double, Cp1 As Double, Fn1 As Double
Dim i As Integer
i = 0
Gh1 = 4 ' lets say this are the values comes from calculation
Cp1 = 8 ' lets say this are the values comes from calculation
Fn1 = 3 ' lets say this are the values comes from calculation
Gh = CStr(Gh1)
Cp = CStr(Cp1)
Fn = CStr(Fn1)

Fname = App.Path & "\data\" & Gh & "_" & Cp & ".txt"

Also as far a reading two columns it depends on how you seperated your coulumns. Are they serprated by a comma, or a tab character, or a space? Whatever you used you need to find the location of the seperator character and then split the string apart from there. For example if you used a comma then this should work:
Dim Buf As String
Dim Col1 As Double
Dim Col2 As Double
Dim p As Long

Open Fname For Input As #1

Do While Not EOF(1)
Line Input #1, Buf
p=InStr(Buf, ",")
Col1 = CDbl(Left(Buf, p-1))
Col2 = CDbl(Right(Buf, Len(Buf)-p)
Debug.Print Col1, Col2
Loop

Close #1

can u explain what is the use of p-1 and Len(Buf)-p.

By the way thank you very much for the code. That works fine and I have done the coding for my application using your code.

One problem i am facing now is i am digitizing a curve from a scanned page and the software i am using exports the x axis and y axis values as two columns in .csv file.

I am coping the values of two columns and pasted them in a text file. Can you tell me what is the separator used in csv files. becoz otherwise i have to delete all the gaps between the two values in a row and type a space between them. I think they are separated by a Tab but what should I type instead of "," in

p=InStr(Buf,",")

and can you tell me how to clear debug window?

thanx a lot

About that Wizard type form ( with Next/Back buttons) How can I design multiple frames in one form. while drawing 2nd frame 1st frame cant be seen and if i need to change any thing on first frame i need to replace the 2nd frame to some where and then do the modification in 1st frame which is very difficult in case of big frame. can you tell me the exact procedure how to do this and if i am doing some silly mistake.

Can you tell me about frame handling if there are any proper method. I can change the left value of the 2nd frame which one i am not editing at this time to -1000 to hide it and edit the 1st frame and vice versa. but if there are any other method please tell me.

Is that frame method is good enough if I have a long process tree i.e I may need 20 such frames in one form.

Sorry, but there is no Hide property for frames in visual studio 6 (what i am using).
only visible property is there but it doesn't hide the frame at design stage, it hides the frame while the application is running. Your code is fine and the application will run properly but the problem is during design stage.

:(

To make the Frames all same in size and position i think the best option is making a function to set all the values for the frames. But the problem is what should i set the data type of that function. I have made the code as:

Public Function ShowFrame(ByVal i As Integer) as ??
Frame(i).Show
Frame(i - 1).Hide
End Function

and in the next button i have written

Private Sub cmdNext_Click()
Dim i As Integer
If Frame(0).Visible = True Then
i = 1
ElseIf Frame(1).Visible = True Then
i = 2
End If

ShowFrame (i)

End Sub

Can you tell me which data type should i give to the ShowFrame function.

To make the Frames all same in size and position i think the best option is making a function to set all the values for the frames. But the problem is what should i set the data type of that function. I have made the code as:

Public Function ShowFrame(ByVal i As Integer) as ??
Frame(i).Show
Frame(i - 1).Hide
End Function

and in the next button i have written

Private Sub cmdNext_Click()
Dim i As Integer
If Frame(0).Visible = True Then
i = 1
ElseIf Frame(1).Visible = True Then
i = 2
End If

ShowFrame (i)

End Sub

Can you tell me which data type should i give to the ShowFrame function.

use public sub and don't put any return type , [u can do the same for functions i.e. public function myfunc() 'only]

and call it like that in the two cases :
showframe i 'without brackets

This send to back method is fine and i am going for that. thanks :)

label1.caption = "line1" & vbcrlf & "line2" & vbcrlf & ...

vbcrlf = vbcr + vblf [line feed]

more precisely can i find what is the index of the currently visible frame and in which data type i can store that

'some code to find out the currently visible frame ???
'dim i as data type? ?????
i=frame(index)
' code for the next button

My question is how to find out i ?
that is the index of currently visible frame.

Can you explain what value of I will be saved when I write

Dim i as Integer
Frame(i).Visible = True

Well i have solved that problem!

Now can any one tell me how to handle this error.
i have a number of text files which contain data for specific values.
i have given every constrains possible so that no user can enter alphabet or leave a textbox empty. but if the user enters arbit values then my program will generate a file name and it tries to open the file from the concerned folder.

I have the file name . Now how can i check if any file with that file name existas or not. if they don't exist i want to give a msg that "file doesn'ty exists in database"
+ "try again!!".

how can i do this?

first of all check if your function haven't errors ..

if err <> 0 then .. or if err.number <> 0 then ...

about i I told u to make it public , and if u wish u can make a string of restricted charcters and check over them to solve your error problem .

First of all I want to wish you all a very happy new year.

Now my question is "is there any way to clear the debug window each time i run the application ?"

I am having a problem which i don't understand why is it happening?

As I said before that I need to open a file to read data from that and the file name is created by the program. i.e if
Gh=4
Cp=0.75
Then the file name will be
Fname=App.Path & "\Data\Gh" & Cstr(Gh) & "_" & "Cp" & Cstr(Cp)

So Fname becomes ...\Data\Gh4_Cp0.75

Now the problem is if that file is not exists in the Data folder then the program will generate an error.

To overcome this problem I have written this:

'==============================================================
On Error Resume Next
Cr = FindCr(Gh, Cp, Fn)

If Err.Number <> 0 Then
MsgBox "Sorry ! There is some error. The reason can be either" & _
vbCrLf & "1. Data for this ship is note yet updated." & _
vbCrLf & "2. The type of ship is out of range for this method" & _
vbCrLf & "3. There must be some mistake in input" & _
vbCrLf & "Check your data properly and enter the data cautiously.", vbExclamation, "Error"
Exit Sub
End If

'===============================================================

Here FindCr(Gh,Cp,Fn) is a function which opens a file of name(Gh.._Cp..) as explained before.

The problem is when i click the calculate button of my application with a data for which the file is not exists it shows an error. Then when I give input for which the file exist then also it gives some error msg.

Then I have to close the program and then when i reopen it and give the correct inputs( i.e file exists) then it gives me result.

So how to improve this? I want to give various inputs and check whether the file exists or not without closing the application.

i am sure you will help.
thanx

I don't need to handle error. if its giving an error that mean there is no file named the program returns and its actually not an error of the program, it can only happen if you give some arbit inputs for which there will be no such file present in the data folder.
In that case i just want to display a msg to the use that "hallo, why are you tryin arbit numbers? " :P and then again let them input proper numbers.
Can you tell me how to handle this situation.

Use the Dir() function to see if the file exists. Like so:

Fname=App.Path & "\Data\Gh" & Cstr(Gh) & "_" & "Cp" & Cstr(Cp)
If Dir(FName)="" Then
MsgBox ....
End If

Hello
Thank you all for your support and help on my project. I have finished my project (described on the thread "getting data from excel sheet" ).

Now a problem i am facing is when i converted the project to .EXE is perfectly runs in my computer but it says some thing like:
"One component is missing, MSMASK32.OCX is required to run the program"

Please tell me what extra files I should attach with my program and how to attach it so that it works on every computer.

Sorry if this is not a related thread but i could not find one so i am trying this on. please help me. I have made all the coding etc and now if it doesn't run in the peoples computer then my all effort is use less.

Thanks
bye
TAVA