AndreRet

VB6 actually do support access 2000/2003. Your problem was with the data control. If you have however solved this, please mark it as solved, thanks.

Try and change the 5 to - [CODE]Printer.PaperSize = vbPRPSLegal[/CODE]

I think Dani is correct in saying that encouragement will work. I am not that much involved with other forums than VB6, and I can tell you that the necromancing there is huge...:S We get posters asking questions on threads that is still open from as far back as 2005! …

Welcome Keith, from a VB poster.LOL. Enjoy your stay with us.

Welcome molineboy, I'm sure you will enjoy Daniweb. I'm sure we will still hear a lot from you. Enjoy your stay with us.

Welcome. Trust me, its hard for all of us, but we try to cope. Happy coding with Daniweb.

Welcome Didier, I'm sure you will enjoy Daniweb. It has so many facets to it, you can get help as a newbie, post your help or just chat in the lounge. Enjoy your stay with us.

Welcome Vidar, I'm sure you will enjoy Daniweb. It has so many facets to it, you can get help as a newbie, post your help or just chat in the lounge. Enjoy your stay with us.

You can use your media player as well if you do not want to get involved in API's. Set a reference to the mediaplayer library files, select it from components and then load the mp3 files to be played. Set the mediaplayer's visibility to false.

Samir, you have to give us some more information. In vb6? Which database - Access, Sql etc? Which grid would you like to use? What code do you have thus far? Database running on server or local pc?

Try the following code. I have changed your if then to a select statement. When the "*" gets to 4, it counts back 1 at a time by removing the last "*" - [CODE]Option Explicit Private Sub Command1_Click() Dim x As Integer, z As Integer Dim y As String, Wave …

for Pdf, set a reference to Adobe Reader Type Libraries, use the same object code as for word, and that should open the pdf file. For other applications, do the same.

Kinwang, have a look at the error. Ancie, your problem lies in the fact that your form1 is not showing. You can not set the focus to a control if it is not visible, in other words, by using [CODE]Load Form1[/CODE] will not help, rather show the form and THEN …

First things first, please read our posting rules. You have basically "hijacked" someone elses post AND this post is from 2006, ouch. Please start your own thread with the question above. To your question, you will be making use of the MSComm Control, you will have to tap into your …

Try the following link with some attached code samples for vb6 - [URL="http://forums.tm.agilent.com/community/viewtopic.php?f=10&t=1298"]http://forums.tm.agilent.com/community/viewtopic.php?f=10&t=1298[/URL]

You will have to specify some more please. If you say coloumns, is this in a datagrid, excell...? Is the data coming from a recordset or is it typed in data etc.?

Sorry, but that will be "hacking" someone else's code. Yes, there are ways which we will most definitely not help you with at this site or any that I know of. You will unfortunately have to start your project all over and re-code from the .exe as a sample.

Well, notepad will not return a picture box or command button code at all. Are you trying to use vb6? If so, a picture box control with a command button INSIDE the picture control will solve your problem.

Try the following link, in its search box add access 2007 - [URL="http://www.connectionstrings.com"]http://www.connectionstrings.com[/URL]

