choudhuryshouvi

Hi, all here is my question:- My application uses vb6 as front-end,ms sql server7.0 as back-end. i connect my apps with the rdbms using an odbc dsn connection. now i've created some reports for my apps using crystal report 8.5. the print is going well. now i want to export …

you have to create an ODBC connection with the access database to connect your program to the crystal report. then create an query and make the report based on that query. after that you will call the query in your program and the rest will be handled by ur apps. …

always use ITEM_CLICK event of the LISTVIEW control to extract information of a specific item from the database.check out the following sample code. it uses an access database and connect through DAO. before running this code create an access database "resv.mdb" and four fields which are "resv_code","dest","date","time" & also insert …

look at the following code.hope it'll help you. before running the code just create an access database named "np.mdb" under your project folder. just take a command button on a form. 'this is a global variable for storing how many no. of tables have been created so far [B]Dim tot_table …

you can compare by taking the profile id of the harddisk being installed on a specific computer. u have to write the program in such a way that it should look for the harddisk profile id. if u want samples on how to get such element visit [URL]http://www.planet-source-code.com[/URL] and search …

before you do what u wish u need to create an odbc dsn connection for ur ora8i database to connect it with vb6 and execute ur query statements. hope u know how to create the dsn. after creating it, use the following code to connect to the database from ur …

there is simple syntax error in ur code. use the following :- QueryOne = "Select date,time_started,time_ ended,hours_worked,customer,description From Hours where period='" & _ cboPeriod.Text & "' Order by date desc, time _started asc" datHours.RecordSource = trim(QueryOne) **replace all of ur fields that have space with underscore.**

use this code :- dim i as integer for i=1 to 12 list1.additem monthname(i) next i for i=0 to list1.listcount-1 printer.print list1.list(i) printer.enddoc next i

use the attached module. hope it'll help you.

Hi all, this is my question :- I've created a table in ms sql server 7.0 using the enterprise manager. there i've a field named "address" which is a varchar type field. now in my vb6 apps i used a multiline textbox to write address. now when i'm trying to …

use the code in the attachement. hope it'll cover up query.

Hope this code can cover up your requirement. Before try to run this code create a database "[COLOR=red]employee.mdb[/COLOR]" and a table "[COLOR=red]info[/COLOR]" with four fields "[COLOR=Green]emp_no[/COLOR]","[COLOR=Green]name[/COLOR]","[COLOR=Green]basic[/COLOR]","[COLOR=Green]tax[/COLOR]". Add some records to test the code. Take a button(cmdsearch) and five textboxes(text1 to text5) and associated five labels. Below is a sample interface …

I have created a report using crystal report 8.5 Now I want to count total no. of words that are appearing in each page of the report. Is there a way from the crystal report software to accomplish this? Can we create a program in vb6 to count no. of …

Hi all , this is my question :- I have installed and created a report using crystal report 9. I used user dsn on ms access database. Now i want to know how can i show the report from my vb6 apps? Plz help me out... If possible plz post …

Hi, all this is my question:- I am creating a double tier vb6 application with access in format 7.0 mdb. For this application i'm creating reports using crystal report 9. Now i want to show the report to view data from tables after passing some criteria. I have a table …

u can try this method. within vb6 ide goto project->references click browse and move to the location where u have saved the dll file.select the file and click ok. u will see the file is added in the ref. list with a check marks on. now click ok. now ur …

Hi, can anyone tell me from where can I download and install the crystal reports to use in vb6? I need the site url. Help please... Thanks in advance

Hi, can any one tell me how to create variables during runtime. This what we generally do when we need to create string of fixed length like - [B]dim x as string * 5[/B] now i also need to do it dynamically. suppose i need to declare two individual variables …

Hi to all, here is my question:- i've declared an user defined type like this - [B]public type user str() as string end type[/B] where str() is an string array with empty elements. now i want to create the elements dynamically. for that i wrote these - [B]dim x as …

