158 Posted Topics
 | Re: VB6 Well, for me, its YES. But you can only write application on VB6 for Windows OS. If you want a cross flatform application you can try [RealBasic](http://www.realsoftware.com). If you want to write for android, then try [basic4android](http://www.basic4ppc.com/)  |
| | Well you have to create setup file for your compiled app so that all the controls and DLL you use in your application will also be installed in another machine. Google VB6 Package and Deployment wizard because you can use this application to create setup packages for your vb6 application.  |
| | Re: Freeze a form You don't have to unload it, as what the person said above me, you can set the 2nd form as Modal when SHOWing. Private Sub Command1_Click() frm2.Show vbModal, Me End Sub  |
| | This is what Im using on my crystal report 8.5. Reports are created and connected via odbc so database location can be easily change. Dim crxTable As CRAXDRT.DatabaseTable Dim mReport As CRAXDRT.Report For Each crxTable In mReport.Database.Tables '* Use to Connect via ODBC, '* crxTable.SetLogOnInfo(pServerName As String, [pDatabaseName], [pUserID], [pPassword]) … |
| | Hi! This is my submission for code snippet contest. I also posted this code to help other members on how they can use compact & repair their MS Access Database within Visual Basic 6.0. You also need to add Microsoft Jet and Replication 2.6 in your project reference. To use, … |
| | Its the same as sharing a folder in a network. see http://support.microsoft.com/kb/308582 Anyway, what database are you going to use?.. M$ Access? sql server? |
| | ISP IP? or your IP Address? You can use is use M$ winsock control; Try it, put winsock on form, then add this code in form load event; Debug.Print Winsock1.LocalIP then check your immediate window, you will see your IP Address (Same address that you can see on http://www.whatismyip.net/)  |
| | How about using Property GET/Let? Put this code in your form (General Declaration Section) ' Variable to hold 'VarValue' property value Private refVarValue As String Public Property Get VarValue() As String VarValue = refVarValue End Property Public Property Let VarValue(ByVal strValue As String) refVarValue = EnuValue End Property Then, when … |
 | Yes, your on the wrong section, post it on vb.net section. :D EDIT: Make sure your pen drive is not infected, try to see your pen drive if there are any hidden folders.  |
| | |
| | Why not create your own?.. use textbox, a button, and listview.. Listview should be hidden, then when the button is press, listview will be visible. then once item is selected or listview lost focus, then hide the listview again. |
| | You can also try the search box. I think this is already solved many times. hehe |
 | You can refer to this previous thread of mine. [URL="http://www.daniweb.com/forums/thread224517.html"]Previous Thread[/URL] Hope its help. |
| | In the design time, you must make your form Splash Border Style property to None so it cant be moved out or minimized. You can also show your splash as modal window like this [CODE=vb] splash.show vbModal, Me [/CODE] But make sure you have a timer event make your splash … |
| | Heres a sample on how to add a record to database. [CODE=vb] Dim rstInfo As New ADODB.Recordset Dim SQL as String SQL = "SELECT * FROM List" rstInfo.Open SQL, cn, adOpenStatic, adLockOptimistic rstInfo.AddNew rstInfo!CustomerName = txtName.Text rstInfo!ContactNumber = txtContact.Text rstInfo!Date = txtDate.Text rstInfo!TimeStart = txtStart.Text rstInfo!TimeEnd = txtEnd.Text rstInfo!Event = … |
| | @Abe, sir andre is right, we need to declare variables even if vb6 accept and run without declaring any variable. Try to put this code on the General Declaration area so you will not forget to declare your variables :D [CODE=vb] Option Explicit [/CODE] You can also make vb6 automatically … |
 | If you don't know much about sql, then try the other way around like storing record from a variable. [CODE=vb] Dim UserType as string UserType = rs!UserType if UserType <> "Admin" Then rs.Delete End If [/CODE] Heres a code of the delete using sql. [CODE=vb] DBLink.Execute "Delete From Users Where … |
| | If you want your assignment to be done completely then you can post your project at [URL="vworker.com"]vworker.com[/URL]. This will cost you but if you really need a complete source then try it! ;) [URL="http://www.vworker.com/RentACoder/SoftwareBuyers/InviteCoderToBid.asp?lngCoderPersonId=7042945&txtFromURL=AId_7042945"]Post a Project for me[/URL] Then I will be glad to give you a complete source ;) |
| | thats easy. Use Replace function. [CODE=vb] Dim A as string A = Replace("@AA@BB@CC@DD", "@BB", vbNullString) [/CODE] it will return @AA@CC@DD Hopes this solves your problem. |
| | :D This is just a trick that might work for # 2. Just follow this steps 1. Right click your Database (*.mdb) > Properties > Tick Read-Only This will not allow user to make any changes in your database. simple trick right? :D 2. In you VB6 code, use the … |
| | > That explains it more.:) Whilst in the browser, right click on the browser and select "Source Code" from the pop up menu. Search for the control names, say cmdNext etc. Once you have this, you can manipulate the controls by say setting them to not visible etc. You can … |
| | On Line 22, I think it should be like this. [CODE=vb] cbodept.AddItem oRs!Office [/CODE] |
| | Re: [HELP] 1. Please read our forum rules :D 2. ID Number field includes space, so you should enclosed it with square brackets so it can be identified by your query as a whole field. 3. Adodc1.Refresh and Adodc1.Recordset.EOF will be fix when you fix the first error. [CODE=vb] Private Sub Command1_Click() … |
| | Re: TAB KEY I did not get that error when I try it myself. [CODE=vb] Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" End If End Sub [/CODE] |
| | Hi! I just want to share you this code snippet of mine which I use always in my application. This code snippet will help you debug your code easily. It will also help you locate where the error occurred and it also create an Error log located on your project … |
| | Hi! Please visit my code snippet thread. [URL="http://www.daniweb.com/code/snippet336042.html"]Easy Code Debugging - prompt_err Function[/URL] Then add line number in your code like this. [CODE] Private Sub cmdPrintSel_Click() On Error GoTo errHand 1 Call Con("Database.mdb") 2 3 RecSet.Open "Select Payroll.EM_ID, Payroll.EM_Name, Payroll.EM_Dep, Payroll.Monthly_Rate, Payroll.dDate, Payroll.xBonus, Payroll.xOT, Payroll.GSIS, Payroll.PH, Payroll.InTax, Payroll.Others, Payroll.absences, Payroll.Advances, … |
| | Okay, this is just a simple trick to determine whether CAPS is pressed because some people here use API to determine whether the CAPS Lock is pressed. [QUOTE] KeyDown and KeyUp don't detect exactly the same information as KeyPress. KeyPress detects a character in its KeyAscii parameter, but KeyDown and … |
 | remove this line so you can check if its bug free... [CODE=vb] On Error Resume Next [/CODE] Also add this line on your loop to prevent your application from hanging / lagging.. [CODE=vb] DoEvents [/CODE] |
