Yes, you've been told it's dead, gone and to move off this old beast of a system from 1998 but here you are, tasked with fixing an old legacy app so let me share that I've been there and how I got around some of the issues. These are: 1. Install issues on Windows 10. 2. A workaround to code that seemed fine but failed. 3. What may never work again. # Installing VB6 # Installing Visual Studio 6.0 from 1998 is a challenge. Be sure to have your media ready and if need be, print out the instructions so …

Member Avatar
Member Avatar
+1 forum 3

Hello experts i need help about screenshot code. i have two form ( Form1 & Form2 ) form1 have one button and picturebox. and form two is empty. i want to take screenshot with form width and Height. mean's where i move form2 and press Command1 button on form1 then it take a screenshot that area where is my form2. and save it in (c:/ drive) my form2 is moveable so i can move my form anywhere. Here i attached Example pictures. i am very thanksfull to you . Regard Razamughal

Member Avatar
Member Avatar
+0 forum 1

Hi all.. How i can make a report without using database. Data can directly from the active form. Thank you in advance

Member Avatar
Member Avatar
+0 forum 6

please I need codes to design the suduko puzzle on computer. please am a college student and I am just upcoming in programming please can anyone help me out. this is my project work

Member Avatar
Member Avatar
+0 forum 1

Private Sub cmdPrint_Click() Dim cnview As New ADODB.connection Dim rsview As New ADODB.Recordset Call connection(cnview, App.Path & "\Seeyou.mdb", "endromida") 'Call connection(cnview, "\\SEEYOU-PC\shared\Seeyou.mdb", "endromida") Call Recordset(rsview, cnview, "SELECT * FROM [order] where Edate = #" & txtEdate.Text & "#") If rsview.RecordCount = 0 Then MsgBox "No Record Found On Query.", vbCritical, "Seeyou" Else Set DayOrds.DataSource = rsview DayOrds.Orientation = rptOrientLandscape DayOrds.Show End If End Sub ------------------ Error is : No Records Found Even there are records in database, i am trying to filter data on base of Date Is this Query is right?

Member Avatar
Member Avatar
+0 forum 2

The algorithm for formatting code has has never treated vb.net comments properly. I've discovered a nifty work around that will format the code properly. Close the comment with another comment character(') and the algorithm will treat the rest as code. I've never tried it, but this should also work for VB6.

Member Avatar
Member Avatar
+1 forum 1

How to check in **vb6 ** if variable value is a string(**except for special character**) or number? Thanks, - Jeff -

Member Avatar
Member Avatar
+0 forum 1

hello there i am trying to make an application that can generat words automatically, i have used four text boxes, i want the first three boxes to get a word automatically from a file or from an array and show it in forth textbox, how can i do that? ![Capture.JPG](/attachments/large/4/45f56d9fc31c7e7b5da52fc4beebd007.JPG "align-center")

Member Avatar
Member Avatar
+0 forum 3

I wish to print invoice using printer.print method ( using USB dot matrix printer in continous paper) Some invoice contain 6 lines, some 15 lines. Now afer printing 5 lines printer ejectng paper. so paper waster ( paper width 5 inches, continous paper). I wish to top printing after printing invoice without ejecting paper. i am using 'Printer.Height 'Printer.Width property but no use ? please suggest me to overcome the problem

Member Avatar
Member Avatar
+0 forum 3

Hi I have an existing Visual Basic 6 program which prints to an attached (LPT1) Dot Matrix Printer. Printing is done by first sending the output to a file and from there sending it to the printer. There are a set of Escape Sequences like Print #1 chr(15); chr(3); strVarName or Print #1 chr(15); strVarName ; Chr(18) to make the font condensed, bold etc., which print to the file from which the output is sent to the printer. The customer has purchased a new Epson TM - 220D , USB POS printer having a 76mm width paper roll. I have …

Member Avatar
Member Avatar
+0 forum 10

Hello Friends I am facing a little problem that I want to sort my records according to date I mean to say I want to show the upcoming records based on dates on the top in ascending order I have a complete working code to fetch from the database but I don’t know that why its not showing up according to my requirements here is my screenshot and database query. I am using MS Access, VB6 and Listview for displaying all records If rs.State = 1 Then rs.Close sql = "SELECT * FROM tblHallBook WHERE book_complete='0' AND book_status='1' ORDER BY …

Member Avatar
Member Avatar
+0 forum 1

