- Strength to Increase Rep
- +0
- Strength to Decrease Rep
- -0
- Upvotes Received
- 9
- Posts with Upvotes
- 9
- Upvoting Members
- 6
- Downvotes Received
- 1
- Posts with Downvotes
- 1
- Downvoting Members
- 1
38 Posted Topics
 | This code show how to made a MDI Form Borderless. Tested on Visual Basic 6 under Windows XP SP3 platform.  |
| | Are you sure that the name of the component is CrystalReport0 and not "CrystalReport1" or "CrystalReport01"? Try using [CODE] Option Explicit [/CODE] on the top of your form (should be the very first line of code, outside any procedure - sub or function). This error occurs when you use a … |
| | Maybe... And I said MAYBE... According to your description, I think the seek method doesn't position the cursor on the top of your recordset again. Try changing your code to position on the first record manually: [CODE] 'Loop with each strAccountNo - Code not shown for brevity 'HERE IS THE … |
 | Re: Split Why are you using the 4 in second parameter? Did you mistype it? Try simply [CODE] Arrl = Split("aaa bbb&ccc ddd&eee", "&") [/CODE] It works fine for me. And [ICODE] Msgbox Split("aaa bbb&ccc ddd&eee","&")(0)[/ICODE] return "aaa bbb". Regards, Sidnei [QUOTE=ITKnight;1517277]Hi, this part of code : [CODE]Arr1 = Split("aaa bbb&ccc ddd&eee",4) … |