Hi, can any one tell me how to create standalone variables during runtime. This is what we generally do in design mode when we need to create strings of fixed length like - [B]dim x as string * 5[/B] now i want to do such things dynamically. suppose i need …

I want to do something like we can do in VB. I have a string value which is "Dreamboy". now i would like to extract some characters from a specified position within the above string. we can do this in vb by using mid,left and right functions. now i need …

Can anybody tell me how to incorporate an windows application using vb.net and oracle 9i database as back-end? plz give me step by step instructions on this. It will be very helpful if I've got some links to websites offering such articles,tutorials and resources. I'm using VS 2005. Thanks in …

i can send u the segmented coding in where u stucked.just send me a notification mail.my email id is : [email]snipped[/email]

'using connection object 'in general section dim conn as adodb.connection dim rs as adodb.recordset 'in form load set conn=new adodb.connection set rs=new adodb.recordset conn="provider=microsoft jet.4.0.oledb;data source=<ur database name>;persist security info=false" conn.open rs.open "select *from ur tablename",conn,adopendynamic,adlockoptimistic

Look, "Epson Ex-1000" is the default printer for windows in all versions. It is the printer which anybody can use even if they don't physically have any printer installed to see the print preview. Now if you wish to change this printer setting to something else you've to first tell …

Runtime error 5 doesn't mean to any syntax or compile errors within your app. It causes due to some logical errors within your program. It happens whenever you try to move focus to any control in runtime which is currently disabled. Like you have two textboxes in a form, among …

Installing runtime files will not solve your problem in some circumstances. Such is that probably you have used a third party activex control that is not installed in the system directory(In case of XP it is System32)of your operating system or such a control which is newer than what is …

Hi Kshrini, One way you can apply to solve your problem. You can design your application in such a way that it should check the resolution that has been currently set in user's computer. If it is 1024*768 then you allow the user to run the application otherwise you can …

Try this code... 'used stuffs :- button(command1), list box(list1) , database,table and fields name remain same Option Explicit Dim connection As ADODB.connection Dim recordset As ADODB.recordset Dim CITYARRAY(5) As String, QUERY As String Private Sub Command1_Click() Dim i, f, nf As Integer f = 0 'variable for tracking total no. …

Hi, all How can I make a text box such that it accepts numbers only? Does anybody know how can I achieve that? It would be helpful if somebody post some example programs or some links to such websites where I can get some resources regarding this thread. Thanks to …

Might this code serves your purpose 'used stuffs :- textbox(txtname), two buttons(cmdadd,cmdselectname),list box(list1), database(info), table(info), field("name") Option Explicit Dim db As Database, rs As Recordset 'adding a new name to the database based on value supplied into the textbox Private Sub cmdadd_Click() If Trim(txtname.Text) <> "" Then rs.AddNew If rs.EditMode …