I am facing a problem that I have to show database results from 3 different tables on a single report these three tables have are used for different purposes and want to show their headings details separately. I am using VB6 and designing this report in **DataReport** a common feature for this. **Table1** is for Menu Details Having following fields: Bill_ID, Menu Type, Cost **Table2** is for Services Details: Having following fields: Bill_ID, Service Name, Cost **Table3** is for Extra Details: Having following fields: Bill_ID, Description, Cost Now structure I want to is like this using common Bill ID, and …

Member Avatar
Member Avatar
+0 forum 2

Aslam o alikum, I create a report in Crystal report 9 with add command using Oracle 11g as Database with OLE DB (ADO) (Microsoft OLE DB provider for Oracle). It works fine in crystal report. I want to call this report from vb6 form. I m not using any server Machine , (VB6, ORACLE 11g, Crystal report 9 running on same PC(Machine). the code i m using is as under : this portion is defined in a Module Public RptApp As New CRAXDRT.Application Public Report As CRAXDRT.Report Public crxTable As CRAXDRT.DatabaseTable Public CPProperty As CRAXDRT.ConnectionProperty This portion is in a …

Member Avatar
+0 forum 0

Hi Dw. Firstly I would like to ask if there is anyone know a good download link to download VB6.0 I'm in need of this IDE. Now coming to my actual question of how to detect USB insertion and removal and get a drive letter for it in VB5.0? Thank you Dw.

Member Avatar
Member Avatar
+0 forum 1

Hello, I am facing a very little problem but I am totally confused how to resolve it I have two tables in my access database which have similar items in it from the first table i.e **tbl_reci_inds** I have selected **reci_prod_code** which is a product code, also in this table this product code is used multiple times for different items e.g. +----+----------------+-----------+----------+ | ID | reci_prod_code | reci_inde | reci_qty | +----+----------------+-----------+----------+ | 74 | 123518233 | hello | 15 | | 75 | 123518233 | New Item | 80 | | 77 | 123518233 | Egg | 1 | …

Member Avatar
Member Avatar
+0 forum 2

Hello every one. i am trying to catch duplicate values from a data. in the picture when i want to add new record, then if the record already exists then go to that record and fill all the boxes, then i will press the update button,but if not, then add new value. field is indexed. ![Capture.JPG](/attachments/large/4/782a9b61c49710e943d77ec4b8477343.JPG "align-center") ![Capture.JPG] so how to code that? i need it very much.

Member Avatar
Member Avatar
+0 forum 2

Hi, I have started this project and come to the point where I can't figure out how to finish it. First Want to say that I'm noob for VB6 and programming in general, but I saw some examples and make it work this part of job I need. I will upload complete project, and sample text file, and screen shoot also, where I have explained how I want my app to work. So, please take a look and help me if you can :) in short - I need app to write text file with specific number of lines, continuing …

Member Avatar
Member Avatar
+0 forum 10

I'm coding in VB6. I have pictures in Picture1 and Picture2. I would like to replace the picture in Picture1 with the picture in Picture2. What code will get this done? Thanks.

Member Avatar
Member Avatar
+0 forum 3

[ATTACH=RIGHT]20145[/ATTACH][B]Building your first DYNAMIC Database application. This is Part One of a four part tutorial on how to install and use your database, Part Two will teach you how to build successful connections and Part Three will teach you how to build database interaction and management of your databases.[/B] There are tons of questions here on VB6 on how to connect to a database, how to add, delete, edit, search data within your database tables etc. This tutorial has been created to serve as a learning curve or to add more knowledge to your current code writing skills. This tutorial …

Member Avatar
Member Avatar
+1 forum 14

i want to design a software for a robot. i want to use the arrow keys of keyboard to direct the robot. can any one tell me that how can i do coding of that?

Member Avatar
Member Avatar
+0 forum 5

I put my vb6 exe program on flash drives of my students. Some of them say that it does not open. (Others have no problem and can left click). I told them to right click and "Run As Administrator". My program then opens. They are using school computers in a computer lab with windows 7. What is interesting is that #1 They are not administrators, #2 They do not have to enter any password. My question is: if that is the case, then why must they right click and Run As Aministrator? More important to me , is how can …

Member Avatar
Member Avatar
+0 forum 6

I am trying to add a coloumn from database into a listbox in VB6. The following code works. The selected item from this listbox is used to find and add records to the ListBox2. Using Oracle 11g Express Edition and Visual Basic 6. Working code: (Displays the artist column from a music database) Private Sub Command3_Click() Dim con As New ADODB.Connection Dim rec As New ADODB.Recordset Dim ConnStr As String Dim SQL As String ConnStr = "DSN=MusicDB" SQL = "Select artist FROM music" con.Open ConnStr, "SYSTEM", "PASSWORD" rec.Open SQL, con, adOpenStatic, adLockOptimistic Do While Not rec.EOF List1.AddItem rec.Fields("artist").Value rec.MoveNext Loop …