| | |
| | First thing is, remove the "On Error resume Next" so you could see error prompts, and then you can come back here and show us the error description. |
| | Check your listview property like, if Listview propert view is Report style (detailed style) then make sure you have column headers. [CODE=vb] ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add "ID" ListView1.ColumnHeaders.Add "Username" ListView1.ColumnHeaders.Add "Password" [/CODE] Above code is just sample, so please try it out. Thanks |
| | |
| | You can use loops [CODE=vb] dim i as integer dim myString as string for i = 1 to len(text1.text) if mid(text1.text,i,1) <> " " then myString = myString & mid(text1.text) endif next i [/CODE] you can do something like that. Thanks |
| | Guys, does anyone of you have Windows 7?... Okay, here is my problem can you kindy test this code in windows 7. [CODE=vb] Public Sub createAccessDSN(MDBPath As String, xDescription As String, xDSN As String, xUID As String, Optional xPassword As String) 'Creating the DSN #If Win32 Then Dim intRet As … |
| | What report are you using? Is it DataReport? Crystal Report? Active Report?.. |
 | How about I code for you with a price? :D How about showing us what you have done so far for this project?.. |
| | you must have a GSM MODEM and you should know AT Commands for it to function. GSM Modem must also have a SIM Card so you can use it. |
| | Re: Running Clock Do the following. 1. Add a Timer on the Form 2. Set the Timer Enable, Interval = 1000 3. Add this code [CODE=vb] Private Sub Timer1_Timer() Me.Caption = Format(Now, "s") End Sub [/CODE] This code will show you the current time seconds in the form caption or you might want … |
 | [QUOTE=AndreRet;1339980]As far as I know it should. I have tried a small app a while back on an apple mac and it worked fine. I suppose you just need to ensure that all the run time files for vb6 is included AND if any reference has been made to Windows … |
| | This is my Cogwheel Encryption Method to encrypt and decrypt strings. Wheel1 is Replace by Wheel2 when Encrypting and Wheel2 is Replace by wheel1 when you are decrypting... To Encrypt a string, just call the EncryptString function [CODE=vb] Text2.Text = EncryptString(Text1.Text) [/CODE] To Decrypt a string, just call the DecryptString … |
| | How about showing us what you've done first so we can take a look at it.. |
| | How about adding a Access Right Modules for your users, where you will have a set of function that a certain user can and cannot access. |
| | Re: total First, When someone solves your problem you must mark it as Solved... Thanks. Second, in your code, I didn't see where do you want to show the Total for it. Will it be showed in Textbox? in Label?.. Assigning Value in a Textbox Control using Text Property [CODE=vb] Text1.Text = … |
| | Re: help me "Should not use Google map or any application with internet oriented. " - You need a LARGE MAP IMAGE that can be zoomed in / Out if you don't want to use Google map... "if anyone having these kinds of project please post it.. thanks for all those helping" - …  |
| | Re: sub total button You can use variables to hold each value you need. You can make it something like this... [CODE=VB] Dim Var1 as Double Dim Var2 as Double Dim SubTotal As Double Var1 = CDbl(Text1.text) * 0.16 Var2 = 0.16 SubTotal = Var1 + Var2 'Label1 Shows the value of SubTotal Label1.Caption … |
| | |
 | Re: database search Or you can use the % [CODE=vb] Adodc2.Recordset.Filter = "[book]='%" & b & "%'" [/CODE] |
| | Does your listview property is a is in report view?.. I do my list view this way.. [CODE=vb] Do While Not rs.EOF ListView1.ListItems.Add , , rs!model_name ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , rs!BOXID ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , rs!Description rs.MoveNext Loop [/CODE] You can do it just like that... |
| | First, if you cant update due to Relationship Integrity, you must add data by grouping it first, and; What is your Foreign Key and Primary Key in Inventory Transactions table?.. Does the Value from rs("part") is a Foreign key and Does the Value you are adding is existing to its … |
| | you want to read a line of text from a text file then import it to access?.. you can use the OPEN function [CODE=vb] Dim f as Integer, ReadedLine as string, Content as string f = FreeFile() Open "YourFile.txt" For Input as #f Do While EOF(f) Line Input #f, ReadedLine … |
The End.