| | Hey, guys (and girls...)! I'm in trouble with (like it seems to me) a little bug on Hierarchical FlexGrid control... Let me explain: I want to merge some content between cells. I made it many times before, but in the FlexGrid control, not the Hierarchical Flexgrid conrol - for sure, … |
| | Re: Random picture You may follow these steps: 1. create the six pictures you want; 2. put 12 image or picture controls on your form; 3. use Randomize function to create the seed; 4. use Rnd function to get randomic numbers; 5. use LoadPicture method to load the images into controls. You may …  |
| | What exactly you want? 1. You want user don't be able to input a existing number again? 2. You want to show a message that says ID already exists? 3. You want the user can put many ID same as existing?... First case, you'll need to make a SELECT instruction … |
| | You need to convert 10 to "10"? Or you want to convert 65 to "A"? First case, use "C" functions - CStr, CInt, CLng, CBool... -, to convert any type to the type specified in function name. This [ICODE] cNum = CStr(nValor) [/ICODE] puts the integer value of nValor variable …  |
| | Hey, billmaster! I had a few months ago the same problem you're facing... And solve it creating a Sub Main() (like you said), and using simple functions like DIR$ and FILECOPY to install the needed archives on the client machine. The more difficulty thing is to determine where the Windows … |
| | Re: RTF What means "transfering to Word"? If you read each line separetely, and then put each line in a Word window, use TRIM function for each line you read. If you put entire text from textbox in a Word document, maybe you need to proccess the text in VB before sending … |
| | The most common causes are Cause 1: you're trying to read before you reach end of file Solution 1: try testing EOF (see example below) Cause 2: you opened the file in a wrong mode Solution 2: correct the mode you're opening this file (see example below) [CODE] Open "YOURFILE.TXT" … |
| | Pankaj, for your LAN, ADO connect to remote machines inside a LAN. Simply provide machine name to connect to. For Access, which is not a database but a datafile (different things), you'll need to put a share in your network. Your main computer (I'll call SERVER) will share a directory, …  |
| | Use REPLACE function. [CODE] MsgBox Replace("Stoped", "ed", "") [/CODE] This example removes the "ed" letters from string and show "Stop" on dialog. Please refer to VB6 help to see the other optional parameters used. You can control where to begin replacing (default is first character), how many times replaces can … |
| | Read more is a big effort... Optimistic - Refers to the way ADO connects to a dataset structure: optimistic or pessimist. See more -> [url]http://msdn.microsoft.com/en-us/library/aa0416cz.aspx[/url] UseClient (not userclient) - refers the way data are manipulated: from the server or sent to the client machine. See this [url]http://www.adopenstatic.com/experiments/clientsidecursortypes.asp[/url] and this [url]http://www.adopenstatic.com/faq/recordcounterror.asp[/url] … |
| | I think that is no way to replace a certain line in your text file... Right, probably that have a way (always have), but maybe too hard... ;] Using the commands vb5prgrmr told you (Open / Line Input / Print / Close) you will be able to: 1. Open your … |
| | What type of connection you're treating? You may know what kind of data is sent to the computer, to get and work with it, what type of connection (serial, USB, wireless)... Sidnei |
| | So, if you want the installer runtimes (for running applications written in VB6), you can see this [url]http://www.microsoft.com/Downloads/details.aspx?FamilyID=bf9a24f9-b5c5-48f4-8edd-cdf2d29a79d5&displaylang=en[/url] and this [url]http://www.vb6.us/tutorials/vb6-download[/url]. But, if you're looking for the Visual Basic 6 program, to edit or create your own programs / solutions, take care: it's no longer supported by Microsoft but it's … |
| | vb5prgrmr, I can't find any help of connecting ADO with an Access database over internet in the site you point. Is there a way to connect VB6 application, using ADO, in format "http://server.com/Access.mdb" instead of "C:\" or any other local destination? I try it here and get an error... Regards, … |
| | Hi! If you want a "sign" in the line (the way Microsoft Access does), you can make a small picture (in "bmp" or "ico" format, I supose), then load this picture all times user change the line, or, if you use datacontrol, all times user move to next / prior … |
| | Jemz, I suggest you do a little search on the web... Here in DaniWeb are some tutorials that would help you, right? If you don't know how to start, try googling "how to use ADO with VB6", and probably you'll get a lot of results. I use ADO for every … |
| | When this error occurs? Only when you reach the "last page", or every time? (Seems to me you are "paging" your recordset) If occur only when you reach the "last page", is because ADO can't move [CODE] .Move (PageNumber - 1) * PageSize [/CODE] this number of records. Example: your … |
| | Re: .NET Controls Maybe this [url]http://msdn.microsoft.com/en-us/library/ms973802.aspx[/url] can be helpfull. In many ways, I don't think it's possible to use some proper objects (like the FORM object or SPLIT object) from net directly in your VB6 application. But, if you have non-graphical classes that you can use, see the link above on how to …  |
| | You can try this: (you'll need two images, one for checked, other for no checked boxes) [CODE] Private Sub MSFlexGrid1_Click() With MSFlexGrid1 If Val(.TextMatrix(.Row, 0)) = 0 Then .TextMatrix(.Row, 0) = 1 .Col = 0 Set .CellPicture = LoadPicture("C:\CHECK.BMP") Else .TextMatrix(.Row, 0) = 0 .Col = 0 Set .CellPicture = …  |
| | Re: vb6.0 + sql Hello, friend! I think you don't understand the exact SQL code you write... See this: if IT'S RAINING AND CLOUDY then you get a rainy weather... but is really difficulty to RAIN without CLOUDS... get the idea? The SELECT instruction you wrote point to OFFICE IN <specified criteria> AND WINDOWS … |
| | I realize that this tread is some quite old, but... 1. freQ, really you can set FormBorderStyle in VB.Net environment; but, in earlier versions, this property doesn't exist; 2 choudhuryshouvi, if you use API for disable buttons in title bar, why not to disable border in the form? It's possible, … |
| | Hi, Ankush! So, if you don't explicit a value for the key when you load your TreeView control, it will return empty if you test. Take a look: [CODE] 'TreeView1.Nodes.Add Relative, Relationship, Key, Text, Image, ImageSelected TreeView1.Nodes.Add , , , "Texto1" TreeView1.Nodes.Add , , "K01", "Texto2" [/CODE] If you put … |
| | Try to work with numbers. And using DateDiff function. Dates are numbers, so, it simplify your work! ;) I will work with Jan 11th, only for rounding numbers, right? [CODE] Dim nDiasTotal as Integer, nDiasPassados as Integer 'GET DIFFERENCE BETWEEN JAN 1st AND JAN 11th nDiasTotal = DateDiff("d", "01/01/2010", "11/01/2010") … |
| | Ankush, I suggest you ALWAYS use properties for controls... VB not require it when you're coding, BUT assumes "default properties" in this case... Take a look: [CODE] 'WITHOUT PROPERTY SPECIFICATION Text1 = "Um texto qualquer" 'WITH PROPERTY SPECIFICATION Text2.Text = "Um texto qualquer" [/CODE] VB6 will "understand" the two lines … |
| | It's NOT a good practice to create variables inplicit... Consider using [CODE] Option Explicit [/CODE] in ALL your forms, and you avoid getting errors like this one. Notice that lines [CODE] rs.Close cn.Close [/CODE] respectively closes the dataset and the connection. But seems the connection have opened in other sub … |
| | I agree with vb5pgrmr and think it is not possible; possibly you'll need to load your report again, doing a "refresh" on the data displayed by crystal... But, if anybody else knows to do this task... Success! Sidnei |
| | Re: Type mismatch You forgot to indicate the field that you want to display in textox: If Not adorsRAM.EOF Then txtusername.Text = adorsRAM("NAMEOFYOURFIELD") Else MsgBox "No Records Found!" End If or If Not adorsRAM.EOF Then txtusername.Text = adorsRAM(1) Else MsgBox "No Records Found!" End If where `1` is a zero-based index that assigns … |
| | Hi! It's really necessary to do this from VB? If you had an ACCEESS database and an EXCEL Sheet, I supose that you can open your two files, order by a column (it suposed to be a primary key in these, hun?), then copy and paste the data from the …  |
| | Re: please help !!!! Type mismatch normally means that you are using diferent variable types in an assignment... So, by the line you had show, I think you have two possibilities: 1. the "pRAM" variable not acept text type (strings, or so); 2. the "pRAM" variable doesn't exist in your report. Try to check … |
| | Re: Hex minus 1 It's not necessary to convert the value to a decimal, cause the system interprets a variety of representation like a number. Try this code to check: [CODE] Dim nValor As Long 'To take hex representation in VB, follow number by an &H sign nValor = &HFF MsgBox nValor nValor = … |
| | Hi pankaj.garg, you can use "AT" DOS command to schedule a single application to run on a specified day, once a week, or every day, and call you program to make what you want. Some like this [CODE] > AT time NAME.EXE [/CODE] For example, if your application is named … |
| | If I understood... this is not a MSComm's doubt, but a concatenate syntax doubt... Seems to me you want the "9600" - and the others values - to be a value given by the user (in a textbox, for example...) If this is correct, try to put these values you … |
| | Re: vb problem The comparison is case sensitive on VB. So, if you don't type the EXACTLY name of your component, it will not work - always return "false name". BUT, if you want to search in the ITEMS of that listbox, you need to create a loop statement, like [CODE] Dim nCont … |
| | Hi, in my job, we use VB6 applications to control various needs, such as supply management, sell, buying, etc... We use ZEBRA printers, with ZPL print codes, directly from LPT1, wich seems like above code: Open "LPT1" For Output As #1 Print #1, "SOME TEXT TO PRINT" Close #1 (Of … |
The End.