'hope this code snippet can serve your purpose Dim n(4), s As String, i As Integer 'populating the string array For i = 0 To 4 Step 1 begin: s = InputBox("Demo of populating an array by accepting name of 5 students." & Chr(10) & "Enter name of student" & …

you cannot use dbgrid without datacontrol because to make dbgrid contain all records from the table you need to first connect the dbgrid with the database and that you cannot do without a control in case of dbgrid.in this case you may face a problem when the database which was …

will you be mind to clear in what are you want to do?

in the module paste the following code :-(the bolded parts only) sub to load the form specified by you [B]Private Sub loadForm(frm As Form) Load frm frm.Show End Sub[/B] this is the main function that a module should have while you are trying to execute it from your project as …

'take a picturebox,make its sizemode property to 'autosize'. rename the picturebox to 'pic1'. take an openfile dialog control and rename it to 'opfile' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click opfile.Title = "Select JPG File" opfile.InitialDirectory = "C:\" opfile.Filter = "JPG Files|*.jpg" opfile.ShowDialog() If opfile.FileName …

There are four types of login u can code in a vb program. They are :- 1.from table stored in a database 2.from user-defined file 3.from windows registry 4.by fixing some constant value within ur program If u want to know any of the above send a mail to my …

you can make animation using any objects even with the form also. here is an example animating a label control. during running of the program the label should blink. here is the code :- private sub timer1_timer() if label1.visible=true then label1.visible=false elseif label1.visible=false then label1.visible=true end if end sub private …

'used stuffs : textbox(txtname); command button(command1) Option Explicit Dim db As Database, rs As Recordset Private Sub Command1_Click() If Trim(txtname.Text) <> "" Then Set rs = db.OpenRecordset("select *from fail where nama_fail=" & Chr(34) & Trim(txtname.Text) & Chr(34)) If rs.RecordCount > 0 Then MsgBox "The name is found." ElseIf rs.RecordCount = …

I'm developing a mediaplayer.There is a listbox acting as filename container. Now I want to select multiple files from openfile commondialog and add those selected files to the listbox. How can I do this?Plz help me to figure this out.

Hi all, I've a code in vb.net 2003 which prompts user while he/she tries to close the form by clicking the form's close button('X'). If answer is yes the form closes but if the answer is no it stays. Now I want to write the similar code in a C# …

In vb6 form_unload event there is a system defined event limited variable called 'cancel'. u need to assign this variable to 'no'. use this code snippet :- private sub form_unload(cancel as integer) dim box as integer box=msgbox("Do you want to exit?",vbyesno,"Exit") if box=vbyes then unload me set form2=nothing end elseif …

perform these steps:- 1.open vb6 and create a new project 2.save the project 3.tools->visual data manager 4.file->new->microsoft access database->version 7.0 mdb 5.select the folder where u saved ur project 6.enter new db name and click create 7.right click on database window->new table 8.enter new table name->click add field 9.enter a …

first u need to configure the data1 control.do these :- 1.open data1 properties. 2.click ... button next to the property database name. 3.locate and select ur access database. 4.scroll down and select recordsource property. 5.select the table from the dropdown list with which u want to link ur vb program. …

you use getsetting function to read the value from registry and then check whether a database with the specified value does exist or not. depending on the result u can execute actions. u need to store the database name along with its fullpath. use this code :- 'to store the …

[CODE] 'used stuffs :- list1 and its two arrays(0,1) 'displaying name along with its index of the selected control Private Sub List1_Click(Index As Integer) MsgBox List1(Index).Name & "(" & Index & ")" End Sub 'dynamically adding items to all listboxes present on the current form Private Sub Form_Load() Dim ctlControl …

my dear, there is no inbuilt crystal report tool in vb6.0 coz its an external tools and u have to install this explicitly. search google for crystal report 8.5 or some latest versions and then put a mail to my email which is [EMAIL="choudhuryshouvik@yahoo.com"]choudhuryshouvik@yahoo.com[/EMAIL] ,after that I'll send u the …

u need to first open the database and assign its table's contents to a recordset object. all these u have to do in form_load event. try this code snippet :- 'in general section dim db as database,rs as recordset 'in form_load event set db=opendatabase(app.path & "\yourdbname.mdb") set rs=db.openrecordset("yourtablename",dbopentable) if rs.recordcount>0 …

Hi, there, all fellow programmers I need a help on this. I have a code in vb6. It acts when a click action is made on 'X' on form1. Here is the code :- private sub form1_unload(cancel as integer) dim confirm as integer confirm=msgbox("Sure to exit ?",vbyesno+vbquestion,"Confirm Exit") if confirm=vbyes …

[quote=VENUSKARTHICK;375217][B][COLOR=green]dear friends i need visual basic tutorial & books on pdf or video formet plz post for me i am biggener for this ..........[/COLOR][/B] [B][COLOR=green]thanks......... in advance........[/COLOR][/B][/quote] If u seriously need those what u requested for then I've the resources for u. Just send me a notification mail to my …