Make use of a public sub as in (Depending on your database used, in this case MS Access - [CODE]Public Sub GetDbAll(conn As ADODB.Connection, strUsername As String) Set conn = New ADODB.Connection conn.Open "provider = microsoft.jet.oledb.4.0;persist security info=false;data source =" & strpath & ".mdb" ' C:\MyDatabase.mdb" 'MyDatabase being your database …

Hisham, you are unfortunately in the wrong forum. I have asked that your question be moved to .Net. I am sure there is someone there to help you out. Good luck.

You have not set a reference o the recordset - [CODE]Set CheckInRs = New ADODB.RecordSet[/CODE] Try this and your problem should be solved.

Your question is a little vague. If you want to open another program as in your pdf above WITHIN your application, you need to put a reference to that program. Else your shell should open that program independantly, so the actual question is, what exactly do you need? Open another …

Yes, try the following - [CODE]Command1_Click() Text1.ForeColor = vbBlue Text1.BackColor = vbRed End Sub[/CODE]

Neo, I think you have posted at the wrong forum. There will be very few people, including myself, that will be able to help you out on this one, sorry. I have asked that this be moved, I just do not know where to... I am sure you will be …

Follow the link below, there is even some sample code available with the download. [URL="http://www.clickatell.com/products/sms_gateway.php"]http://www.clickatell.com/products/sms_gateway.php[/URL]

In a module add the following - This is to get the time difference between 2 times - [CODE]Public Function GetTimeDiff(TimeStart, TimeEnd, txtResult As TextBox) Dim diff As Long diff = DateDiff("s", TimeStart, TimeEnd) TimeString diff, txtResult End Function Public Function TimeString(Seconds As Long, txtResult As TextBox, Optional Verbose As …

Zeb, I have resend you the package and your email still bombs out. This is quite a large package, so maybe this is the problem. Did you look at my previous posts (thanks for starting a new thread) and try to resolve your problem? You either have an infinite loop …

Your problem is that you created a shortcut to the .exe and not the database which was not at the path specified. If you are changing to a server, you will need a different connection string and make sure the database resides in the path specified. Your app can not …

a Bit confusing, but if I understand this correctly, the 2 scenarios... First your time format is incorrect - [CODE]lblTime.Caption = Format(Time, "hh:mm:ss")[/CODE] If you want to add this to your record in the table (Looks like you are using a data control?) - [CODE]'Make sure you have the fields …

This is because VB6 calculates the ENTIRE number. Use format to get to only 2 decimals etc - [CODE]picSample.Print Format (x, "### ##0.00")[/CODE]

It seems that you want to change the binary to hex/decimal, correct? Google the values of 75 and 18 to the conversion you require.

Tarang, please open a new thread for your question. This thread belongs to JunJun as above. Further, your select statement is incorrect - [QUOTE]q = "select *from student where std=" & cmbsd.Text & " AND admin=" & year.Text & " "[/QUOTE] should read - [CODE]q = "SELECT * FROM student …

Why don't you rather try the Open File method? - [CODE]Dim hFile As Long Dim Filename As String Filename = "c:\account.txt" Open Filename For Binary As #hFile 'Code you need here to do with the file Close #hFile[/CODE] There is plenty of help on open file method, use google and …

I have posted to the previous unmoved post - Your problem lies in your string syntax - [QUOTE]str = "select * from emp where Filename= &key "[/QUOTE] Try - [CODE]str = "select * from emp where Filename=" & "'" & key & "'", conn, AdOpenStatic, AdLockOptimistic[/CODE] This should return the …

Your problem lies in your string syntax - [QUOTE]str = "select * from emp where Filename= &key " [/QUOTE] Try - [CODE]str = "select * from emp where Filename=" & "'" & key & "'", conn, AdOpenStatic, AdLockOptimistic[/CODE] This should return the values you are looking for.

4Spin, you have posted to a VERY OLD post dated from 2008... Please open your own thread and post your question there. You are new however, so to your question - in a module paste the following - [CODE]' Image descriptor Type imgdes ibuff As Long stx As Long sty …

Change the following to - [QUOTE]If rs1.EOF And rs1.BOF Then MsgBox "No record found" End If Set DataGrid1.DataSource = rs1 DataGrid1.Refresh[/QUOTE] [CODE]If rs1.EOF And rs1.BOF Then MsgBox "No record found" Else Set DataGrid1.DataSource = rs1 [/CODE] Add the else and remove the refresh part. Only refresh your grid once you …

Make use of the common dialog control (Under 'Projects/Components/Microsoft Common Dialog Control 6.0 (spxx) xx being your service pack utilized'. When clicking on the command button - [CODE]Command1_Click() cdlgPrint.PrinterDefault = True 'If using the default printer cdlgPrint.Orientation = cdlLandscape 'Depending on the orientation needed, portrait or landscape cdlgPrint.Print Text1.Text[/CODE] Play …

I have asked that your post be moved to .Net, you are currently in VB6. I am sure someone at >net will be able to help you solve your problem over there.

From 2008 to 2010, mmmm Guys PLEASE start your own threads. China, what are you having a problem with? Are you using vb6, and if so what version. Some of them got shipped without the package and deployment wizard, which means that we can not help you out, unlike hawism's …

You have not shown us any effort from your side, please read our posting rules. To answer your question, use the "WHERE" clause in your "SELECT" statement - [CODE]rsBooks.Open "SELECT * FROM MyBooks WHERE Title =" & "'" & strTitle & "'", cnMyBooks, AdOpenStatic, AdLockOptimistic 'strTitle is the actual typed …

You can either set it through the textbox properties by selecting "PasswordChar" and type in * or whatever character you would like, or you can do it through code as in - [CODE]Text1.PasswordChar = "*"[/CODE]

I don't know if this will help. This is based on the fact that you know where to get the middle part. Let me know if this helped. [CODE]Dim i As Integer, strExtract As String For i = 1 To Len(cbPN.Text) If Mid(cbPN.Text, i, 1) = "-" Or Not IsNumeric(Mid(cbPN.Text, …

Agent0, please refer from posting private messages here. Use the lounge to start a discussion and not this forum please...

Put the following code BEFORE your Rs.Open statement - [CODE]Set Rs = New ADODB.Recordset[/CODE] This should solve your problem.

The easiest way is to save the value to a database. If fieldRadio is yes, then set the value to 1.

The wave is not playing because the file is not open I suspect. Try the following which is very similar to a post here today as well - [CODE]Option Explicit 'Description: Calls the "Open File Dialog" without need for an OCX Private Type OPENFILENAME lStructSize As Long hwndOwner As Long …

Where did your error occur in the above code?

Show us the code where you use the 'rs.Update statement as well as the connection. It seems that the connection is not connected when updating or the reference set to the table might be incorrect.