Member Avatar
Member Avatar
+0 forum 1

Hi, I want to convert my word file to pdf file in vb6. source code will be appreciated. so far, i have tried with below code also. Private Sub Convert_WordDoc_to_PDF(DocPath As String, sDestsPDFFile As String) 'Dim worddoc As New Word.Application Dim worddoc As Object Set worddoc = CreateObject("Word.Application") Dim x As String Dim doc As Document On Error GoTo Errhnd x = DocPath Set doc = worddoc.Documents.Open(x) '-----------open the docx 'now docx file is already open . so now it is time to export into PDF Format doc.ExportAsFixedFormat OutputFileName:= _ x & "/" & sDestsPDFFile, ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= …

Member Avatar
Member Avatar
+0 forum 2

I have a EXGrid in a form and want to add button to a cell that either say "Edit" and "Remove", or Have icons for the two. Here is the code I have so far. With grdGrade .BeginUpdate '.DataSource = objCo.DAL.Connection.Execute(sql) .DefaultItemHeight = 21 .TreeColumnIndex = -1 .MarkSearchColumn = False .FullRowSelect = exItemSel .DrawGridLines = exAllLines .SortOnClick = exNoSort .BackColorHeader = grdGrade.BackColor .Appearance = Flat .BackColorAlternate = Me.BackColor .SelBackColor = RGB(224, 224, 224) .SelForeColor = vbBlack .UseTabKey = True .Font = Me.Font .EndUpdate End With Set col = grdGrade.Columns.Add("Actions") col.AllowDragging = False col.Width = grdGrade.Width * 0.05 col.Editor.AddButton "Edit", , …

Member Avatar
Member Avatar
+0 forum 1

I am trying to update some records.The moment the line Adodc2.Refresh executes, I get an error message saying that the "Operation is not allowed when the object is closed" Yet, when I put "On Error Resume Next", it updates the records as I want it to. Please help me thank you.. Here is my code: Dim intResponse As Integer intResponse = MsgBox("Are you sure you want to delete Status?", _ vbYesNo + vbQuestion, _ "Clinic System") If intResponse = vbYes Then Adodc2.CommandType = adCmdText Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clinic.mdb" & ";Persist Security Info=False" Adodc2.RecordSource = "UPDATE patients …

Member Avatar
Member Avatar
+0 forum 2

Hi, I have migrated OS from XP to win8.1. Earlier in my VB application, I was sending email thourgh my outlook object. set outapp = createObject("Outlook.application") but now I am getting error "ActiveX Compponent Can't create Object." as i have migrated my OS. is there any other change in code? solution will be appreciated. Thanks, KK

Member Avatar
Member Avatar
+0 forum 2

Hello Anyone could you help i have got a strange problem when i update any record i get an error 2147467259 -(8000405) Insert Field failed. Where as on the same application i can add a new record. Please see below the code i have used dont know where am going wrong. Private Sub cmdupdate_Click() Set connection = New ADODB.connection With connection .ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=apbooking;User=root;Password=root;Option=3;" .Open End With Set rsupdate = New ADODB.Recordset 'Update New Actual weight and number of boxes With rsupdate If .State = adStateOpen Then .Close .Open "select * from booking where hawb_no = '" …

Member Avatar
Member Avatar
+0 forum 3

Hello, I have my own mail template in vb6.0. when i click on send button it creates a new outlook 2007 window. all information passes to it except subject message. on my local machine it is working but on client side not. Tanks, krunal

Member Avatar
+0 forum 0

Hello, how to programatically close outlook model pop up in vb6.0? Thanks

Member Avatar
Member Avatar
+0 forum 1

` How can I print a watermark in the middle of a word document then return to the top of the doc and start to print whatever text I want to? Here's my code: Set oWord = CreateObject("Word.Application") oWord.Visible = True 'Add a new, blank document Set oDoc = oWord.Documents.Add oDoc.PageSetup.Orientation = wdOrientLandscape 'Insert watermark somewhere in the middle of the page then return to the top of the page and continue with code below? '--------------------------------------------------------------------------- v1$ = StudentFirstLast$ picGradeReportName.Print v1$ Bmp$ = picGradeReportName.Picture SavePicture picGradeReportName.Image, Bmp$ v1$ = App.Path & "\" + Bmp$ ActiveDocument.Shapes.AddPicture _ Filename:=v1$, Left:=0, Top:=0, SaveWithDocument:=True …

Member Avatar
+0 forum 0

The End.